[VBS] Creation d'utilisateurs et d'OUs sous AD (2003) avec input box

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [VBS] Creation d'utilisateurs et d'OUs sous AD (2003) avec input box

rainbow78

Bonjour à tous !

Je suis actuellement ~~nul à chier~~ débutant en scripting et j'aurais besoin d'un coup de main.

Après avoir passer pas mal de temps sur le site de technet, je n'ai pas réussi à faire ce que je voulais, à savoir créer des OUs et des utilisateurs avec des input box.

Donc voilà si quelqu'un pouvait consacrer un peu de temps à m'expliquer la méthode à utiliser car là je dois avouer que je suis franchement pommer ...
La programmation c'est vraiment pas mon truc

Bon y'a toujours le code fournit par Microsoft pour une simple création d'OUs et de users dont je dois m'inspirer j'imagine ...

Code :

Set objDomain = GetObject("LDAP://dc=fabrikam,dc=com" )
Set objOU = objDomain.Create("organizationalUnit", "ou=Management" )
objOU.SetInfo
Set objOU = GetObject("LDAP://OU=Management,dc=fabrikam,dc=com" )
Set objUser = objOU.Create("User", "cn= AckermanPilar" )
objUser.Put "sAMAccountName", "AckermanPila"
objUser.SetInfo
Set objOU = GetObject("LDAP://OU=Management,dc=fabrikam,dc=com" )
Set objGroup = objOU.Create("Group", "cn=atl-users" )
objGroup.Put "sAMAccountName", "atl-users"
objGroup.SetInfo
objGroup.Add objUser.ADSPath

En rajoutant quelques mot clé "inputBox" au bon endroit ça doit le faire non ?

~~Putain mais c'est quoi ce gros noob !!~~

Je ne cherche pas forcément "la réponse" mais au moins quelque chose sur quoi m'appuyer et qui pourrait m'aider.

Merci par avance :jap:

Publicité

Je@nb

Kindly give dime

Ca doit être un truc comme ça :

Code :

Dim strOU
strOU = inputbox("Nom OU" )
Set objDomain = GetObject("LDAP://dc=fabrikam,dc=com" )
Set objOU = objDomain.Create("organizationalUnit", "ou=" & strOU )
objOU.SetInfo
Dim strUser
strUser = InputBox("Nom utilisateur" )
Set objOU = GetObject("LDAP://OU=Management,dc=fabrikam,dc=com" )
Set objUser = objOU.Create("User", "cn=" & strUser )
objUser.Put "sAMAccountName", strUser
objUser.SetInfo

rainbow78

Bon après avoir un fourni un vrai effort cette fois ci, voici mon nouveau script d'ajout d'utilisateurs sous AD.

Je souhaite avoir la possibilité d'ajouter l'utilisateur de deux façon.
Soit à la main en tapant son nom dans une input box ou alors à partir d'un fichier txt séparant chaque nom d'utilisateur par un ";".

Voici ce que ça donne pour l'instant

isValid = True

Do While isValid
UserInput = InputBox("1: Manuel - 2: Auto", "Saissez votre choix" )

If UserInput = 1 Then
Manuel()
isValid = True
Else
If UserInput = 2 Then
MsgBox("Choix 2" )
isValid = True
Else
isValid = False
End If
End If

Loop

Function Manuel()

isOk = True

Do While isOk

UserLastName = InputBox("Nom de la personne", "Saissez le nom de la personne" )

Set WshShell = CreateObject("WScript.Shell" )
WshShell.Run("dsadd user Cn=" + UserLastName + ",OU=DSI,DC=toto,DC=com" )

answer = MsgBox("Voulez vous continuer", vbInterrogation+vbYesNo, "Question" )

If answer = vbYes Then
isOk = True
Else
isOk = False
End If

Loop

End Function

Function Automatique()
Dim oFSO
Dim FichierCSV

Set oFSO = CreateObject( "Scripting.FileSystemobject" )
Set FichierCSV = oFSO.OpenTextFile( "C:\Documents and Settings\Administrateur.WIN2K3\Bureau\users.txt" )

Do While FichierCSV.AtEndOfStream = False
aData = FichierCSV.ReadLine
sData = Split(aData , ";" )

Set WSHShell = CreateObject("WScript.Shell" )

End Function

Ma première fonction d'ajout manuel fonctionne mais pas l'automatique.
De plus les comptes que je créé sont désactivé par défaut ce qui m'embête un peu je dois l'avouer :ange:

Un p'tit coup de main pour finir ce VBS svp [:ddr555]
(voir l'améliorer)

Je@nb

Kindly give dime

Manque la fin de ta fonction auto là. Elle crée un shell et c'est tout
Et bon passer par dsadd alors qu'il y a des outils intégré à VBS c bizarre

rainbow78

Oui, il manque la fin du auto mais le problème c'est que je ne sais pas comment m'y prendre une fois que j'ai fait le split pour insérer les utilisateurs sur mon AD.

Je@nb

Kindly give dime

boucle sur l'array et insertion

FORUM HardWare.fr

Programmation

VB/VBA/VBS

[VBS] Creation d'utilisateurs et d'OUs sous AD (2003) avec input box

Sujets relatifs
Aide avec les servlets :)	[SQL] Problème création BDD SQL
[VBS] goto en VBS	Extension FrontPage sur Win 2003 serv avec EasyPhP
creation de representation de hieroglyphique en vb.net 2005	création de formulaire
Récuperer le chemin <input type="file"	Creation d'un index pour fichier
[RESOLU] - [C#] - Lancement et Création de Thread	[Résolu] Algo de création d'une clé de validation
Plus de sujets relatifs à : [VBS] Creation d'utilisateurs et d'OUs sous AD (2003) avec input box

Page générée en 0.073 secondes