Créer un compte utilisateur avec VBScript

Question

J'utilise ce code pour créer un compte utilisateur,

Fonction CreateUserAccount (acc, ZAP)

Dim WinUserAccountName, WinUserAccountPass 

WinUserAccountName = Session.Property("WIN_USER_ACCOUNT") 
WinUserAccountPass = Session.Property("WIN_USER_PASS") 

strComputer = "." 
set objSystem = GetObject("WinNT://" & strComputer) 
set objUser = objSystem.Create("user", WinUserAccountName) 
objUser.SetPassword WinUserAccountPass 
objUser.SetInfo 

End Function

Il fonctionne bien jusqu'à présent, la seule chose que je dois implémenter est:

1. Lorsque le nom d'utilisateur est déjà dans la machine. Afficher un message à l'utilisateur en lui disant que ce nom d'utilisateur existe déjà.

Comment puis-je faire cela dans VBScript? Y a-t-il un code d'erreur que je peux attraper?

Merci,

Answer 1

OK, j'ai trouvé le script que je cherchais:

QueryForUser("kenmyer") 
Wscript.Echo "This user account does not exist." 

Sub QueryForUser(strUserName) 
    strComputer = "." 
    Set objDomain = GetObject("WinNT://" & strComputer) 
    objDomain.Filter = Array("user") 
    For Each User In objDomain 
     If lcase(User.Name) = lcase(strUserName) Then 
      WScript.Echo User.Name & " already exists." 
      WScript.Quit 
     End If  
    Next 
End Sub