bonjour tout le monde,
je travail sur un script de connexion en vbs qui doit déterminer l'appartenance d'un utilisateur a un groupe.
Je connais le programme ifmemnber.exe de microsoft qui fonctionne tres bien cependent je dois le traduire en vbs !
je vous présente mon programme :
ON ERROR RESUME NEXT
Dim strUserDN, objSysInfo
set WshShell = CreateObject("WScript.Shell" )
Set WshNetwork = WScript.CreateObject("WScript.Network" )
Set objSysInfo = CreateObject("ADSystemInfo" )
LogonServer=WshShell.ExpandEnvironmentStrings("%LogonServer%" )
MsgBox LogonServer
strUserDN = objSysInfo.userName
MsgBox strUserDN
Set UserObj = GetObject("WinNT://" & strUserDN)
MsgBox "Bonjour "&WshNetwork.username&" connecté sur "&WshNetwork.computername
'Init Groups
Dim UserGroups
Dim GroupObj
UserGroups=""
For Each GroupObj In UserObj.Groups
UserGroups=UserGroups & "[" & GroupObj.Name & "]"
Next
MsgBox "Membre de "& UserGroups
if InGroup("Admin" ) then
MsgBox "administrateurs"
end if
Function InGroup(strGroup)
InGroup=False
If InStr(UserGroups,"[" & strGroup & "]" ) Then
InGroup=True
End If
End Function
J'affiche bien le nom d'utilisateur, la chaine UserObj est correcte (avec nom utilisateurs, domaine groups) par contre la message box "Membre de "& UserGroups n'affiche pas le groupe, je n'arrive pas a sortir les groups de UserObj la propriété UserObj.Groups ne dois pas etre correcte, j'ai cherché partout sur le net, regarder tous les tutos, tous les exemples a cahque fois l'on procède de la meme facon mais perso ca ne fonctionne pas chez moi !
j'ai essayer sous XP et 2000 impossible !
merci de votre précieuse aide !
