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 |