Board logo

标题: VBS高手大人们请进啊 [打印本页]

作者: prison0803     时间: 2007-4-5 11:01    标题: VBS高手大人们请进啊

对于计算机加入工作组和域下面,
我想咨询下高手
VBS脚本可以实现添加用户到某个组么?

如果可以实现,可以帮忙调试下么?
感激万分

为有你们这些高手VBS大师而自豪~~~~~~
作者: ebfok     时间: 2007-4-15 01:18
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