[vbs] Recherche OU d'un utilisateur donné d'Active Directory
Recherche OU d'un utilisateur donné d'Active Directory [vbs] - Windows & Software
MarshPosté le 15-02-2006 à 08:29:54
Bonjour,
Il me faudrait un script qui me permettre de connaître l'OU d'un utilisateur donné, si quelqu'un peut m'aider se serait sympa!
j'ai essayé ce code :
Citation :
Set objConnection = CreateObject("ADODB.Connection" ) Set objCommand = CreateObject("ADODB.Command" ) objConnection.Provider = "ADsDSOObject" objConnection.Open "Active Directory Provider"
Set objCOmmand.ActiveConnection = objConnection objCommand.CommandText = _ "Select ou from 'LDAP://DC=pdch,DC=fr'Where objectClass='user' and samAccountName='"& MonCompte & "'" Set objRecordSet = objCommand.Execute objRecordSet.MoveFirst
if objRecordSet.EOF=false then wscript.echo objRecordSet.Fields("OU" ).Value end if
Je n'ai pas d'erreur mais il m'affiche null, pourquoi??
je viens de trouver un morceau de code qui affiche l'OU de l'utilisateur courant ou de l'ordinateur mais comment l'adapter à mon cas ?
Citation :
Set objADSysInfo = CreateObject("ADSystemInfo" ) WScript.Echo "Current site name: " & objADSysInfo.SiteName
Marsh Posté le 15-02-2006 à 08:29:54
Bonjour,
Il me faudrait un script qui me permettre de connaître l'OU d'un utilisateur donné, si quelqu'un peut m'aider se serait sympa!
j'ai essayé ce code :
Set objConnection = CreateObject("ADODB.Connection" )
Set objCommand = CreateObject("ADODB.Command" )
objConnection.Provider = "ADsDSOObject"
objConnection.Open "Active Directory Provider"
Set objCOmmand.ActiveConnection = objConnection
objCommand.CommandText = _
"Select ou from 'LDAP://DC=pdch,DC=fr'Where objectClass='user' and samAccountName='"& MonCompte & "'"
Set objRecordSet = objCommand.Execute
objRecordSet.MoveFirst
if objRecordSet.EOF=false then
wscript.echo objRecordSet.Fields("OU" ).Value
end if
Je n'ai pas d'erreur mais il m'affiche null, pourquoi??
je viens de trouver un morceau de code qui affiche l'OU de l'utilisateur courant ou de l'ordinateur mais comment l'adapter à mon cas ?
Set objADSysInfo = CreateObject("ADSystemInfo" )
WScript.Echo "Current site name: " & objADSysInfo.SiteName