1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79
| 'Déclaration des variables
DIM nom,prenom,ou,caractere,login
do while nom="" or prenom=""
nom = InputBox("Entrez un nom ","Nom")
prenom = InputBox("Entrez un prénom ","Prenom")
ou = InputBox("Dans quel Unité d'organisation voulez vous mettre l'utilisateur ?","Unite d'organisation")
loop
compteur = 1
'caractere = Left(prenom,1)
login = Left(prenom, compteur) + (nom)
'Détermine le chemin LDAP du domaine
Set Root = GetObject("LDAP://RootDSE")
DomainPath = Root.Get("DefaultNamingContext")
'Indique le chemin ou créer l'utilisateur
Set chemin = GetObject("LDAP://OU="&ou &","& domainpath)
' Créé l'utilisateur dans l'OU
Set oUser = chemin.Create("user", "CN=" & prenom&" "&nom)
oUser.Put "SamAccountName", login
oUser.Put "userPrincipalName", login
oUser.Put "displayName", prenom&" "&nom
oUser.Put "mail", prenom & "." & nom &"@termier"
oUser.sn = nom
oUser.GivenName = prenom
oUser.homeDirectory = "\\BigBoss\Perso\"& prenom &" "& nom &""
oUser.homeDrive = "J:"
oUser.scriptPath = "service"
oUser.SetInfo
wscript.echo "Utilisateur créé"
if oUser.AccountDisabled = TRUE then
WScript.Echo "Le compte de " & prenom &" "& nom &" est actuellement désactivé"
WScript.Echo "Le compte de " & prenom &" "& nom &" va être activé"
if strDisableAccount = FALSE then
oUser.AccountDisabled = strDisableAccount
oUser.SetInfo
WScript.Echo "Le compte est maintenant activé"
end if
end if
wscript.echo "Le dossier de " & prenom &" "& nom &" va être créé"
'Création dossier utilisateur
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.CreateFolder("\\BigBoss\Perso\" & prenom &" "& nom & "")
'Gestion des droits
Set wShell = CreateObject("wscript.shell")
lignedecommande ="Cacls ""C:\Perso\" & prenom &" "& nom & """ /T /C /P " & login & ":C Administrateurs:F"
wShell.run lignedecommande |
Partager