删除服务

[ 2005/07/09 09:42 | by gOxiA ]

描述
删除名为 DbService 的假定服务。


脚本代码
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{ impersonationLevel=impersonate }!\\" & strComputer & "\root\cimv2")
Set colListOfServices = objWMIService.ExecQuery _
("Select * from Win32_Service Where Name = 'DbService'")
For Each objService in colListOfServices
objService.StopService()
objService.Delete()
Next

将 1,000 个用户添加到安全组

[ 2005/07/09 09:25 | by gOxiA ]

描述

演示脚本创建一个名为 Group1 的安全组,并且将一千个用户(UserNo1 到 UserNo10000)添加到该组。此脚本不可用于生产环境。

有关使用 ADSI 创建对象的更多信息,请单击 此处


支持平台

Windows Server 2003

Windows XP

Windows 2000

Windows NT 4.0

是,需要安装 Active Directory Client Extensions


脚本代码
Const ADS_PROPERTY_APPEND = 3
Set objRootDSE = GetObject("LDAP://rootDSE")
Set objContainer = GetObject("LDAP://cn=Users," & _
                              objRootDSE.Get("defaultNamingContext"))
Set objGroup = objContainer.Create("Group", "cn=Group1")
objGroup.Put "sAMAccountName","Group1"
objGroup.SetInfo
For i = 1 To 1000
strDN = ",cn=Users," & objRootDSE.defaultNamingContext
 objGroup.PutEx ADS_PROPERTY_APPEND, "member", _
   Array("cn=UserNo" & i & strDN)
 objGroup.SetInfo
Next
WScript.Echo "Group1 created and 1000 Users added to the group."

更改 Windows 本地管理员密码

[ 2005/07/09 09:22 | by gOxiA ]

描述

绑定到计算机 MyComputer 上的本地管理员帐户,并且将该帐户的密码更改为 testpassword

有关使用本地用户帐户的详细信息,请单击 此处


支持平台

Windows XP

Windows Server 2003

Windows 2000

Windows NT 4.0

是,需要安装Active Directory Client Extensions

Windows 98

是,需要安装Active Directory Client Extensions


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

分页: 443/474 第一页 上页 438 439 440 441 442 443 444 445 446 447 下页 最后页 [ 显示模式: 摘要 | 列表 ]