VBS高手大人们请进啊 - 中国DOS联盟论坛 - 中国DOS联盟之联合DOS论坛

Create User Account

Description
Creates a user account in Active Directory. This script only creates the account, it does not enable it.

Script Code

Set objOU = GetObject("LDAP://OU=management,dc=fabrikam,dc=com")
Set objUser = objOU.Create("User", "cn=MyerKen")
objUser.Put "sAMAccountName", "myerken"
objUser.SetInfo

Enable a User Account

Description
Enables a user account.

Script Code

Set objUser = GetObject _
("LDAP://cn=myerken,ou=management,dc=fabrikam,dc=com")
objUser.AccountDisabled = FALSE
objUser.SetInfo

第1楼　prison0803	发表于 2007-04-05 11:01
新手上路　发帖 7　积分 19
VBS高手大人们请进啊对于计算机加入工作组和域下面，我想咨询下高手 VBS脚本可以实现添加用户到某个组么？如果可以实现，可以帮忙调试下么？感激万分为有你们这些高手VBS大师而自豪~~~~~~

第2楼　ebfok	发表于 2007-04-15 01:18
初级用户　发帖 33　积分 87　来自 cs
Create User Account Description Creates a user account in Active Directory. This script only creates the account, it does not enable it. Script Code Set objOU = GetObject("LDAP://OU=management,dc=fabrikam,dc=com") Set objUser = objOU.Create("User", "cn=MyerKen") objUser.Put "sAMAccountName", "myerken" objUser.SetInfo Enable a User Account Description Enables a user account. Script Code Set objUser = GetObject _ ("LDAP://cn=myerken,ou=management,dc=fabrikam,dc=com") objUser.AccountDisabled = FALSE objUser.SetInfo