- Visual Basic / VB.NET : Script vbs pour installer vos applications ! - CodeS SourceS
- Visual Basic / VB.NET : Chope la ! un pitit jeu tranquille qui utilise les fonctions de base du vb (
- Visual Basic / VB.NET : Script vbs prenant place du raccourci internet explorer et permettant de cha
- Creation + utilisation d'une libraire (classes & fonctions)
- ASP / ASP.NET : Exécuter un script vb.net lors d?une transformation xslt - CodeS SourceS
Creation utilisateurs win 2003 avec un script vbs
'Voila les constantes et les variables dont nous allons avoir besoins :
Const DOMAIN = "DC=BJ,DC=BTS"
Const ISSYPWD = "IssyPwd0!"
Const NYPWD = "NyPwd0!"
Const SUFFIX = "@bj.bts"
Const UAC = 544
Dim In1, In2, In3, Login, Name, FullName, FullLogin
'vbStyle = vbOkCancel + vbInterrogation + vbDefaultButton1
'==========================================
' SYNTAXE ET UTILISATION DU PROGRAMME'
In1 = InputBox("Quel prénom ?","Prénom?","Entrez ici le prénom")
In2 = InputBox("Quel nom ?","Nom?","Entrez ici le nom")
In3 = InputBox("Quelle site ? (Issy ou New-York)","Unite d'organisation","Issy New-York")
Login = Lcase(left(In1,1) & In2)
Name = Ucase(In2)
FullLogin = Login & SUFFIX
FullName = In1 & " " & Name
Set objOU = GetObject("LDAP://OU="& In3 &",dc=bj,dc=bts")
Set objUser = objOU.Create("User", "cn="&FullName)
objUser.Put "sAMAccountName", Login
objUser.Put "sn", Name
objUser.Put "userPrincipalName", FullLogin
objUser.Put "givenName", In1
objUser.Put "displayName", FullName
objUser.Put "userAccountControl", UAC
objUser.Put "physicalDeliveryOfficeName", In3
objUser.SetInfo
'objUser.Put "userAccountControl", VALEURS :=>
'512 - Enable Account
'514 - Disable account
'544 - Account Enabled - Require user to change password at first logon
'66048 - Password never expires
'262656 - Smart Card Logon Required
J'espère avoir pu vous aider !! Cordialement BJ
A voir également
- Creation utilisateurs win 2003 avec un script vbs
- Assistance création de rêgle sous Outlook 2003 (avec un script) ✓ - Forum - Visual Basic 6
- Script vbs exemple - Guide
- Installation d'un programme vb6 avec innosetup en utilisant l'assistant d'installation de vb - Conseils pratiques - Visual Basic / VB.NET
- Masquer un dossier (script vbs) - Codes sources - Visual Basic / VB.NET (VBScript)
- Visual Basic / VB.NET : Script vbs pour installer vos applications ! - CodeS SourceS - Guide
Ce document intitulé « Creation utilisateurs win 2003 avec un script vbs » issu de CodeS SourceS (codes-sources.commentcamarche.net) est mis à disposition sous les termes de la licence Creative Commons. Vous pouvez copier, modifier des copies de cette page, dans les conditions fixées par la licence, tant que cette note apparaît clairement.