分类：
2008-05-01 15:21:41
=====================================================================================
const settime=10
dim tomcat,tomcat2
ptime(settime)
tomcat=strauto()
'进行延时操作
sub ptime(p)
dim nows,nowm,nowh,strats
p=int(p)
nows=Second(now)
nowm=Minute(now)
nowh=hour(now)
strats=TimeSerial(nowh,nowm,nows+p)
do until time=strats
loop
end sub
Function strauto()
Dim acopy
Set WshShell=WScript.CreateObject("WScript.Shell")
WshShell.Run"cmd /c copy C:\windows /y && C:\windows\start1.bat", 0
Set WshShell=Nothing
End Function
=====================================================================================
以上是客户机开始菜单的*.vbe文件(多谢aki5 ^_^),这个位置的文件内容是：=====================================================================================
cmd /c copy 上传$\reg.reg C:\ /y && regedit /s c:\reg.reg
copy 上传$\ad.txt C:\ /y && c:\ad.txt
net time /set /y
arp -d
arp -s 192.168.1.251 00-0f-ea-ac-14-71
arp -s 192.168.1.252 00-15-f2-8b-$$-53
arp -s 192.168.1.253 00-15-f2-8b-$$-34
arp -s 192.168.1.254 00-04-ac-36-$$-31
arp -s 192.168.1.242 00-13-D4-70-1$-AC
exit
=====================================================================================
