pzg's blog

Set objContainer = GetObject _ ("LDAP://ou=Sales,dc=NA,dc=fabrikam,dc=com") objContainer.Put "managedBy", "cn=AkersKim,ou=Sales,dc=NA,dc=fabrikam,dc=com" objContainer.SetInfo

分类: 电脑技巧 标签:域服务器 日期:2011-05-21

strComputer = "MyComputer"
Set objUser = GetObject("WinNT://" & strComputer & "/Administrator, user")
objUser.SetPassword "testpassword"
objUser.SetInfo

分类: 电脑技巧 标签:域服务器 日期:2011-05-20

Const ADS_PROPERTY_UPDATE = 2
Set objUser = GetObject _
("LDAP://cn=myerken,ou=management,dc=fabrikam,dc=com")

objUser.Put "givenName", "Ken"
objUser.Put "initials", "E."
objUser.Put "sn", "Myer"
objUser.Put "displayName", "Myer, Ken"
objUser.Put "physicalDeliveryOfficeName", "Room 4358"
objUser.Put "telephoneNumber", "(425) 555-1211"
objUser.Put "mail", "myerken@fabrikam.com"
objUser.Put "wWWHomePage", "http://www.fabrikam.com"

objUser.PutEx ADS_PROPERTY_UPDATE, _
"description", Array("Management staff")
objUser.PutEx ADS_PROPERTY_UPDATE, _
"otherTelephone", Array("(800) 555-1212", "(425) 555-1213")
objUser.PutEx ADS_PROPERTY_UPDATE, _
"url", Array("http://www.fabrikam.com/management")

objUser.SetInfo

分类: 电脑技巧 标签:域服务器 日期:2011-05-19

On Error Resume Next
Const ADS_PROPERTY_UPDATE = 2

Set objUserTemplate = _
    GetObject("LDAP://cn=userTemplate,OU=Management,dc=NA,dc=fabrikam,dc=com")
arrUserCertificates = objUserTemplate.GetEx("userCertificate")

Set objUser = _
    GetObject("LDAP://cn=MyerKen,OU=Management,dc=NA,dc=fabrikam,dc=com")
objUser.PutEx ADS_PROPERTY_UPDATE, "userCertificate", arrUserCertificates
objUser.SetInfo

分类: 电脑技巧 标签:域服务器 日期:2011-05-18

Set objGroup = GetObject _
  ("LDAP://cn=Scientists,ou=R&D,dc=NA,dc=fabrikam,dc=com")
 
objGroup.Put "managedBy", "cn=MyerKen,ou=Management,dc=NA,dc=fabrikam,dc=com"
objGroup.SetInfo

分类: 电脑技巧 标签:域服务器 日期:2011-05-17

Const ADS_PROPERTY_APPEND = 3

Set objUser = GetObject _
   ("LDAP://cn=MyerKen,ou=Management,dc=NA,dc=fabrikam,dc=com")
objUser.PutEx ADS_PROPERTY_APPEND, "otherHomePhone", Array("(425) 555-0116")
objUser.SetInfo

分类: 电脑技巧 标签:域服务器 日期:2011-05-16

为用户附加额外的住宅电话号码。

脚本代码

Const ADS_PROPERTY_APPEND = 3 

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

objUser.PutEx ADS_PROPERTY_APPEND, _
"otherHomePhone", Array("(425) 555-1113")

objUser.SetInfo

分类: 电脑技巧 标签:域服务器 日期:2011-05-11

将两个组（Executives 和 Scientists）和一个用户帐户 (MyerKen) 添加到 Active Directory 中的 Sea-Users 组。

有关使用 ADSI 修改属性的更多信息，请单击 此处。

支持平台

Windows Server 2003
是
 
Windows XP
是
 
Windows 2000
是
 
Windows NT 4.0
是，需要安装 Active Directory Client Extensions
 

脚本代码

Const ADS_PROPERTY_APPEND = 3
Set objGroup = GetObject _
  ("LDAP://cn=Sea-Users,cn=Users,dc=NA,dc=fabrikam,dc=com")
objGroup.PutEx ADS_PROPERTY_APPEND, "member", _
    Array("cn=Scientists,ou=R&D,dc=NA,dc=fabrikam,dc=com", _
      "cn=Executives,ou=Management,dc=NA,dc=fabrikam,dc=com", _
      "cn=MyerKen,ou=Management,dc=NA,dc=fabrikam,dc=com")
objGroup.SetInfo

分类: 电脑技巧 标签:域服务器 日期:2011-05-10

将用户 (MyerKen) 添加到两个不同的 Active Directory 安全组：Atl-Users 和 NA-Employees。

有关在这段代码中使用的 PutEx 方法的更多信息，请单击 此处。

支持平台

Windows XP
是
 
Windows Server 2003
是
 
Windows 2000
是
 
Windows NT 4.0
是，需要安装 Active Directory Client Extensions
 
Windows 98
是，需要安装 Active Directory Client Extensions
 

脚本代码

Const ADS_PROPERTY_APPEND = 3

Set objGroup = GetObject _
    ("LDAP://cn=Atl-Users,cn=Users,dc=NA,dc=fabrikam,dc=com")
objGroup.PutEx ADS_PROPERTY_APPEND, _
    "member", Array("cn=MyerKen,ou=Management,dc=NA,dc=fabrikam,dc=com")
objGroup.SetInfo

Set objGroup = GetObject _
    ("LDAP://cn=NA-Employees,cn=Users,dc=NA,dc=fabrikam,dc=com")
objGroup.PutEx ADS_PROPERTY_APPEND, _
    "member", Array("cn=MyerKen,ou=Management,dc=NA,dc=fabrikam,dc=com")
objGroup.SetInfo

分类: 电脑技巧 标签:域服务器 日期:2011-05-09

描述
将用户添加到名为 MyComputer 的计算机的本地管理员组。

有关使用本地组的详细信息，请单击此处。

支持平台

Windows XP
是
 
Windows Server 2003
是
 
Windows 2000
是
 
Windows NT 4.0
是，需要安装 Active Directory Client Extensions
 
Windows 98
是，需要安装 Active Directory Client Extensions
 

脚本代码

strComputer = "MyComputer"
Set objGroup = GetObject("WinNT://" & strComputer & "/Administrators,group")
Set objUser = GetObject("WinNT://" & strComputer & "/kenmyer,user")
objGroup.Add(objUser.ADsPath)

分类: 电脑技巧 标签:域服务器 日期:2011-05-08