使用脚本更改计算机名和加入域、更改IP地址.doc

看到有人对VBS感兴趣，前一段时间研究了一阵。由于经常在公司装系统，必须做的三件事：1、更改IP地址（包括IP、子网掩码、网关、DNS）；2、更改计算机名；3、加入域。因此查了微软的资料，写了三个脚本，现拿出来，与大家分享，欢迎批评指正。1、更改IP地址文件名：更改IP地址.vbs代码：Set objShell = CreateObject(Wscript.Shell)IP = InputBox (输入新的IP地址,IP地址)NM= 子网掩码GW=left(IP,8) & 1 网关根据自己的实际情况录入，见下面的说明文字MDNS=0 首选DNSSDNS=0 备用DNSmsgbox ChangeIP(IP,NM,GW,MDNS,SDNS)Function ChangeIP(IP, NM, GW, MDNS, SDNS)Dim strComputer, objWMIService, colNetAdapters, strIPAddress, strSubnetMaskDim strGateway, strGatewaymetric, strDNS, objNetAdapter, errEnable, errGateways, errDNSstrComputer = .Set objWMIService = GetObject(winmgmts: & strComputer & rootcimv2)Set colNetAdapters = objWMIService.ExecQuery(Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE)strIPAddress=Array(IP)strSubnetMask=Array(NM)strGateway=Array(GW)strDNS = Array(MDNS, SDNS)strGatewaymetric = Array(1)For Each objNetAdapter In colNetAdapterserrEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric)errDNS = objNetAdapter.SetDNSServerSearchOrder(strDNS)If errEnable = 0 And errGateways = 0 And errDNS = 0 ThenChangeIP = 设置成功ElseIf errEnable = 0 ThenChangeIP = IP地址和子网掩码设置成功, ElseChangeIP = IP地址或子网掩码设置失败, End IfIf errGateways = 0 ThenChangeIP = ChangeIP & 默认网关设置成功, ElseChangeIP = ChangeIP & 默认网关设置失败, End IfIf errDNS = 0 ThenChangeIP = ChangeIP & DNS设置成功ElseChangeIP = ChangeIP & DNS设置失败End IfEnd IfNextEnd Function说明一下，由于我公司的IP地址为10.10.x.x，其中第三段不超过二位数，并且，网关最后一段都为1，因此，我在取网关时用了GW=left(IP,8) & 1 网关这么一句，这一句可以根据自己的情况更改。我本来想通过IP地址，取前面三段加上 1 组成网关，可是我没有找到相应的函数和方法来实现，希望高手能给补充一下。我的DNS都是相同的，因此直接录入了。使用方法：把上面的代码复制，并粘贴至记事本中，存为 更改IP地址.vbs 。双击就可以执行。2、更改计算机名文件名：更改计算机名.vbs代码：Dim revalSet objnet = CreateObject (WScript.Network)Set R = CreateObject(WScript.Shell)reval = InputBox (当前的计算机名是： & objnet.ComputerName,输入新的计算机名)On Error Resume NextstrComputer = .Set objWMIService = GetObject(winmgmts: _& impersonationLevel=impersonate! _& strComputer & rootcimv2)Set colComputers = objWMIService.ExecQuery _(Select * from Win32_ComputerSystem)For Each objComputer in colComputerserrReturn = ObjComputer.Rename (reval)If reval Thenreturn=MsgBox (你确定要重起计算机吗?,vbokcancel+vbexclamation,注意！)If return=vbok ThenR.run(Shutdown.exe -r -t 0)End ifEnd IfNext这个比较简单，没有什么好说的。3、加入域文件名：加入域.vbs代码：*把你的计算机加入域*Const JOIN_DOMAIN = 1Const ACCT_CREATE = 2Const ACCT_DELETE = 4Const WIN9X_UPGRADE = 16Const DOMAIN_JOIN_IF_JOINED = 32Const JOIN_UNSECURE = 64Const MACHINE_PASSWORD_PASSED = 128Const DEFERRED_SPN_SET = 256Const INSTALL_INVOCATION = 262144你的域名称strDomain = domain 这里不要按照我写的录入 ，录入你的域名。有domain admins组权限的用户及密码strPassword = password 这里不要按照我写的录入，应根据你自己的情况。录入具有domain admins组权限用户的密码strUser = user 这里不要按照我写的录入，应根据你自己的情况。录入具有domain admins组权限用户名Set objNetwork = CreateObject(WScript.Network)strComputer = objNetwork.ComputerNameSet objComputer = GetObject(winmgmts:impersonationLevel=Impersonate! & _strComputer & rootcimv2:Win32_ComputerSystem.Name= & _strComputer & )ReturnValue = objComputer.JoinDomainOrWorkGroup(strDomain, _strPassword, _strDomain & & strUser, _NULL, _JOIN_DOMAIN + ACCT_CREATE)加入域后，必须重起计算机Set objShell = CreateObject(Wscript.Shell)return=MsgBox (加入域后，必须重起计算机才能生效！,vbokcancel+vbexclamation,注意！)If return=vbok Thenobj