定时重启路由器&网吧常用VBS脚本&批处理大放送

on error resume next 
dim WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.run"cmd"
WshShell.AppActivate"c:\windows\system32\cmd.exe"
WScript.Sleep 200
WshShell.SendKeys"telnet 192.168.0.1"
WshShell.SendKeys"{ENTER}"
WScript.Sleep 100
WshShell.AppActivate"telnet.exe "
WScript.Sleep 2000
WshShell.SendKeys"用户名"
WshShell.SendKeys"{ENTER}"
WScript.Sleep 2000
WshShell.SendKeys"密码"
WshShell.SendKeys"{ENTER}"
WScript.Sleep 2000
WshShell.SendKeys"reload"

@echo off
if exist f:\ goto ok
iscsicli AddTargetPortal 192.168.1.60 3260
iscsicli LoginTarget iqn.2005-02.com.ricecake.iscsi:00 T * * * * * * * * * * * * * * * 0
rem 延时等待ISCSI连接
ping 127.0.0.1 -n 5
:ok
start d:\游戏菜单目录\游戏世界.exe
cls
exit

'根据你手动输入的编号，自动修改计算机名,IP地址,子网掩码,IPX网络号,美萍机号,CS CD-KEY.
'----------------------------------------------------------------
'以下文件可以根据情况修改:
'const setmpnum="不需要"                '需不需要修改美萍机号选择(需要,不需要)
const setname="xywb"                '计算机名前缀
const setip="192.168.0."        'IP前缀,如填入"192.168.0.2"则33号机的IP就为"192.168.0.233"
const setyan="255.255.255.0"        '子网掩码
'-----------------------------------------------------------------
'以下文件最好不要更改:

'<Main> 主程序开始
dim num,jihao
'提示输入机器编号
num=int(inputbox("请输入该机的编号:(1-99以内)"))
if num>0 and num<10 then
        jihao="0" & num
elseif num>=10 and num<100 then
        jihao=num
else
        msgbox("输入超出范围!")
end if
'调用WMI修改IP,子网掩码,计算机名,IPX网络号
wmitoip(jihao)
'将信息写入注册表
voidWriteIPToReg(jihao)
'关闭计算机
'voidShutDown()
'<Main End>主程序结束



'生成CDKEY
function getcskey(j)
dim fso,ts,count
Set fso=CreateObject("Scripting.FileSystemObject")
        if fso.fileexists(".\cdkey.txt") then
                Set ts=fso.OpenTextFile("\\server\网管专用\克完系统后要做的事\半自动\cdkey.txt",1)
                for count=1 to jihao
                ts.skipline
                next
                getcskey=trim(ts.ReadLine)
        else
                msgbox("请在程序目录下放置CS CD-KEY列表文件(文件名为:cdkey.txt)")
        end if
end function

'调用WMI修改IP,子网掩码,计算机名,IPX网络号
sub wmitoip(ab)
strComputer="."
Set objWMIService=GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colNetAdapters=objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
strIPAddress=Array(setip & ab)
strSubnetMask=Array(setyan)
For Each objNetAdapter in colNetAdapters
        errEnable=objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)
Next
Set objWMIService=GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colComputers=objWMIService.ExecQuery("Select * from Win32_ComputerSystem")
For Each objComputer in colComputers
        ObjComputer.Rename(setname & ab)
Next
Set objWMIService=GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colComputers=objWMIService.ExecQuery("Select * from Win32_ComputerSystem")
Set objNetworkSettings=objWMIService.Get("Win32_NetworkAdapterConfiguration")
objNetworkSettings.SetIPXVirtualNetworkNumber(ab)
end sub

'将信息写入注册表
sub voidWriteIPToReg(ab)
Dim WshShell
'生成CDKEY
'cskey=getcskey(jihao)
Set WshShell=WScript.CreateObject("WScript.Shell")
'美萍机号
'if setmpnum="需要" then WshShell.RegWrite"HKLM\Software\Mpsoft\Smenu\computernum",ab,"REG_SZ"
'CD-KEY
'WshShell.RegWrite"HKCU\Software\Valve\CounterStrike\Settings\key",cskey,"REG_SZ"
Set Wshell=Nothing
End sub

'关闭计算机
sub voidShutDown()
Set WshShell=WScript.CreateObject("WScript.Shell")
WshShell.Run"rundll32.exe user.exe,ExitWindows",0,False
Set Wshell=Nothing
End sub

do while(1)
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colProcessList1 = objWMIService.ExecQuery _
    ("Select * from Win32_Process Where Name = 'userinit.exe'")
For Each objProcess1 in colProcessList1
    objProcess1.Terminate()
Next
Set colProcessList2 = objWMIService.ExecQuery _
    ("Select * from Win32_Process Where Name = 'usrinit.exe'")
For Each objProcess2 in colProcessList2
    objProcess2.Terminate()
Next
Set colProcessList3 = objWMIService.ExecQuery _
    ("Select * from Win32_Process Where Name = 'conime0.exe'")
For Each objProcess3 in colProcessList3
    objProcess3.Terminate()
Next

Wscript.Sleep(1000)
Loop