ADSI
Sub AddUser(strUser,strDomain,StrFullname,StrPassword,StrDesc)
dim Computer
dim User
set Computer=GetObject("WinNT://"&strDomain)
set User=computer.create("User",strUser)
User.fullname=strFullname
User.Description=strDesc
Call User.SetPassword(strPassword)
User.setinfo
end sub
Sub AddUser(strUser,strDomain,StrFullname,StrPassword,StrDesc)
dim Computer
dim User
set Computer=GetObject("WinNT://"&strDomain)
set User=computer.create("User",strUser)
User.fullname=strFullname
User.Description=strDesc
Call User.SetPassword(strPassword)
User.setinfo
end sub
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货