BeN@MsTeR Ne jamais pisser face au vent | voici mon script :
Code :
- Dim conteneur
- Dim utilisateur,OU
- Set WshShellObj = WScript.CreateObject("WScript.Shell" )
- Set WshProcessEnv = WshShellObj.Environment("Process" )
- codeRH=WshProcessEnv("USERNAME" )
- wscript.echo "codeuser : "&codeuser
- 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 DistinguishedName from 'LDAP://OU=xxxx,OU=Bureautique,OU=Comptes Individuels,OU=Utilisateurs,OU=xxxx,DC=xxx,DC=xxxxxx,DC=xxxxx,DC=xxxxx,DC=xxx' " _
- & "Where objectClass='user' AND sAMAccountName='"&codeuser&"'"
- 'objCommand.commandText ="<LDAP://dcxxxx/OU=xxxx,OU=Bureautique,OU=Comptes Individuels,OU=Utilisateurs,OU=xxxx,DC=xxx,DC=xxxxxx,DC=xxxxx,DC=xxxxx,DC=xxxr>;(&(objectClass=user)(sAMAccountName='codeuser'));DistinguishedName;subTree"
- Set objRecordSet = objCommand.Execute
- objRecordSet.MoveFirst
- Do Until objRecordSet.EOF
- DNUser= objRecordSet.Fields(0).Value
- objRecordSet.MoveNext
- Loop
- 'set conteneur = GetObject("LDAP://CN=XXXX xxxxxxxx,OU=xxxx,OU=Bureautique,OU=Comptes Individuels,OU=Utilisateurs,OU=xxxx,DC=xxx,DC=xxxxxx,DC=xxxxx,DC=xxxxx,DC=xxx" )
- ChaineDeConnexion = "LDAP://"& DNUser
- set conteneur = GetObject(ChaineDeConnexion )
- userPN=conteneur.get("userPrincipalName" )
- WScript.Echo "userPrincipalName: " & vbTab & userPN
- PosArobase = Instr(UserPN, "@" )
- Wscript.echo PosArobase
- ChaineNomPrenom=Left(UserPN, PosArobase-1)
- Wscript.echo ChaineNomPrenom
|
 |
FORUM HardWare.fr
