Commande pour recupérer valeur et l'intégrer dans un fichier

Commande pour recupérer valeur et l'intégrer dans un fichier - VB/VBA/VBS - Programmation

Marsh Posté le 26-02-2007 à 15:28:29    

Bonjour,
 
Je vous expose à mon problème :
 
Je dois recupérer une variable dans mon Active Directory pour pouvoir l'intégrer dans un fichier .prf qui me permettra de configurer les boites mails des utilisateurs de mon domaine via des GPO.
 
La variable je l'ai recupéré avec un script, mais je cherche la façon dont je peux recupérer cette valeur pour l'intégrer dans mon fichier .prf
 
Si quelqu'un a un indice pour ça serait sympa.. merci d'avance

Reply

Marsh Posté le 26-02-2007 à 15:28:29   

Reply

Marsh Posté le 26-02-2007 à 18:06:23    

peux-tu nous indiquer ton script, pour savoir comme nt tu stockes ton information stp :)

Reply

Marsh Posté le 27-02-2007 à 09:42:56    

voici mon script :
 

Code :
  1. Dim conteneur
  2. Dim utilisateur,OU
  4. Set WshShellObj = WScript.CreateObject("WScript.Shell" )
  5. Set WshProcessEnv = WshShellObj.Environment("Process" )
  6. codeRH=WshProcessEnv("USERNAME" )
  7. wscript.echo "codeuser : "&codeuser
  9. set objConnection = CreateObject("ADODB.Connection" )
  10. Set objCommand = CreateObject("ADODB.Command" )
  11. objConnection.Provider = "ADsDSOObject"
  12. objConnection.Open "Active Directory Provider"
  14. Set objCOmmand.ActiveConnection = objConnection
  16. objCommand.CommandText = _
  17. "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' " _
  18. & "Where objectClass='user' AND sAMAccountName='"&codeuser&"'"
  21. '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"
  24. Set objRecordSet = objCommand.Execute
  25. objRecordSet.MoveFirst
  27. Do Until objRecordSet.EOF
  28. DNUser= objRecordSet.Fields(0).Value
  29. objRecordSet.MoveNext
  30. Loop
  32. '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" )
  33. ChaineDeConnexion = "LDAP://"& DNUser
  34. set conteneur = GetObject(ChaineDeConnexion )
  35. userPN=conteneur.get("userPrincipalName" )
  36. WScript.Echo "userPrincipalName: " & vbTab & userPN
  38. PosArobase = Instr(UserPN, "@" )
  39. Wscript.echo PosArobase
  40. ChaineNomPrenom=Left(UserPN, PosArobase-1)
  41. Wscript.echo ChaineNomPrenom


 :)

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed