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

结束功能

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

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

我怎样才能在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

使用VBScript创建用户帐户

1 个答案: