使用VBScript脚本修改计算机名及网络配置
1 |
lAutoAll = 0 '是否全部自动完成<br />lChgName = 1 '是否修改计算机名<br />lIsTeacher = 0 '如果自动完成是否设成教师类型<br />lPrompt = 1 '是否提示成功<br />ipNum = "X" '如果是给固定的计算机使用可改X为固定值<br />lReboot = 0 '是否重新启动系统<br /> <br />''''''cho = 7 'T<br /> <br />cho = MsgBox("要设置吗?", 3 , "询问") '6是,7否,2取消<br /> <br />If cho = 2 Then<br /> MsgBox("再见!")<br />Else<br />cho = 7<br /> <br /> If lAutoAll = 1 Then<br /> Num = ipNum<br /> Else<br /> Num = InputBox ("请输入IP尾数")<br /> If Num < 10 Then<br /> Num = "0" & Num<br /> End If<br /> End If<br /> strComputer = "."<br /> ''''''''''''''''''''''''''''''''''''''''''''''''''''<br /> 'IpF: IP地址前缀; sNameF: 计算机名前缀;<br /> IpF_T = "192.168.0.1"<br /> IpF_S = "192.168.0.1"<br /> sMask = "255.255.254.0"<br /> sNameF = "pc5-"<br /> strGateway_T = Array("192.168.1.97")<br /> strGateway_S = Array("192.168.1.1")<br /> strDNS_T1 = Array("192.168.1.1")<br /> strDNS_T2 = Array("202.102.224.68")<br /> strDNS_S = Array("192.168.1.1")<br /> strGatewayMetric = Array(1)<br /> <br /> ''''''''''''''''''''''''''''''''''''''''''''''''''''<br /> '设置IP地址、掩码、网关及DNS<br /> Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")<br /> Set colNetAdapters = objWMIService.ExecQuery _<br /> ("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")<br /> <br /> If cho = 6 Then<br /> strIPAddress = Array(IpF_S&Num)<br /> Else<br /> strIPAddress = Array(IpF_T&Num)<br /> End If<br /> <br /> strSubnetMask = Array(sMask)<br /> <br /> If cho = 6 Then<br /> strGateway = strGateway_S<br /> Else<br /> strGateway = strGateway_T<br /> End If<br /> <br /> If cho = 6 Then<br /> strDNS = strDNS_S<br /> Else<br /> strDNS = strDNS_T1<br /> End If<br /> <br /> For Each objNetAdapter in colNetAdapters<br /> errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)<br /> errGateways = objNetAdapter.SetGateways(strGateway, strGatewayMetric)<br /> errDns = objNetAdapter.SetDNSServerSearchOrder(strDNS)<br /> Next<br /> <br /> ''''''''''''''''''''''''''''''''''''''''''''''''''''<br /> '设置计算机名<br /> If lChgName = 1 Then<br /> Set objWMIService = GetObject("winmgmts:" _<br /> & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")<br /> Set colComputers = objWMIService.ExecQuery _<br /> ("Select * from Win32_ComputerSystem")<br /> <br /> For Each objComputer in colComputers<br /> ObjComputer.Rename(sNameF&Num)<br /> Next<br /> End If<br /> ''''''''''''''''''''''''''''''''''''''''''''''''''''<br /> 'Reboot system<br /> If lReboot = 1 Then<br /> Set colOperatingSystems = GetObject("winmgmts:{(Shutdown)}").ExecQuery("Select * from Win32_OperatingSystem")<br /> For Each objOperatingSystem in colOperatingSystems<br /> ObjOperatingSystem.Win32Shutdown(2)<br /> Next<br /> <br /> End If<br /> <br /> If lPrompt = 1 Then MsgBox("修改成功!")<br />End If |
VBS脚本修改设置IP地址、网关、DNS等配置信息
打开记事本,将下面的代码写入并另存为“IP.VBS”,双击运行即可,部分参数值需要自行修改,设置成功后无须重启。
1 |
'''代码开始<br /> <br />strIPAddress=Array("10.10.10.10") '这里设置您的IP地址<br /> <br />strSubnetMask=Array("255.0.0.0") '这里设置您的子网掩码<br /> <br />DefaultIPGateway=Array("10.10.0.1") '这里设置您的默认网关<br /> <br />DNSServer = Array("211.138.106.3", "211.138.106.2") '这里设置首选、备用DNS服务器<br /> <br />strComputer = "."<br />Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")<br />Set colNetAdapters = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")<br /> <br />For Each objNetAdapter in colNetAdapters<br /> errEnable1=objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)<br /> errEnable2=objNetAdapter.SetGateways(DefaultIPGateway)<br /> errEnable3=objNetAdapter.SetDNSServerSearchOrder(DNSServer)<br /> <br /> If errEnable1 = 0 And errEnable2 = 0 And errEnable3 = 0 Then<br /> ChangeIP = "设置成功"<br /> Else<br /> If errEnable1 = 0 Then<br /> ChangeIP = "IP地址和子网掩码设置成功, "<br /> Else<br /> ChangeIP = "IP地址或子网掩码设置失败, "<br /> End If<br /> <br /> If errEnable2 = 0 Then<br /> ChangeIP = ChangeIP & "默认网关设置成功, "<br /> Else<br /> ChangeIP = ChangeIP & "默认网关设置失败, "<br /> End If<br /> <br /> If errEnable3 = 0 Then<br /> ChangeIP = ChangeIP & "DNS设置成功"<br /> Else<br /> ChangeIP = ChangeIP & "DNS设置失败"<br /> End If<br /> End If<br /> <br /> WScript.Echo ChangeIP '弹出确认窗口<br />Next<br /> <br />'''代码结束 |