Dim sTmp As String
‘ Comando dsadd para agregar :
'dsadd user cn=TITI,OU=STUDENT,OU=LABOS,DC=eicw2,DC=be -disabled No -pwd MOTDEPASSE -canchpwd Yes -pwdneverexpires Yes -profile \\EICW2\Utilisateurs\TITI -hmdir \\EICW2\Utilisateurs\TITI -hmdrv X:
For i As Integer = 0 To ATratar.Length - 1
sTmp = "dsadd user cn=" & ATratar(i).Dos & "," & SConnex & " -disabled No -pwd " & ATratar(i).MdP & " -canchpwd Yes -pwdneverexpires Yes -profile \\" & TP(13).ToString & "\" & TP(1).Substring(TP(1).IndexOf("\") + 1) & "\" & ATratar(i).Dos & "\Profil_" & ATratar(i).Dos & " -hmdir \\" & TP(13).ToString & "\" & TP(1).Substring(TP(1).IndexOf("\") + 1) & "\" & ATratar(i).Dos & " -hmdrv X:" Shell(sTmp, AppWinStyle.Hide, True)
Next
‘Comando dsrm para eliminar :
SConnex &= ",OU=" & TP(5) & ",DC=" & TP(4).Substring(0, TP(4).IndexOf(".")) & ",DC=" & TP(4).Substring(TP(4).IndexOf(".") + 1) For i As Integer = 0 To ATratar.Length - 1
sTmp = "dsrm -noprompt cn=" & ATratar(i).Dos & "," & SConnex
Shell(sTmp, AppWinStyle.Hide, True)
Next
Crear cuenta
