生成
' sub0.脚本运行.判断是否是第一次运行,如果是就写入注册表,实现下次开机自动运行,并退出程序.否则执行
' sub1.脚本运行,获得本机MAC地址.
' sub2.根据MAC地址,从数据库中取得计算机名和IP地址.[数据库为 mac.xls , excel文档;]
' sub3.修改计算机名和IP地址.
' sub4.清除注册表项
' 5.附:取得网吧MAC地址的方法,运行"取得网吧mac地址的脚本.vbs"
' ***********************************************************
on error resume next
public mac,name,ip
sub0
sub sub0
on error resume next
set wsh1=createobject("wscript.shell")
reg=wsh1.regread("HKEY_LOCAL_MACHINE\software\microsoft\windows\currentversion\run\mac")
if len(reg)
--------------------------------------------------------------------------------
取得网吧mac地址的脚本,另存为mac.vbs
--------------------------------------------------------------------------------
' mac.vbs
msgbox "取得网吧mac地址的脚本"
set wsh1=createobject("wscript.shell")
for i=1 to 91
wsh1.run "ping -n 1 192.168.1." & i
next
set fso1=createobject("scripting.filesystemobject")
set file1=fso1.opentextfile("d:\mac.bat",2,true)
file1.write "arp -a > d:\mac.txt"
file1.close
wsh1.run "d:\mac.bat"
wscript.sleep 5000
fso1.deletefile "d:\mac.bat"
wsh1.run "d:\mac.txt"
msgbox "完毕,请用excel导入并参考 max.xls 生成最终文档"作者: zhengxiang 时间: 2006-7-9 09:24 标题: 请教上面这个程序