[WS 2003] Script pour remplir le champ mail de Active directory

[derzy971]

Bonjour,

nous mettons en place un intranet dans notre entreprise avec une authentification sur Active directory.
Malheureusement, il faut que le champ mail soit rempli. L'adresse mail correspond au nom d'ouverture de session de l'utilisateur + le account_suffixe soit le userPrincipalName. Je veux faire un script qui récupère ce champ pour chaque utilisateur et qui remplisse le champ mail de l'utilisateur.

Pourriez-vous m'aider à réaliser cela ? car je n'y connais rien dans les scripts sous windows ou les GPO

[derzy971]

Si vous avez aussi des liens qui pourrait m'aider à réaliser cela, je suis preneur
je ne recherche pas forcément une solution toute faite, mais au moins une piste

[RabzorGT]

Je suis pas un spécialiste mais je sais que la commande dsmod user peut modifier tous les champs d'un user sur l'AD.

Tu pourrais l'utiliser avec un batch.

Regardes sur le technet dsmod user.

http://technet.microsoft.com/en-us/l...8WS.10%29.aspx

[padawandu77]

Afin de mettre en place un mail par user (mais bon cela ira aussi vite par la console Active Directory

Const ADS_PROPERTY_APPEND = 3

Set objUser = GetObject _
("LDAP://CN=user,OU=100-utilisateurs,OU=-standard,OU=groupe,DC=domaine,DC=fr") [Obtenu via ADSIEDIT.MSC afin d'eviter les erreurs

objUser.PutEx ADS_PROPERTY_APPEND, _
"Mail", Array("user@mondomaine.fr")
objUser.SetInfo

--------------------------------------

Ce qui serait souhaitable :
- creation d'une valeur User
- Inserer tes users dans une liste CSV
- Utiliser le resultat pour eviter de taper tous les noms à la main

[padawandu77]

Alors voici les etapes
1/Creation d'un dossier ou y seront insérer le script et le csv
2/ création d'une liste csv avec les informations voulus
3/Création du vbs
--------------------------------
'## debut script###
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Const ADS_PROPERTY_APPEND = 3

'on error resume next
dim fso, df1
CSVFile = "C:\dossier\SN_GivenNAME.csv"

Set fso = CreateObject("Scripting.FileSystemObject")
Set df1 = fso.OpenTextFile(CSVFile,ForReading,True)

Do while Not df1.AtEndOfStream
varLigne = df1.readline()
NomUser = split(varLigne,";")(0)
PrUser = split(varLigne,";")(1)
Login = split(varLigne,";")(2)
Mail = split(varLigne,";")(3)
Password = "P@ssw0rd12/"

Set objOU = GetObject("LDAP://NomDC/OU=utilisateurs,OU=management,DC=mondomaine,DC=fr")
Set objUser = objOU.Create("InetOrgPerson", "cn="&Login)
objUser.Put "sn", ""&NomUser
objUser.Put "givenname", ""&PrUser
objUser.Put "sAMAccountName", ""&Login
objUser.Put "UserPrincipalName", ""& Login &"@mondomaine.fr"
objUser.Put "mail", ""& Mail &"@mondomaine.fr"
objUser.SetInfo

pwd = GeneratePassword(8)
objuser.SetPassword ""& pwd
objUser.AccountDisabled=False
objUser.SetInfo
objUser.Put "PwdLastSet", 0
objUser.SetInfo

loop

df1.close

msgbox "OK"
WScript.Quit
'## fin script###


Function GeneratePassword(PasswordLenght)
Dim b
Dim i
Dim i2
Dim s
Dim Password
Randomize

For i = 1 To PasswordLenght

i2 = Int((6 - 2 + 1) * Rnd + 2)

If i2 = 4 Then 'genere une lettre majuscule
b = cByte((122 - 97) * Rnd + 97)
s = Chr(b)
ElseIf i2 = 3 Then ' genere un chiffre
b = cByte((57 - 48 ) * Rnd + 48)
s = Chr(b)
Else ' genere une lettre minuscule
b = cByte((122 - 97) * Rnd + 97)
s = Chr(b)
End If

Password = Password & s

Next

GeneratePassword = Password
'msgbox password
End Function
----------------------------------------------

[padawandu77]

Le scritp que j'ai fourni est utile lors de la creation de users en masse dans une OU particuliere

Aussi pour sastifaire ta recherche en attendant un script un peu mieux Galbé, telecharge et utilise admodify de Microsoft