Bonjour, débutant en vbs, je bloque sur l'élaboration d'un script qui me listera dans un fichier .csv tous les groupes locaux de mon domaine.
Please Helppp!!!
Version imprimable
Bonjour, débutant en vbs, je bloque sur l'élaboration d'un script qui me listera dans un fichier .csv tous les groupes locaux de mon domaine.
Please Helppp!!!
Bonjour,
Un début de piste :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28 Const ADS_SCOPE_SUBTREE = 2 Set objConnection = CreateObject("ADODB.Connection") Set objCommand = CreateObject("ADODB.Command") objConnection.Provider = "ADsDSOObject" objConnection.Properties("User ID")= "MonDomaine/UserName objConnection.Properties("Password")= "Password" objConnection.Open "Active Directory Provider" Set objCommand.ActiveConnection = objConnection sql = "SELECT ADsPath, Name " sql = sql & "FROM 'LDAP://MonDomaine/OU=XXX,OU=PF,OU=Groupes Droits,OU=XXX,OU=yyyyy,DC=MonDomaine,DC=zzz,DC=eee' " sql = sql & "WHERE objectCategory = 'group' " objCommand.CommandText = sql objCommand.Properties("Page Size") = 1000 objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE Set objRecordSet = objCommand.Execute objRecordSet.MoveFirst Do Until objRecordSet.EOF MsgBox objRecordSet.fields(0).value objRecordSet.MoveNext Loop