Создать учетную запись пользователя с VBScript

Question

Я использую этот код для создания учетной записи пользователя,

Функция CreateUserAccount (acc, paas)

 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

Функция завершения

Пока все работает нормально, единственное, что мне нужно реализовать:

1. Когда имя пользователя уже есть в машине. Отобразить сообщение пользователю, сообщающее ему, что это имя пользователя уже существует.

Как я могу сделать это в VBScript? Есть ли код ошибки, который я могу поймать?

Спасибо

Answer 1

ОК, я нашел нужный мне сценарий:

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