VBS脚本添加系统帐户及从新启动和关闭计算机的

页面导航:首页 > 软件编程 > vb.net > VBS脚本添加系统帐户及从新启动和关闭计算机的

VBS脚本添加系统帐户及从新启动和关闭计算机的

来源: 作者: 时间:2016-02-05 12:32 【

作者:黑妖蛇注:其实这是 按照ADSI(Active Directory Services Interface:活动目录服务接口)写的程序。如果 你安装了resource kit,这段代码可以用netcom这条命令进行工作,下面是netcom的一个例

作者:黑妖蛇
注:其实这是 按照ADSI(Active Directory Services Interface:活动目录服务接口)写的程序。如果

你安装了resource kit,这段代码可以用netcom这条命令进行工作,下面是netcom的一个例子:NETDOM

/Domain:MYDOMAIN /user:adminuser /password:apassword MEMBER MYCOMPUTER /ADD

***********************
* Start Script
***********************
Dim sComputerName, sUserOrGroup, sPath, computerContainer, rootDSE, lFlag
Dim secDescriptor, dACL, ACE, oComputer, sPwd

*********************************************************************
* Declare constants used in defining the default location for the
* machine account, flags to identify the object as a machine account,
* and security flags
*********************************************************************

Const UF_WORKSTATION_TRUST_ACCOUNT = &H1000
Const UF_ACCOUNTDISABLE = &H2
Const UF_PASSWD_NOTREQD = &H20
Const ADS_GUID_COMPUTRS_CONTAINER = "aa312825768811d1aded00c04fd8d5cd"
Const ADS_ACETYPE_ACCESS_ALLOWED = 0
Const ADS_ACEFLAG_INHERIT_ACE = 2

*********************************************************************
* Set the flags on this object to identify it as a machine account
* and determine the name. The name is used statically here, but may
* be determined by a command line parameter or by using an InputBox
*********************************************************************

lFlag = UF_WORKSTATION_TRUST_ACCOUNT Or UF_ACCOUNTDISABLE Or UF_PASSWD_NOTREQD
sComputerName = "TestAccount"

*********************************************************************
* Establish a path to the container in the Active Directory where
* the machine account will be created. In this example, this will
* automatically locate a domain controller for the domain, read the
* domain name, and bind to the default "Computers" container
*********************************************************************

Set rootDSE = GetObject("")
sPath = " "samAccountName", sComputerName + "$"
oComputer.Put "userAccountControl", lFlag
oComputer.SetInfo

*********************************************************************
* Establish a default password for the machine account
*********************************************************************

sPwd = sComputerName & "$"
sPwd = LCase(sPwd)
oComputer.SetPassword sPwd

*********************************************************************
* Specify which user or group may activate/join this computer to the
* domain. In this example, "MYDOMAIN" is the domain name and
* "JoeSmith" is the account being given the permission. Note that
* this is the downlevel naming convention used in this example.
*********************************************************************

sUserOrGroup = "MYDOMAINjoesmith"

*********************************************************************
* Bind to the Discretionary ACL on the newly created computer account
* and create an Access Control Entry (ACE) that gives the specified
* user or group full control on the machine account
*********************************************************************

Set secDescriptor = oComputer.Get("ntSecurityDescriptor")
Set dACL = secDescriptor.DiscretionaryAcl
Set ACE = CreateObject("AccessControlEntry")

*********************************************************************
* An AccessMask of "-1" grants Full Control
*********************************************************************

ACE.AccessMask = -1
ACE.AceType = ADS_ACETYPE_ACCESS_ALLOWED
ACE.AceFlags = ADS_ACEFLAG_INHERIT_ACE

*********************************************************************
* Grant this control to the user or group specified earlier.
*********************************************************************

ACE.Trustee = sUserOrGroup

*********************************************************************
* Now, add this ACE to the DACL on the machine account
*********************************************************************

dACL.AddAce ACE
secDescriptor.DiscretionaryAcl = dACL

*********************************************************************
* Commit (write) the security changes to the machine account
*********************************************************************

oComputer.Put "ntSecurityDescriptor", Array(secDescriptor)
oComputer.SetInfo

*********************************************************************
* Once all parameters and permissions have been set, enable the
* account.
*********************************************************************

oComputer.AccountDisabled = False
oComputer.SetInfo

*********************************************************************
* Create an Access Control Entry (ACE) that gives the specified user
* or group full control on the machine account
*********************************************************************

wscript.echo "The command completed successfully."

*****************
* End Script
*****************
出于很多管理限制,可能无法直接使用Windows的explorer shell,需要在命令行方式下对远程计算机进

行操作。而命令行下所支持的命令远不能满足我们的需要,除了Windows XP支持用shutdown命令重启、关

闭或注销当前计算机之外,其他的Windows平台均未将类似功能作为基本命令。“Windows 管理规范”

(WMI) 脚本系统(如 Windows 主机脚本)的 WMI 可以用来检索大多数计算机系统方面的配置详细信息(

包括服务器应用),或者做出可以影响到系统的更改。其实WMI我们并不陌生,有几个管理工具就是启用

WMI的,比如“系统属性”、“系统信息”和“服务”的“依存关系”。

1.重启远程或者本地计算机

打开任意文本编辑器,(建议用UltraEdit,因为可以自动设置内容的醒目提示类型,关键字会加亮

显示)键入以下内容:
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate,(Shutdown)}!\" & strComputer & " ootcimv2")
Set colOperatingSystems = objWMIService.ExecQuery _
("Select * from Win32_OperatingSystem")
For Each objOperatingSystem in colOperatingSystems
ObjOperatingSystem.Reboot()
Next
另存为.VBS文件,比如reboot.vbs,放入systemrootsystem32下(systemroot是指Windows的安装目录)

,在命令行输入reboot就会自动执行该脚本。之所以放在systemroot下是因为Windows默认设置的环

境变量在此文件夹。需要说明的是strComputer这个变量:如果这个脚本要在远程计算机上执行,则变量

内容"."修改成远程计算机名。例如我们要在LAN内机器名为Server的计算机上执行这个脚本,那么变量名

相应修改成strComputer = "Server"。前提是已经取得Server上的相应权限。

2.关闭本地计算机

XP的shutdown命令需要设置一些参数才能正确执行,远不如在命令行下执行VBS脚本方便。同样在文

本编辑器中键入以下内容:
Set colOperatingSystems = GetObject("winmgmts:{(Shutdown)}").ExecQuery("Select * from

Win32_OperatingSystem")
For Each objOperatingSystem in colOperatingSystems
ObjOperatingSystem.Win32Shutdown(1)
Next
另存为.VBS文件,如果在XP下就不要存成和shutdown同名了。执行后能够快速关闭计算机。

提示:关于Windows脚本宿主的升级。如果当前使用的是 Windows 2000 或 Windows ME,则计算机系

统中安装的是 2.0 版的 WSH。如果运行的是 Windows 95、98 或 Windows NT 4.0,则安装的是 1.0 版

。若要升级到 WSH 5.6,请访问 Microsoft Windows 脚本技术 Web 站点,网址为:

()。升级到最新版本以保证脚本能够正确执行。

Tags:

相关文章

    文章评论

    最 近 更 新
    热 点 排 行
    Js与CSS工具
    代码转换工具
    
    <