1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33
| Private Sub trtCre()
' fonction de creation d un user (hors MMACONSEIL, BSI ou inspecteur)
On Error Resume Next
Set objet = domain.GetObject("organizationalUnit", RechDN)
If Err.Number Then
wscript.echo "!!! Pb trt creation : PB connexion " & RechDN & " (" & Err.Number & ")"
Exit Sub
Else
Set ouUser = objet.Create("user", CN_User)
If Err.Number Then
wscript.echo "!!! Pb1 a la creation user " & Badge_Lu & " (" & Err.Number & ")"
Exit Sub
Else
ouUser.put "sAMAccountName" , Badge_Lu
If Err.Number Then
wscript.echo "!!! Pb2 a la creation user " & Badge_Lu & " (" & Err.Number & ") pb put sAMAccountName"
Exit Sub
Else
ouUser.setinfo
If Err.Number Then
wscript.echo "!!! Pb3 a la creation user " & Badge_Lu & " (" & Err.Number & ") pb put sAMAccountName"
Exit Sub
Else
RechDN = ouUser.get("distinguishedName")
Pos_Fin_DN = Instr (RechDN, ",DC")
RechDN = Left(RechDN, Pos_Fin_DN - 1)
AttrTech()
End If
End If
End If
End If
End Sub |
Partager