资源描述：
《使用脚本更改计算机名和加入域、更改ip地址》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。
1、看到有人对VBS感兴趣，前一段时间研究了一阵。由于经常在公司装系统，必须做的三件事：1、更改IP地址（包括IP、子网掩码、网关、DNS）；2、更改计算机名；3、加入域。因此查了微软的资料，写了三个脚本，现拿出来，与大家分享，欢迎批评指正。1、更改IP地址文件名：更改IP地址.vbs代码：SetobjShell=CreateObject("Wscript.Shell")IP=InputBox("输入新的IP地址","IP地址")NM="255.255.255.0"'子网掩码GW=left(IP,8
2、)&"1"'网关根据自己的实际情况录入，见下面的说明文字MDNS="10.10.10.10"'首选DNSSDNS="10.10.10.30"'备用DNSmsgboxChangeIP(IP,NM,GW,MDNS,SDNS)FunctionChangeIP(IP,NM,GW,MDNS,SDNS)DimstrComputer,objWMIService,colNetAdapters,strIPAddress,strSubnetMaskDimstrGateway,strGatewaymetric,str
3、DNS,objNetAdapter,errEnable,errGateways,errDNSstrComputer="."SetobjWMIService=GetObject("winmgmts:\"&strComputer&"rootcimv2")SetcolNetAdapters=objWMIService.ExecQuery("Select*fromWin32_NetworkAdapterConfigurationwhereIPEnabled=TRUE")strIPAddress=A
4、rray(IP)strSubnetMask=Array(NM)strGateway=Array(GW)strDNS=Array(MDNS,SDNS)strGatewaymetric=Array(1)ForEachobjNetAdapterIncolNetAdapterserrEnable=objNetAdapter.EnableStatic(strIPAddress,strSubnetMask)errGateways=objNetAdapter.SetGateways(strGateway,st
5、rGatewaymetric)errDNS=objNetAdapter.SetDNSServerSearchOrder(strDNS)IferrEnable=0AnderrGateways=0AnderrDNS=0ThenChangeIP="设置成功"ElseIferrEnable=0ThenChangeIP="IP地址和子网掩码设置成功,"ElseChangeIP="IP地址或子网掩码设置失败,"EndIfIferrGateways=0ThenChangeIP=ChangeIP&"默认网关设置
6、成功,"ElseChangeIP=ChangeIP&"默认网关设置失败,"EndIfIferrDNS=0ThenChangeIP=ChangeIP&"DNS设置成功"ElseChangeIP=ChangeIP&"DNS设置失败"EndIfEndIfNextEndFunction说明一下，由于我公司的IP地址为10.10.x.x，其中第三段不超过二位数，并且，网关最后一段都为1，因此，我在取网关时用了GW=left(IP,8)&"1"'网关这么一句，这一句可以根据自己的情况更改。我本来想通过IP地
7、址，取前面三段加上1组成网关，可是我没有找到相应的函数和方法来实现，希望高手能给补充一下。我的DNS都是相同的，因此直接录入了。使用方法：把上面的代码复制，并粘贴至记事本中，存为更改IP地址.vbs。双击就可以执行。2、更改计算机名文件名：更改计算机名.vbs代码：DimrevalSetobjnet=CreateObject("WScript.Network")SetR=CreateObject("WScript.Shell")reval=InputBox("当前的计算机名是："&objnet.
8、ComputerName,"输入新的计算机名")OnErrorResumeNextstrComputer="."SetobjWMIService=GetObject("winmgmts:"_&"{impersonationLevel=impersonate}!\"_&strComputer&"rootcimv2")SetcolComputers=objWMIService.ExecQuery_("Select*fromWin32_ComputerSystem")ForEachobjComp
