怎样用VB建立WINDOWS用户

Question

怎样用VB建立WINDOWS用户，并做基本设置，如密码永不过期和不能修改密码

Answer 1

这个需要使用活动目录ADSI接口1.创建用户
下面这段代码在独立服务器white上创建用户user1,初始口令user1,用到了ADSI.
Dim Username,UserPass
Dim oDomain,oUser
Username = "user1"
UserPass = "user1"
Set oDomain = GetObject("WinNT://white")
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至于其他的属性，看代码提示

Answer 2

online(龙卷风V2.0--再战江湖) ，你说方法可以的，我想多学几种方法嘛，对了，你提供一下用户设置的参数啊，永不过期和不能改密码的

Answer 3

我没有测试，根据属性名称上面的代码没有提示功能
引用active ds type library
Dim user As IADsUser
user.AccountExpirationDate = "2040-9-9"
user.IsAccountLocked = True

Answer 4

太简单了,看来孩子,要加油呀!
shell "net user username password /add"