Tips Hints Windows

Trucs & Astuces Windows

Script pour créer utilisateur ... (Windows server)

Voici un script qui permet de créer automatiquement un compte.
Adaptez le à vos besoins.
Ce script devra avoir l'extension vbs
Vous pouvez télécharger le dernier moteur de script ICI

Option Explicit
		Const WAIT_ON_RETURN = True
		Const HIDE_WINDOW = 0
		Const USER_ROOT_UNC = "\dc1\users" 	'Mettre le rep racine ici
		Dim WshShell, WshNetwork, objFS, objServer, objShare
		Set WshShell = Wscript.CreateObject("Wscript.Shell")
		Set WshNetwork = WScript.CreateObject("WScript.Network")
		Set objFS = CreateObject("Scripting.FileSystemObject")
		Set ou = GetObject("LDAP:   //OU=Users,OU=Billing,OU=Network,DC=my,DC=domain,DC=com")
			<font color='yellow'>'Utilisateur
		Set usr = ou.Create("user", "CN=Jean Dupont")
		usr.Put "samAccountName", "jdupont"
		usr.Put "sn", "Dupont"
		usr.Put "givenName", "Jean"
		usr.Put "userPrincipalName", "jdupont@mondomaine.com"
		usr.Put "telephoneNumber", "01 23 45 67 89"
		usr.Put "title", "Coinceur de Bulle"
		usr.SetInfo
		usr.SetPassword "secret***!"   'reset mot de passe
		usr.AccountDisabled = False      'active le compte
		usr.SetInfo
			'repertoire et permissions ( adapter )
		strUser = usr.samAccountName
		Call objFS.CreateFolder(USER_ROOT_UNC & "/" & strUser)
		Call WshShell.Run("cacls " & USER_ROOT_UNC \& "/" & strUser & _" /e /g Administrators:F", HIDE_WINDOW, WAIT_ON_RETURN)
		Call WshShell.Run("cacls " & USER_ROOT_UNC \& "/" & strUser & _" /e /g " & strUser & ":C", HIDE_WINDOW, WAIT_ON_RETURN)

Retour Menu page 6

Page de Jean-Paul Molina

Subjects

Resources

C.A.D.

Langages

Flash

Systems

Social Networks

Trucs & Astuces Windows

Script pour créer utilisateur ... (Windows server)