Discussion :

[PhilzEdward]

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!!!

[pc75]

Bonjour,

Un début de piste :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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