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

Creation d'utilisateurs et d'OUs sous AD (2003) avec input box [VBS] - VB/VBA/VBS - Programmation

Marsh Posté le 08-05-2009 à 21:45:58    

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  :o  
 
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 :
  1. Set objDomain = GetObject("LDAP://dc=fabrikam,dc=com" )
  2. Set objOU = objDomain.Create("organizationalUnit", "ou=Management" )
  3. objOU.SetInfo
  5. Set objOU = GetObject("LDAP://OU=Management,dc=fabrikam,dc=com" )
  6. Set objUser = objOU.Create("User", "cn= AckermanPilar" )
  7. objUser.Put "sAMAccountName", "AckermanPila"
  8. objUser.SetInfo
  10. Set objOU = GetObject("LDAP://OU=Management,dc=fabrikam,dc=com" )
  11. Set objGroup = objOU.Create("Group", "cn=atl-users" )
  12. objGroup.Put "sAMAccountName", "atl-users"
  13. objGroup.SetInfo
  15. 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:

Reply

Marsh Posté le 08-05-2009 à 21:45:58   

Reply

Marsh Posté le 08-05-2009 à 23:49:19    

Ca doit être un truc comme ça :
 

Code :
  1. Dim strOU
  2. strOU = inputbox("Nom OU" )
  3. Set objDomain = GetObject("LDAP://dc=fabrikam,dc=com" )
  4. Set objOU = objDomain.Create("organizationalUnit", "ou=" & strOU )
  5. objOU.SetInfo
  8. Dim strUser
  9. strUser = InputBox("Nom utilisateur" )
  10. Set objOU = GetObject("LDAP://OU=Management,dc=fabrikam,dc=com" )
  11. Set objUser = objOU.Create("User", "cn=" & strUser )
  12. objUser.Put "sAMAccountName", strUser
  13. objUser.SetInfo

Reply

Marsh Posté le 31-05-2009 à 11:13:45    

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)

Reply

Marsh Posté le 31-05-2009 à 11:39:57    

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 :D

Reply

Marsh Posté le 31-05-2009 à 13:22:03    

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.

Reply

Marsh Posté le 31-05-2009 à 13:27:35    

boucle sur l'array et insertion

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed