你是不是觉得每次网吧更换系统都很麻烦呢。所以想到这点晚上加了一个通宵的班做了一个自动修改计算机信息的脚本。希望给出意见
1，配置文件的名字不可以改动为：start.ini
1-7行的顺序不要改动。。
配置文件的内容格式如下
实在太无聊了。现在来跟大家仔细说说吧
电脑名称=A '这里呢是改成你计算机名的前面一个字母。
'有的网吧是分区来设置IP的这样的就高重新改下脚本就可以达到这个目的了
子网掩码=255.255.255.0
默认网关=192.168.0.1
首选 DNS=202.96.128.86
备用 DNS=202.96.128.166
内部网络号=00000000
路油 MAc=00-0F-E2-55-55-B6
这上面的七行大家都可以根据自己的配置和地区来改.
'注意内部网络号的话因该是一样的所以应该不用改
MAX=00,19,e0,70,3e,b7 ip=192.168.0.175
MAX=00,19,e0,75,3e,b8 ip=192.168.0.178
MAX=00,19,e0,70,34,b8 ip=192.168.0.177
MAX=00,19,50,70,3e,b8 ip=192.168.0.174
MAX=00,19,e0,50,3e,b8 ip=192.168.0.173
MAX=00,19,e0,70,3e,b8 ip=192.168.0.172
MAX=00,19,40,70,3e,b8 ip=192.168.0.171
MAX=00,19,e0,50,37,b8 ip=192.168.0.170
MAX=00,49,e0,70,4e,b8 ip=192.168.0.174
MAX=00,19,e0,70,3e,b8 ip=192.168.0.175
MAX=40,19,e0,40,3e,b8 ip=192.168.0.179
这里的IP注意一定要按照排序来写.中间有个空格大家别给丢了
'把上面保存为start.ini在加上你整个网吧的MAC地址及IP地址
'把下面保存为*.vbs放在ini配置文件同一目录。
On Error Resume next '防止错误.如果有错误继续执行下一条
dim macname,nfile,reip,mright
Dim nf,macs,fso,mins,WshShell
Dim arrDNSServers,colComputers
Dim ARP,GatewayIP,IPXV,myipname
Dim mnetmask,MDNS1,NDNS2'定义变量方便我们存放对象或是得到的返回值.也可以不定义,
'是养成习惯比叫好,因为脚本语言终究不是较高级的语言如果你以后想学别的语言的话
'都要严格按照每种语言的规定来定义常量,变量等
Set fso=CreateObject("scripting.filesystemobject") '引用一个文件系统类并且赋值的方式给变量FSO
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2") '引用WMI命名空间CIMV2,一旦引用了
'WMI名空间那个我们就可以使用空间里面存放的各种类,关于WMI的详细资料请大家在论坛里下载
Set colNetAdapters = objWMIService.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE") '这个是使用WQL
'查询语句来查询你想查询的相关类的属性并把返回值以一个对象的形式赋给一个变量.这样我们
'就可以用FOR循环来检测我们想要的属性或方法了.WQL查询有好多种,最常有的有异步,半步等,
'在这里就不把话题拉开啦.只要你们知道就行了
'上面这句WQL的大体意思就是 查询网卡等的相关属性都在这个类里.这一个类就有几十种属性,
'没种属性都是不同的功能,我们就不每种都去说了
Set colComputers = objWMIService.ExecQuery _
("Select * from Win32_ComputerSystem") 'WQL查询返回一个系统用户等相关属性给一个对象变量
Set objNetworkSettings = objWMIService.Get("Win32_NetworkAdapterConfiguration")'WQL查询
Set WshShell = WScript.CreateObject("WScript.Shell")' 引用一个SHELL
Set objquery=objWMIService.execquery _
("select * from Win32_NetworkAdapterConfiguration where index=8") 'WQL查询
For Each objarray In objquery
macs=objarray.MACAddress '这里就是枚举出NetworkAdapter....类的网卡属性,还有别的很多属性
'大家有兴趣的自己在论坛下工具一个一个的看.没个属性都说得很清楚的
Next
macname=Replace(macs,":","-")'将得到本机的网卡地址中的[:]替换成[-],
'因为我本得到的格式为00:19:e5:b6:f4:2e这样的格式
If fso.fileexists(".\start.ini")<>true Then MsgBox "配置文件不存在" '检测配制文件是否存在
Set nf=fso.opentextfile(".\start.ini",1) '打开配制文件
If Err.number<>0 Then MsgBox "打开出错":wscript.quit(1) '如果出现错误就提示，退出
Do While nf.AtEndOfStream<>True '当文件指针不是文件尾,因为我们文本是N多行和N多列组成的
'所以我们要用一个循环来读取里面的信息,打开文件的时候文件指针都是默认指向文件的第一行一列
'如果打开一个文件AtEndOfStream返回的是false的话呢表示这个这个指针不在文件尾如果返回TRUE
'那么指针指向文件结尾..如果一个文本是空的话你打开的时候AtEndOfStream的返回值因该总是tRUE
nfile=UCase(nf.readline()) '一行一行读入，为大写
mins=InStr(nfile,macname) '检测是否有网卡地址的存在
If mins=0 Or mins="" Or mins=Null Then '判断是否读到了网卡地址,如果=0 或是空又或是NULL
minstr=InstrRev(nfile,"=") '检测读入的一行里面的=在这行最后出现的地方,不包括=返回一个数字
mright=Right(nfile,Len(nfile)-minstr) 'lan返回一整行的个数.在减去我们刚搜索的及↑面这条
i=i+1 '将I设置为一个循环记数器.将我们所循环的次数存在I里面,
Select Case i '下面的是一个判断语句,当i的值是下面其中的一个对应的话就执行相应的操作
Case 1 '电脑名称
ocsname=mright
Case 2 '子网掩码
mnetmask=mright
strSubnetMask = Array(mright)
Case 3 '默认网关
GatewayIP=mright
strGateway = Array(GatewayIP)
Case 4 '首选DNS
MDNS1=mright
Case 5 '备用DNS
NDNS2=mright
Case 6 '内部网络号
IPXV=mright
If IPXV="" Then IPXV="00000000"
Case 7 '路油绑定的MAC地址
ARP=mright
Case else
End Select '结束查询语句select
arrDNSServers=Array(MDNS1,NDNS2) 'DNS '将DNS存放在一个数组里面方便等下设置DNS
'的函数调用
else '这里值得注意的是 IF语句...记得看清楚哪个IF是个那个是一对
minstr=InstrRev(nfile,"=")
mright=Right(nfile,Len(nfile)-minstr)
myipname=mright'IP地址
strIPAddress = Array(myipname)
qname=InstrRev(mright,".")
ipright=Right(mright,Len(mright)-qname) '读去IP的后面数字来做电脑名注意这里,如果你想IP等于192.168.0.2
'计算机名要等于 A001的话这里就减去1也就是myipname=mright-1
If ipright<10 Then '判断如果读得的数小去于10 就在前面加两个00
mipname="00" & ipright
ElseIf ipright<100 Th
