Bonjour,
 
Je cherche un bout de scrips en vb pour un logon script mais je rush !
 
Voici ce que je veux faire.
 
Quand un user ce log, si il est dans le groupe1 et groupe3 il sera maper sur le drive d et drive f.
 
Meme chose pour les imprimantes.
 
Merci!

un batch n'est pas suffisant ? net use x: \\serveur\partage ?

Effectivement dans des cas comma ça, le bon vieux batch fonctionne très bien sinon voilà tu peux essayer ce truc là si tu es dans un domaine AD par exemple:
 
 
on error resume next
Set wshNetwork = CreateObject("WScript.Network" )
user = wshNetwork.username
Set ADSysInfo = CreateObject("ADSystemInfo" )
set CurrentUser = GetObject("LDAP://" & ADSysInfo.UserName)
strGroups = UCase(Join(CurrentUser.MemberOf))
if err.number <> 0 then
strGroups = Ucase(CurrentUser.Memberof)
end if
err.clear
 
 
'-----------------------
'Lecteurs NOMDUGROUPE
'-----------------------
If InStr(strGroups, "NOMDUGROUPE" ) Then
wshNetwork.MapNetworkDrive "G:" , "\\nom du serveur\nom du patage\chemin du répertoire"
if err.number <> 0 then
wscript.echo err.description  & " Veuillez contactez votre administrateur"
end if
err.clear
end if

Salut,
Un bon vieux batch comme ca marche tres bien:
 
\....\ifmember group1
if %errorlevel NEQ 1 goto suite
net use d: ........
:suite
\....\ifmember group2
if %errorlevel NEQ 1 goto fin
net use f: .......
:fin
 
 
ps ifmember se trouve dans le kit de ressource
 
@++
@++

Normalement le processus est le meme pour les imprimantes ?
 
on error resume next  
Set wshNetwork = CreateObject("WScript.Network" )  
user = wshNetwork.username  
Set ADSysInfo = CreateObject("ADSystemInfo" )  
set CurrentUser = GetObject("LDAP://" & ADSysInfo.UserName)  
strGroups = UCase(Join(CurrentUser.MemberOf))  
if err.number <> 0 then  
strGroups = Ucase(CurrentUser.Memberof)  
end if  
err.clear  
 
 
If InStr(strGroups, "P-ACCOUTING" ) Then  
Network.AddPrinterConnection "\\artfiles\accounting"
if err.number <> 0 then  
wscript.echo err.description  & " Veuillez contactez votre administrateur"  
end if  
err.clear  
end if
 
 
---------
 
Mais ca ne marche pas .. et jai aucun message derreur ! Une idéée ?
 
Merci!

si tu veux du simple, télécharge kix ici, mets le dans le partage netlogon, et dans ton script de login tu mets
%0\..\Kix32.exe %0\..\lenomduscriptkix.kix
 
après c'est tout simple, dans lenomduscriptkix.kix, mets :
 
IF INGROUP("ungroupe" )
 use L: "\\unserveur\unpartage"
endif
 
If ingroup("unautregroupe" )  
 AddPrinterConnection ("\\unautreserveur\uneimprimante" )
Endif