Windows 使用VBScript创建用户帐户

我正在使用此代码创建用户帐户

函数CreateUserAccount（acc、paas）

端函数

到目前为止，它工作正常，我唯一需要实现的是：

当用户名已在计算机中时。向用户显示消息，告诉他/她此用户名已存在

如何在VBScript中执行此操作？我能捕捉到错误代码吗

---

谢谢，

好的，我找到了我要找的脚本：

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

---

您正在使用哪个安装框架？

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