如何在独立服务器上创建用户？

如何在独立服务器上创建用户？

假设独立服务器是intels，我们用ADSI来创建一个用户liyanbing，初始口令定为3625：

 Dim Username,UserPass
    Dim oDomain,oUser
    Username = "liyanbing"
    UserPass = "3625"
    Set oDomain = GetObject("WinNT://intels")
    Set oUser = oDomain.Create ("user", UserName)
    If (err.number = 0) Then
        oUser.SetInfo
        oUser.SetPassword UserPass
        oUser.SetInfo
    Else
        WScript.Echo "哎呀,创建用户" & UserName & "出错了！"
    End If
    Set oUser = Nothing
    Set oDomain = Nothing