Problème d'execution de Script sur les stations NT 4.0 apres KB828035 ou Q299444
3 réponses
Jean-Michel
Bonjour,
J'utilise un Script d'ouverture de session pour mapper des=20
drives ajouter des icones et paramettrer Office en=20
fonction de l'appartenance des utilisteurs =E0 un groupe=20
Global de mon Domaine NT.40
Le contexte :
Domain NT 4.0 SP6A
Serveurs membres Windows 2000 Server SP4
Clients : Windows XP PRO SP1
Windows 2000 PRO SP4
Windows NT 4.0 SP6 VBS5.6 ADS 2.5
Voici un Extrait significatif du script que j'utilise
'=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
Function EstMembre(UserName,GroupName,Domain)
Dim GroupeTestObj
Set GroupeTestObj =3D GetObject("WinNT://" & Domain & "/"&=20
GroupName &",Group")
If GroupeTestObj.IsMember("WinNT://" & Domain & "/" &=20
UserName) Then
EstMembre =3D True
Else
EstMembre =3D False
End If
End Function
'----------------------------------------------------------
----------------
Function TrouveNomUtilisateur()
Dim NomUtilisateurObj
Set NomUtilisateurObj =3D CreateObject("WScript.NetWork")
TrouveNomUtilisateur =3D NomUtilisateurObj.UserName
End Function
'----------------------------------------------------------
----------------
Dim ConnecteObj
Set ConnecteObj=3D Wscript.CreateObject("Wscript.Network")
Dim UserName
UserName =3D TrouveNomUtilisateur()
Dim Domain
Domain =3D UCase(ConnecteObj.UserDomain)
Dim LecteurObj
Set LecteurObj =3D Wscript.CreateObject("Wscript.Network")
If EstMembre(UserName,"OF-EP3.GRP",Domain) =3D True Then
LecteurObj.MapNetworkDrive "G:" , "\\SFKP08DF911\OF-E"
End If
'=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
Ce script fonctionne parfaitement sur toutes les=20
configurations sit=E9es dans le contexte
mais si j'ajoute le patch KB828035 ou Q299444 sur les=20
stations NT 4.0
j'ai le message "Login.vbs(4, 3) (null): Chemin r=E9seau non=20
trouv=E9."
Je ne rencontre pas le meme probl=E8mes lors de=20
l'installation du patch equivalent sur les autres systemes.
J'en suis reduit pour l'heure =E0 d=E9sinstaller ce patch de=20
s=E9curit=E9 partout ou il a =E9t=E9 install=E9 !!
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Guillaume Bordier [MS]
Bonjour,
A quoi correspond la ligne "4" ?
Guillaume
"Jean-Michel" wrote in message news:2bd401c4a495$a43007b0$ Bonjour,
J'utilise un Script d'ouverture de session pour mapper des drives ajouter des icones et paramettrer Office en fonction de l'appartenance des utilisteurs à un groupe Global de mon Domaine NT.40
Le contexte :
Domain NT 4.0 SP6A Serveurs membres Windows 2000 Server SP4
Clients : Windows XP PRO SP1 Windows 2000 PRO SP4 Windows NT 4.0 SP6 VBS5.6 ADS 2.5
Voici un Extrait significatif du script que j'utilise
'========================================================= =============== Function EstMembre(UserName,GroupName,Domain) Dim GroupeTestObj Set GroupeTestObj = GetObject("WinNT://" & Domain & "/"& GroupName &",Group") If GroupeTestObj.IsMember("WinNT://" & Domain & "/" & UserName) Then EstMembre = True Else EstMembre = False End If End Function '---------------------------------------------------------- ---------------- Function TrouveNomUtilisateur() Dim NomUtilisateurObj Set NomUtilisateurObj = CreateObject("WScript.NetWork") TrouveNomUtilisateur = NomUtilisateurObj.UserName End Function '---------------------------------------------------------- ---------------- Dim ConnecteObj Set ConnecteObj= Wscript.CreateObject("Wscript.Network")
Dim UserName UserName = TrouveNomUtilisateur()
Dim Domain Domain = UCase(ConnecteObj.UserDomain)
Dim LecteurObj Set LecteurObj = Wscript.CreateObject("Wscript.Network")
If EstMembre(UserName,"OF-EP3.GRP",Domain) = True Then LecteurObj.MapNetworkDrive "G:" , "SFKP08DF911OF-E" End If '========================================================= =============== Ce script fonctionne parfaitement sur toutes les configurations sitées dans le contexte mais si j'ajoute le patch KB828035 ou Q299444 sur les stations NT 4.0 j'ai le message "Login.vbs(4, 3) (null): Chemin réseau non trouvé." Je ne rencontre pas le meme problèmes lors de l'installation du patch equivalent sur les autres systemes.
J'en suis reduit pour l'heure à désinstaller ce patch de sécurité partout ou il a été installé !!
Une Sollution ?
Jean-Michel
Bonjour,
A quoi correspond la ligne "4" ?
Guillaume
"Jean-Michel" <anonymous@discussions.microsoft.com> wrote in message
news:2bd401c4a495$a43007b0$a301280a@phx.gbl...
Bonjour,
J'utilise un Script d'ouverture de session pour mapper des
drives ajouter des icones et paramettrer Office en
fonction de l'appartenance des utilisteurs à un groupe
Global de mon Domaine NT.40
Le contexte :
Domain NT 4.0 SP6A
Serveurs membres Windows 2000 Server SP4
Clients : Windows XP PRO SP1
Windows 2000 PRO SP4
Windows NT 4.0 SP6 VBS5.6 ADS 2.5
Voici un Extrait significatif du script que j'utilise
'========================================================= =============== Function EstMembre(UserName,GroupName,Domain)
Dim GroupeTestObj
Set GroupeTestObj = GetObject("WinNT://" & Domain & "/"&
GroupName &",Group")
If GroupeTestObj.IsMember("WinNT://" & Domain & "/" &
UserName) Then
EstMembre = True
Else
EstMembre = False
End If
End Function
'----------------------------------------------------------
----------------
Function TrouveNomUtilisateur()
Dim NomUtilisateurObj
Set NomUtilisateurObj = CreateObject("WScript.NetWork")
TrouveNomUtilisateur = NomUtilisateurObj.UserName
End Function
'----------------------------------------------------------
----------------
Dim ConnecteObj
Set ConnecteObj= Wscript.CreateObject("Wscript.Network")
Dim UserName
UserName = TrouveNomUtilisateur()
Dim Domain
Domain = UCase(ConnecteObj.UserDomain)
Dim LecteurObj
Set LecteurObj = Wscript.CreateObject("Wscript.Network")
If EstMembre(UserName,"OF-EP3.GRP",Domain) = True Then
LecteurObj.MapNetworkDrive "G:" , "\SFKP08DF911OF-E"
End If
'========================================================= ===============
Ce script fonctionne parfaitement sur toutes les
configurations sitées dans le contexte
mais si j'ajoute le patch KB828035 ou Q299444 sur les
stations NT 4.0
j'ai le message "Login.vbs(4, 3) (null): Chemin réseau non
trouvé."
Je ne rencontre pas le meme problèmes lors de
l'installation du patch equivalent sur les autres systemes.
J'en suis reduit pour l'heure à désinstaller ce patch de
sécurité partout ou il a été installé !!
"Jean-Michel" wrote in message news:2bd401c4a495$a43007b0$ Bonjour,
J'utilise un Script d'ouverture de session pour mapper des drives ajouter des icones et paramettrer Office en fonction de l'appartenance des utilisteurs à un groupe Global de mon Domaine NT.40
Le contexte :
Domain NT 4.0 SP6A Serveurs membres Windows 2000 Server SP4
Clients : Windows XP PRO SP1 Windows 2000 PRO SP4 Windows NT 4.0 SP6 VBS5.6 ADS 2.5
Voici un Extrait significatif du script que j'utilise
'========================================================= =============== Function EstMembre(UserName,GroupName,Domain) Dim GroupeTestObj Set GroupeTestObj = GetObject("WinNT://" & Domain & "/"& GroupName &",Group") If GroupeTestObj.IsMember("WinNT://" & Domain & "/" & UserName) Then EstMembre = True Else EstMembre = False End If End Function '---------------------------------------------------------- ---------------- Function TrouveNomUtilisateur() Dim NomUtilisateurObj Set NomUtilisateurObj = CreateObject("WScript.NetWork") TrouveNomUtilisateur = NomUtilisateurObj.UserName End Function '---------------------------------------------------------- ---------------- Dim ConnecteObj Set ConnecteObj= Wscript.CreateObject("Wscript.Network")
Dim UserName UserName = TrouveNomUtilisateur()
Dim Domain Domain = UCase(ConnecteObj.UserDomain)
Dim LecteurObj Set LecteurObj = Wscript.CreateObject("Wscript.Network")
If EstMembre(UserName,"OF-EP3.GRP",Domain) = True Then LecteurObj.MapNetworkDrive "G:" , "SFKP08DF911OF-E" End If '========================================================= =============== Ce script fonctionne parfaitement sur toutes les configurations sitées dans le contexte mais si j'ajoute le patch KB828035 ou Q299444 sur les stations NT 4.0 j'ai le message "Login.vbs(4, 3) (null): Chemin réseau non trouvé." Je ne rencontre pas le meme problèmes lors de l'installation du patch equivalent sur les autres systemes.
J'en suis reduit pour l'heure à désinstaller ce patch de sécurité partout ou il a été installé !!
Une Sollution ?
Jean-Michel
Jean-Michel
La ligne 4 correspond à :
Set GroupeTestObj = GetObject("WinNT://" & Domain & "/"& GroupName &",Group")
dans la Fonction EstMembre
-----Message d'origine----- Bonjour,
A quoi correspond la ligne "4" ?
Guillaume
"Jean-Michel" wrote in message
news:2bd401c4a495$a43007b0$ Bonjour,
J'utilise un Script d'ouverture de session pour mapper des drives ajouter des icones et paramettrer Office en fonction de l'appartenance des utilisteurs à un groupe Global de mon Domaine NT.40
Le contexte :
Domain NT 4.0 SP6A Serveurs membres Windows 2000 Server SP4
Clients : Windows XP PRO SP1 Windows 2000 PRO SP4 Windows NT 4.0 SP6 VBS5.6 ADS 2.5
Voici un Extrait significatif du script que j'utilise
================ Function EstMembre(UserName,GroupName,Domain) Dim GroupeTestObj Set GroupeTestObj = GetObject("WinNT://" & Domain & "/"& GroupName &",Group") If GroupeTestObj.IsMember("WinNT://" & Domain & "/" & UserName) Then EstMembre = True Else EstMembre = False End If End Function '--------------------------------------------------------- -
---------------- Function TrouveNomUtilisateur() Dim NomUtilisateurObj Set NomUtilisateurObj = CreateObject("WScript.NetWork") TrouveNomUtilisateur = NomUtilisateurObj.UserName End Function '--------------------------------------------------------- -
---------------- Dim ConnecteObj Set ConnecteObj= Wscript.CreateObject("Wscript.Network")
Dim UserName UserName = TrouveNomUtilisateur()
Dim Domain Domain = UCase(ConnecteObj.UserDomain)
Dim LecteurObj Set LecteurObj = Wscript.CreateObject("Wscript.Network")
If EstMembre(UserName,"OF-EP3.GRP",Domain) = True Then LecteurObj.MapNetworkDrive "G:" , "SFKP08DF911OF-E" End If '======================== ========================= ======== =
================
Ce script fonctionne parfaitement sur toutes les configurations sitées dans le contexte mais si j'ajoute le patch KB828035 ou Q299444 sur les stations NT 4.0 j'ai le message "Login.vbs(4, 3) (null): Chemin réseau non trouvé." Je ne rencontre pas le meme problèmes lors de l'installation du patch equivalent sur les autres systemes.
J'en suis reduit pour l'heure à désinstaller ce patch de sécurité partout ou il a été installé !!
Une Sollution ?
Jean-Michel
.
La ligne 4 correspond à :
Set GroupeTestObj = GetObject("WinNT://" & Domain & "/"&
GroupName &",Group")
dans la Fonction EstMembre
-----Message d'origine-----
Bonjour,
A quoi correspond la ligne "4" ?
Guillaume
"Jean-Michel" <anonymous@discussions.microsoft.com> wrote
in message
J'utilise un Script d'ouverture de session pour mapper des
drives ajouter des icones et paramettrer Office en
fonction de l'appartenance des utilisteurs à un groupe
Global de mon Domaine NT.40
Le contexte :
Domain NT 4.0 SP6A
Serveurs membres Windows 2000 Server SP4
Clients : Windows XP PRO SP1
Windows 2000 PRO SP4
Windows NT 4.0 SP6 VBS5.6 ADS 2.5
Voici un Extrait significatif du script que j'utilise
================
Function EstMembre(UserName,GroupName,Domain)
Dim GroupeTestObj
Set GroupeTestObj = GetObject("WinNT://" & Domain & "/"&
GroupName &",Group")
If GroupeTestObj.IsMember("WinNT://" & Domain & "/" &
UserName) Then
EstMembre = True
Else
EstMembre = False
End If
End Function
'---------------------------------------------------------
-
----------------
Function TrouveNomUtilisateur()
Dim NomUtilisateurObj
Set NomUtilisateurObj = CreateObject("WScript.NetWork")
TrouveNomUtilisateur = NomUtilisateurObj.UserName
End Function
'---------------------------------------------------------
-
----------------
Dim ConnecteObj
Set ConnecteObj= Wscript.CreateObject("Wscript.Network")
Dim UserName
UserName = TrouveNomUtilisateur()
Dim Domain
Domain = UCase(ConnecteObj.UserDomain)
Dim LecteurObj
Set LecteurObj = Wscript.CreateObject("Wscript.Network")
If EstMembre(UserName,"OF-EP3.GRP",Domain) = True Then
LecteurObj.MapNetworkDrive "G:" , "\SFKP08DF911OF-E"
End If
'======================== ========================= ========
=
================
Ce script fonctionne parfaitement sur toutes les
configurations sitées dans le contexte
mais si j'ajoute le patch KB828035 ou Q299444 sur les
stations NT 4.0
j'ai le message "Login.vbs(4, 3) (null): Chemin réseau non
trouvé."
Je ne rencontre pas le meme problèmes lors de
l'installation du patch equivalent sur les autres
systemes.
J'en suis reduit pour l'heure à désinstaller ce patch de
sécurité partout ou il a été installé !!
Set GroupeTestObj = GetObject("WinNT://" & Domain & "/"& GroupName &",Group")
dans la Fonction EstMembre
-----Message d'origine----- Bonjour,
A quoi correspond la ligne "4" ?
Guillaume
"Jean-Michel" wrote in message
news:2bd401c4a495$a43007b0$ Bonjour,
J'utilise un Script d'ouverture de session pour mapper des drives ajouter des icones et paramettrer Office en fonction de l'appartenance des utilisteurs à un groupe Global de mon Domaine NT.40
Le contexte :
Domain NT 4.0 SP6A Serveurs membres Windows 2000 Server SP4
Clients : Windows XP PRO SP1 Windows 2000 PRO SP4 Windows NT 4.0 SP6 VBS5.6 ADS 2.5
Voici un Extrait significatif du script que j'utilise
================ Function EstMembre(UserName,GroupName,Domain) Dim GroupeTestObj Set GroupeTestObj = GetObject("WinNT://" & Domain & "/"& GroupName &",Group") If GroupeTestObj.IsMember("WinNT://" & Domain & "/" & UserName) Then EstMembre = True Else EstMembre = False End If End Function '--------------------------------------------------------- -
---------------- Function TrouveNomUtilisateur() Dim NomUtilisateurObj Set NomUtilisateurObj = CreateObject("WScript.NetWork") TrouveNomUtilisateur = NomUtilisateurObj.UserName End Function '--------------------------------------------------------- -
---------------- Dim ConnecteObj Set ConnecteObj= Wscript.CreateObject("Wscript.Network")
Dim UserName UserName = TrouveNomUtilisateur()
Dim Domain Domain = UCase(ConnecteObj.UserDomain)
Dim LecteurObj Set LecteurObj = Wscript.CreateObject("Wscript.Network")
If EstMembre(UserName,"OF-EP3.GRP",Domain) = True Then LecteurObj.MapNetworkDrive "G:" , "SFKP08DF911OF-E" End If '======================== ========================= ======== =
================
Ce script fonctionne parfaitement sur toutes les configurations sitées dans le contexte mais si j'ajoute le patch KB828035 ou Q299444 sur les stations NT 4.0 j'ai le message "Login.vbs(4, 3) (null): Chemin réseau non trouvé." Je ne rencontre pas le meme problèmes lors de l'installation du patch equivalent sur les autres systemes.
J'en suis reduit pour l'heure à désinstaller ce patch de sécurité partout ou il a été installé !!
Une Sollution ?
Jean-Michel
.
Guillaume Bordier [MS]
Bonsoir,
Il semble qu'il y ait une fiche technique qui décrit votre problème :
831579 et il y a un fix disponible.
Guillaume
"Jean-Michel" wrote in message news:29c801c4a545$d0ff5f60$ La ligne 4 correspond à :
Set GroupeTestObj = GetObject("WinNT://" & Domain & "/"& GroupName &",Group")
dans la Fonction EstMembre
-----Message d'origine----- Bonjour,
A quoi correspond la ligne "4" ?
Guillaume
"Jean-Michel" wrote in message
news:2bd401c4a495$a43007b0$ Bonjour,
J'utilise un Script d'ouverture de session pour mapper des drives ajouter des icones et paramettrer Office en fonction de l'appartenance des utilisteurs à un groupe Global de mon Domaine NT.40
Le contexte :
Domain NT 4.0 SP6A Serveurs membres Windows 2000 Server SP4
Clients : Windows XP PRO SP1 Windows 2000 PRO SP4 Windows NT 4.0 SP6 VBS5.6 ADS 2.5
Voici un Extrait significatif du script que j'utilise
'======================================================== >=============== >Function EstMembre(UserName,GroupName,Domain) Dim GroupeTestObj Set GroupeTestObj = GetObject("WinNT://" & Domain & "/"& GroupName &",Group") If GroupeTestObj.IsMember("WinNT://" & Domain & "/" & UserName) Then EstMembre = True Else EstMembre = False End If End Function '--------------------------------------------------------- -
---------------- Function TrouveNomUtilisateur() Dim NomUtilisateurObj Set NomUtilisateurObj = CreateObject("WScript.NetWork") TrouveNomUtilisateur = NomUtilisateurObj.UserName End Function '--------------------------------------------------------- -
---------------- Dim ConnecteObj Set ConnecteObj= Wscript.CreateObject("Wscript.Network")
Dim UserName UserName = TrouveNomUtilisateur()
Dim Domain Domain = UCase(ConnecteObj.UserDomain)
Dim LecteurObj Set LecteurObj = Wscript.CreateObject("Wscript.Network")
If EstMembre(UserName,"OF-EP3.GRP",Domain) = True Then LecteurObj.MapNetworkDrive "G:" , "SFKP08DF911OF-E" End If '======================================================== >=============== > Ce script fonctionne parfaitement sur toutes les configurations sitées dans le contexte mais si j'ajoute le patch KB828035 ou Q299444 sur les stations NT 4.0 j'ai le message "Login.vbs(4, 3) (null): Chemin réseau non trouvé." Je ne rencontre pas le meme problèmes lors de l'installation du patch equivalent sur les autres systemes.
J'en suis reduit pour l'heure à désinstaller ce patch de sécurité partout ou il a été installé !!
Une Sollution ?
Jean-Michel
.
Bonsoir,
Il semble qu'il y ait une fiche technique qui décrit votre problème :
831579 et il y a un fix disponible.
Guillaume
"Jean-Michel" <anonymous@discussions.microsoft.com> wrote in message
news:29c801c4a545$d0ff5f60$a501280a@phx.gbl...
La ligne 4 correspond à :
Set GroupeTestObj = GetObject("WinNT://" & Domain & "/"&
GroupName &",Group")
dans la Fonction EstMembre
-----Message d'origine-----
Bonjour,
A quoi correspond la ligne "4" ?
Guillaume
"Jean-Michel" <anonymous@discussions.microsoft.com> wrote
in message
J'utilise un Script d'ouverture de session pour mapper des
drives ajouter des icones et paramettrer Office en
fonction de l'appartenance des utilisteurs à un groupe
Global de mon Domaine NT.40
Le contexte :
Domain NT 4.0 SP6A
Serveurs membres Windows 2000 Server SP4
Clients : Windows XP PRO SP1
Windows 2000 PRO SP4
Windows NT 4.0 SP6 VBS5.6 ADS 2.5
Voici un Extrait significatif du script que j'utilise
'======================================================== >=============== >Function EstMembre(UserName,GroupName,Domain)
Dim GroupeTestObj
Set GroupeTestObj = GetObject("WinNT://" & Domain & "/"&
GroupName &",Group")
If GroupeTestObj.IsMember("WinNT://" & Domain & "/" &
UserName) Then
EstMembre = True
Else
EstMembre = False
End If
End Function
'---------------------------------------------------------
-
----------------
Function TrouveNomUtilisateur()
Dim NomUtilisateurObj
Set NomUtilisateurObj = CreateObject("WScript.NetWork")
TrouveNomUtilisateur = NomUtilisateurObj.UserName
End Function
'---------------------------------------------------------
-
----------------
Dim ConnecteObj
Set ConnecteObj= Wscript.CreateObject("Wscript.Network")
Dim UserName
UserName = TrouveNomUtilisateur()
Dim Domain
Domain = UCase(ConnecteObj.UserDomain)
Dim LecteurObj
Set LecteurObj = Wscript.CreateObject("Wscript.Network")
If EstMembre(UserName,"OF-EP3.GRP",Domain) = True Then
LecteurObj.MapNetworkDrive "G:" , "\SFKP08DF911OF-E"
End If
'======================================================== >=============== >
Ce script fonctionne parfaitement sur toutes les
configurations sitées dans le contexte
mais si j'ajoute le patch KB828035 ou Q299444 sur les
stations NT 4.0
j'ai le message "Login.vbs(4, 3) (null): Chemin réseau non
trouvé."
Je ne rencontre pas le meme problèmes lors de
l'installation du patch equivalent sur les autres
systemes.
J'en suis reduit pour l'heure à désinstaller ce patch de
sécurité partout ou il a été installé !!
Il semble qu'il y ait une fiche technique qui décrit votre problème :
831579 et il y a un fix disponible.
Guillaume
"Jean-Michel" wrote in message news:29c801c4a545$d0ff5f60$ La ligne 4 correspond à :
Set GroupeTestObj = GetObject("WinNT://" & Domain & "/"& GroupName &",Group")
dans la Fonction EstMembre
-----Message d'origine----- Bonjour,
A quoi correspond la ligne "4" ?
Guillaume
"Jean-Michel" wrote in message
news:2bd401c4a495$a43007b0$ Bonjour,
J'utilise un Script d'ouverture de session pour mapper des drives ajouter des icones et paramettrer Office en fonction de l'appartenance des utilisteurs à un groupe Global de mon Domaine NT.40
Le contexte :
Domain NT 4.0 SP6A Serveurs membres Windows 2000 Server SP4
Clients : Windows XP PRO SP1 Windows 2000 PRO SP4 Windows NT 4.0 SP6 VBS5.6 ADS 2.5
Voici un Extrait significatif du script que j'utilise
'======================================================== >=============== >Function EstMembre(UserName,GroupName,Domain) Dim GroupeTestObj Set GroupeTestObj = GetObject("WinNT://" & Domain & "/"& GroupName &",Group") If GroupeTestObj.IsMember("WinNT://" & Domain & "/" & UserName) Then EstMembre = True Else EstMembre = False End If End Function '--------------------------------------------------------- -
---------------- Function TrouveNomUtilisateur() Dim NomUtilisateurObj Set NomUtilisateurObj = CreateObject("WScript.NetWork") TrouveNomUtilisateur = NomUtilisateurObj.UserName End Function '--------------------------------------------------------- -
---------------- Dim ConnecteObj Set ConnecteObj= Wscript.CreateObject("Wscript.Network")
Dim UserName UserName = TrouveNomUtilisateur()
Dim Domain Domain = UCase(ConnecteObj.UserDomain)
Dim LecteurObj Set LecteurObj = Wscript.CreateObject("Wscript.Network")
If EstMembre(UserName,"OF-EP3.GRP",Domain) = True Then LecteurObj.MapNetworkDrive "G:" , "SFKP08DF911OF-E" End If '======================================================== >=============== > Ce script fonctionne parfaitement sur toutes les configurations sitées dans le contexte mais si j'ajoute le patch KB828035 ou Q299444 sur les stations NT 4.0 j'ai le message "Login.vbs(4, 3) (null): Chemin réseau non trouvé." Je ne rencontre pas le meme problèmes lors de l'installation du patch equivalent sur les autres systemes.
J'en suis reduit pour l'heure à désinstaller ce patch de sécurité partout ou il a été installé !!