[VBS] connaître l'OU d'un utilisateur d'Active directory
connaître l'OU d'un utilisateur d'Active directory [VBS] - Codes et scripts - Linux et OS Alternatifs
MarshPosté le 14-02-2006 à 17:10:44
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
--------------- Celui qui pose une question est idiot 5 minutes. Celui qui n'en pose pas le reste toute sa vie. | Membre du grand complot pharmaceutico-médico-scientifico-judéo-maçonnique.
Marsh Posté le 14-02-2006 à 17:10:44
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