wsh et ADSI sous windows 98

wsh et ADSI sous windows 98 - VB/VBA/VBS - Programmation

Marsh Posté le 01-02-2005 à 10:14:32    

Je dois créer un script de logon qui monte des lecteurs réseau en fonction du groupe de l'utilisateur. Mon controlleur de domaine est un win 2003 server, et mes machines clientes sont en XP, 2000, et 98. Mon script fonctionne tres bien sur 2000 et xp mais absolument pas sous 98 (meme apres installation de Dsclient, ADSI, .net Framework...)
 
Ci-joint : mon script :
-------------------------------------------------------------
Dim wshNetwork, ADSysInfo, objuser, WshShell, oExec, domaine, sys, msg
Dim Groups
 
Set objsys = CreateObject("ADSystemInfo" )
Set wshNetwork = CreateObject("WScript.Network" )  
Set objUser = GetObject("LDAP://servo.domtertiaire.fr/ " & objsys.UserName)
Set WshShell = CreateObject("WScript.Shell" )  
 
On error resume next
 
Groups = Lcase(objUser.MemberOf)
 
wshNetwork.RemoveNetworkDrive "h:"
wshNetwork.MapNetworkDrive "h:","\\Servo-nt4\" & wshNetwork.UserName & "$"
 
 
'Set oExec = WshShell.Exec("net use z: \\SERVO-NT4\"& wshNetwork.UserName & "$" )
 
 
If InStr(Groups, "cn=eleves" ) Then  
 
 wshNetwork.RemoveNetworkDrive "E:"
 wshNetwork.MapNetworkDrive "E:","\\Servo-nt4\echange"
 
End If  
 
If InStr(Groups, "cn=profs" ) Then  
 
 wshNetwork.RemoveNetworkDrive "E:"
 wshNetwork.RemoveNetworkDrive "P:"
 
 wshNetwork.MapNetworkDrive "X:","\\Servo-nt4\echange"
 wshNetwork.MapNetworkDrive "P:","\\Servo-nt4\public"
 
End If  
 
msgbox "Vous êtes connecté en tant que " & wshNetwork.UserName &  " sur le domaine " & objsys.DomainDNSName , 0 , "Bienvenue"
 
Set wshNetwork = Nothing  
Set ADSysinfo = Nothing  
Set CurrentUser = Nothing
-----------------------------------------------------------------
 
Windows 98 bloque sur la commande "ADSystemInfo" il n'arrive pas à l'interpréter... Si quelqu'un pouvait me venir en aide... Merci

Reply

Marsh Posté le 01-02-2005 à 10:14:32   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed