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

Set objADSysInfo = CreateObject("ADSystemInfo" )  
WScript.Echo "Current site name: " & objADSysInfo.SiteName