网络编程
位置:首页>> 网络编程>> Asp编程>> 如何在独立服务器上创建用户?

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

  发布时间:2010-06-18 19:59:00 

标签:服务器,asp,用户

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

假设独立服务器是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

 

0
投稿

猜你喜欢

手机版 网络编程 asp之家 www.aspxhome.com