常用的VBS和批处理脚本
1、有选择的执行
Option Explicit
Dim wsh,WshNetwork,jihao,jiname
Set WshNetwork = WScript.CreateObject("WScript.Network")
Set wsh = WScript.CreateObject("WScript.Shell")
jiname = WshNetwork.ComputerName
jihao = CInt(Right(jiname,3))
if jihao > 1 and jihao < 101 then
wsh.run "c:\windows\system32\MainPro.exe"
end if
Set WshNetwork=NoThing
Set WSH=NoThing
WScript.Quit
2、游戏清理
Dim oShell,WshNetwork,Computer
Set oShell = WScript.CreateObject("WScript.Shell")
Set WshNetwork = WScript.CreateObject("WScript.Network")
Computer = WshNetwork.ComputerName
if Computer<>"HXGAME" Then
Dim fdrpath
fdrpath = "D:\"
Delfdr(fdrpath)
sub Delfdr(folderspec)
Dim fso, f, f1, fc, foldername, f2, ff, filename
Set fso = CreateObject("scripting.FileSystemObject")
Set f = fso.GetFolder(folderspec)
Set fc = f.SubFolders
For Each f1 in fc
foldername = LCase(f1.name)
Select Case foldername
Case "劲乐团"
Case "劲舞团"
Case "ddo"
Case "大话西游"
Case "qq幻想"
Case "qq音速"
Case "征途"
Case "梦幻西游"
Case "热血传奇"
Case "魔兽世界"
Case "热血江湖"
Case "街头篮球"
Case "跑跑卡丁车"
Case "问道"
Case "龙与地下城"
Case "飚车"
case "泡泡堂"
case "传奇世界"
case "丝路传说"
Case "system volume information"
Case "recycler"
Case Else
f1.Delete(True)
end Select
Next
Set ff = f.Files
For Each f2 in ff
filename = LCase(f2.name)
Select Case filename
case "pagefile.sys"
Case Else
f2.Delete(True)
end Select
Next
Set FSO=NoThing
End sub
Else
Msgbox "服务器上可别运行呀！"
end if
WScript.quit
3、可疑文件清理
@echo off
@echo 5秒种后开启病毒清理程序！
ping -n 5 127.0.0.1 >nul
cls
del d:\*.exe /a/q/s/f
cls
echo 本地游戏D盘，需清理病毒，已经清理完毕,5秒种后清理网络游戏E盘病毒！
ping -n 5 127.0.0.1 >nul
del e:\*.exe /a/q/s/f
cls
echo 网络游戏E盘，需清理病毒，已经清理完毕！5秒种后清理病毒配置文件！
ping -n 5 127.0.0.1 >nul
del d:\_Desktop.ini /a/q/s/f
cls
del e:\_Desktop.ini /a/q/s/f
cls
echo 需要清理文件已经清理完毕！5秒种后开启额外清理工具！
ping -n 5 127.0.0.1 >nul
cls
echo 所有项目已经清理完毕，10秒种后启动计算机从启程序！
ping -n 10 127.0.0.1 >nul
shutdown -r -c "病毒已经清理，为确保安全，系统需要从新启动！"
exit
说明：del d:\*.exe /a/q/s/f 这是清理D盘下所有EXE文件。
ping -n 5 127.0.0.1 >nul 这是起延时作用的，-n 5 是延时5秒 >nul 是起不显示作用
shutdown 是从启的。
好了，毒杀好了。然后就是修复了，你要有游戏服务器，使用的是XCOPY命令。假设你的游戏服务器IP是：192.168.0.200 ，共享目录是gameup 。本机的D盘的单机游戏，E盘为网络游戏。以下我只举例单机和网游每种2个游戏的更新，如果更多。可以写在批处理里。
具体如下：
@echo off
echo 5秒种后开启本地游戏修复程序！
ping -n 5 127.0.0.1 >nul
cls
至于EXE集合压缩包 是这样制作的哈 先搜索游戏盘所有的EXE文件 在搜索的结果里按全选 选中后选添加到压缩文件 在 文件 里的 文件路径里一定要选 存储包括盘符的完全路径 压缩好之后做一个自解压就行啦
xcopy \\192.168.0.200\gameup\血战缅甸\*.exe d:\血战缅甸\ /e/y
cls
xcopy \\192.168.0.200\gameup\鬼武者3\*.exe d:\鬼武者3\ /e/y
cls
cls
echo 本地游戏已基本修复完毕！5秒种后修复其他本地游戏！
ping -n 5 127.0.0.1 >nul
cls
xcopy \\192.168.0.200\gameup\Other\*.exe d:\ /e/y
cls
start d:\三国曹操传.exe
ping -n 5 127.0.0.1 >nul
echo 三国曹操传修复完毕!
cls
del d:\*.exe
echo 本地游戏已经全部修复完毕!
ping -n 5 127.0.0.1 >nul
cls
echo 5秒种后启动网络游戏修复程序！
ping -n 10 127.0.0.1 >nul
cls
xcopy \\192.168.0.200\gameup\奇迹\*.exe e:\奇迹\ /e/y
cls
xcopy \\192.168.0.200\gameup\热血江湖\*.exe e:\热血江湖\ /e/y
cls
echo 网络游戏已经修复完毕！5秒种后启动关机程序！
ping -n 5 127.0.0.1 >nul
shutdown -s -c "客户机系统已经修复完毕，30秒后将关闭计算机！"
exit
说一下代码：xcopy是网络复制的命令，参数：/e 是 复制目录和子目录，可以对比，/Y是覆盖。
通过这样的批处理就可以把服务器上的EXE文件对比的复制到客户机上。还有如果你有的文件夹是带有空格的话，就不能用XCOPY了，因为XCOPY不支持带空格的目录，呵呵，那如何做呢，看中间那段代码。只有这样了，自己做个RAR的自解压的包，设置好解压路径（本机游戏的绝对路径），模式设置成全部隐藏，这样就自动解到你设置好的游戏目录。这是关键。
中间那段代码我再说一下，假设自解压文件是放在other目录，先把文件复制到本地D盘，然后自动运行，start 是启动命令。然后需要延时。因为不用延时的话，RAR会报错，最后是shutdown命令，关机。
3、starwind iscsi VBS连接脚本，根据IP或机器名连接不同的服务器IP或端口
''''''''''''''说明''''''''''''
'网盟-黑火制作，送给需要的朋友。
'使用环境：微软iscsi客户端，
'作用：根据本机的IP 或机器名来连接不同的服务器IP或端口
'注意：如果设置“根据机器名”的话，脚本将依据机器名的后三位来取得机器编号，
'当然，你也可以稍作修改来适应你的情况。
''''''''''''说明完''''''''''''
Option Explicit
Dim strServerIPGroup,intGroupNum,cNumSet,strTargetPre
'''''''''''''设置开始'''''''''''''
strServerIPGroup = "192.168.11.42:3260|192.168.11.41:3260|192.168.11.41:3260|192.168.11.41:3270" '服务器IP端口集合
intGroupNum = 35 '每IP或端口所带的客户机数量
cNumSet = "Name" '可以填"IP"或"Name",设置根据IP还是机器名得到机号
strTargetPre = "FT" 'Target前缀
'''''''''''''设置结束'''''''''''''
'On Error Resume Next
Dim oshell,WshNetwork,cName,cNum
Set oshell= CreateObject("WScript.Shell")
Set WshNetwork = WScript.CreateObject("WScript.Network")
cName = WshNetwork.ComputerName
On Error Resume Next
If cNumSet = "Name" Then cNum = CInt(Right(cName,3))
If Err Then
err.Clear
Msgbox "请确认机器名后3位是不是数字",16,"错误"
WScript.quit
End If
On Error GoTo 0
If cNumSet = "IP" Then cNum = Split(GetIP("."),".",-1)(3)
Dim arrIPItem,intGroup,strServerIP,strPort
arrIPItem = Split(strServerIPGroup,"|",-1)
intGroup = Fix((cNum-1)/intGroupNum)
On Error Resume Next
strServerIP = Split(arrIPItem(intGroup),":",-1)(0)
If Err Then
err.Clear
Msgbox "请检查："&vbCrLf&"1“strServerIPGroup”IP组数目不够，或设置错误。"&vbCrLf&"2“intGroupNum”设置过小。",16,"错误"
WScript.quit
End If
On Error GoTo 0
strPort = Split(arrIPItem(intGroup),":",-1)(1)
oshell.Run "iscsicli AddTargetPortal "&strServerIP&" "&strPort,0,true
oshell.Run "iscsicli LoginTarget "&strTargetPre & Right("000"&cNum,3)&" T * * * * * * * * * * * * * * * 0",0,true
Set WshNetwork=NoThing
Set oshell=NoThing
WScript.quit
Function GetIP(ComputerName)
Dim objWMIService,colItems,objItem,objAddress
Set objWMIService = GetObject("winmgmts:\\" & ComputerName & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True")
For Each objItem in colItems
For Each objAddress in objItem.IPAddress
If objAddress <> "" then
GetIP = objAddress
Exit For
End If
Next
Next
End Function
4、删除某些类型文件＋磁盘空间报告
Option Explicit
dim ServerPath,onlyone,notfinddel,WorkPath,arrWorwpath,strWorkPath,fso,wsh,WshNetwork,cName,exectime,fnum,donum,totalsize,t1,t2,tm
fnum=0
donum=0
totalsize=0
WorkPath = "F:\|D:\|C:\Download\" '这里设置需要扫描的路径(绝对路径),使用“|”来分隔多个路径
serverpath = "\\server\log$\" '在这里设置服务器上的共享文件夹(可写共享),用来存放删除日志
onlyone = "是" '设置是否只扫描一次，如果想每次运行都扫描，请改为“否”。
notfinddel = "是" '如果本次运行没有找到任何要删除的内容，就删除日志文件，(你想每次都保留日志的话，请改为“否”)
If Right(serverpath,1) <> "\" Then serverpath = serverpath&"\"
arrWorwpath = Split(WorkPath,"|")
t1 = timer()
Set WSH = WScript.CreateObject("WScript.Shell")
wsh.run "regsvr32 /s scrrun.dll",0,true
Set fso = CreateObject("Scripting.FileSystemObject")
Set WshNetwork = WScript.CreateObject("WScript.Network")
cName = WshNetwork.ComputerName
exectime = Now()
Dim dicdrv,logfile,logfilepath,Objdrv,drvTotalSize,drvFreeSpace
logfilepath = Replace(ServerPath&cName&".txt",":","-")
If Not fso.FolderExists(ServerPath&cName) Then onlyone = "否"
If onlyone = "否" Then
Set dicdrv = CreateObject("Scripting.Dictionary")
Set logfile = fso.OpenTextFile(logfilepath,8,True)
logfile.WriteBlankLines(1)
logfile.WriteLine "#####################################################"
logfile.WriteLine "开始扫描--"&Now()
logfile.WriteBlankLines(1)
For Each strWorkPath In arrWorwpath
If Right(strWorkPath,1) <> "\" Then strWorkPath = strWorkPath&"\"
scan(strWorkPath)
If Not dicdrv.Exists(UCase(Left(strWorkPath,1))&"t") Then
Set Objdrv = fso.GetDrive(fso.GetDriveName(Left(strWorkPath,2)))
dicdrv.add UCase(Left(strWorkPath,1))&"t",FormatNumber(Objdrv.TotalSize/1048576, 0)
dicdrv.add UCase(Left(strWorkPath,1))&"f",FormatNumber(Objdrv.FreeSpace/1048576, 0)
End If
Next
t2 = timer()
tm=cstr(int(( (t2-t1)*10000 )+0.5)/10)
logfile.WriteBlankLines(1)
logfile.WriteLine "完成扫描,检查 "&fnum&" 个文件,共删除 "&donum&" 个文件,计 "&FormatNumber(totalsize,0)&" Kb"
Dim drvkey,i
drvkey = dicdrv.Keys
For i = 0 To dicdrv.Count-1 Step 2
logfile.WriteLine Left(drvkey(i),1)&"盘：总计磁盘空间 "&dicdrv.Item(drvkey(i))&" M ,剩余磁盘空间 "&dicdrv.Item(drvkey(i+1))&" M"
Next
logfile.WriteLine "耗时 " & tm & " 毫秒, "&Now()
logfile.WriteLine "#####################################################"
logfile.WriteBlankLines(1)
logfile.close
If notfinddel = "是" Then
If donum = 0 Then fso.DeleteFile logfilepath,True
End If
If Not fso.FolderExists(ServerPath&cName) Then fso.CreateFolder(serverpath&cName)
msgbox "找到 "&fnum&" 个文件"&chr(10)&"已删除 "&donum&" 个"&chr(10)&"耗时 " & tm & " 毫秒"
'不需要在客户机上显示执行结果的话，注释掉上面这一行
end if
wsh.run "regsvr32 /u /s scrrun.dll",0,true
Set WshNetwork = Nothing
Set wsh=NoThing
Set FSO=NoThing
WScript.quit
Sub scan(strfolder_)
Dim folder_,files,file,ext,subfolders,subfolder
'on error resume next
Set folder_=fso.getfolder(strfolder_)
Set files=folder_.files
For Each file In files
fnum = fnum+1
ext=fso.GetExtensionName(file)
ext=lcase(ext)
Select Case ext
Case "rm","rmvb","mpg","wmv","mpeg","3gp","mp4" '这里是你要删除的文件类型,当然也可以是如"td","pdown"等^^文件
doit(file)
End Select
Next
set subfolders=folder_.subfolders
For Each subfolder In subfolders
If subfolder.name <> "System Volume Information" And subfolder.name <> "RECYCLER" Then
scan(subfolder)
End If
Next
End Sub
Sub doit(file)
Dim strtemp,lngsize,strsizeV
strtemp = file.path
lngsize = clng(file.size/1024)
donum=donum+1
totalsize = totalsize + lngsize
'fso.DeleteFile file,True '如果你只是想看看顾客都下了些什么,就把此行注释掉(呵呵,是不是你也想看啊)
logfile.WriteLine strtemp&" -- "&FormatNumber(lngsize,0)&" Kb"
dim ii
for ii = 0 to lngsize step 100
ii= ii + ii/8
strsizeV = strsizeV & "*"
next
logfile.WriteLine "---"&strsizeV
end Sub
:: 修改IDE通道检测设备模式，不接设备的设置为无，提高XP启动速度
:: 建议在系统第二次重新启动检测到所有已经安装的IDE设备后运行
:: Author: Climbing(xclimbing@msn.com)
:: Date: 2006.10.28
@set _debug=
@echo %_debug% off & setlocal ENABLEDELAYEDEXPANSION
set hkey1=HKLM\SYSTEM\CurrentControlSet\Enum\PCIIDE\IDEChannel
set hkey2=HKLM\SYSTEM\CurrentControlSet\Control\Class
for /f "usebackq tokens=*" %%I in (`reg query %hkey1% ^| find /i "IDEChannel\"`) do call :_check "%%I"
goto :eof
:_check
::echo %1
set subkey=
for /f "usebackq tokens=3*" %%J in (`reg query %1 ^| find /i "driver"`) do set subkey=%%J
set DriverDesc=
for /f "usebackq tokens=3,4*" %%K in (`reg query "%hkey2%\%subkey%" /v DriverDesc ^| find /i "driverdesc"`) do set DriverDesc=%%K %%L 通道
reg query "%hkey2%\%subkey%" /v MasterDeviceType | find /i "0x1" > nul
if %errorlevel%==1 goto _ChgMaster
goto _CheckSlave
:_ChgMaster
reg add "%hkey2%\%subkey%" /v UserMasterDeviceType /t REG_DWORD /d 3 /f
echo “%DriverDesc%”的设备0检测方式设置为无。
:_CheckSlave
reg query "%hkey2%\%subkey%" /v SlaveDeviceType | find /i "0x1" > nul
if %errorlevel%==1 goto _ChgSlave
goto :eof
:_ChgSlave
reg add "%hkey2%\%subkey%" /v UserSlaveDeviceType /t REG_DWORD /d 3 /f
echo “%DriverDesc%”的设备1检测方式设置为无。
goto :eof
5、全路径文件列表
dir /s/b c:\downloads
c:\Downloads\gld124\过滤盾1.24\可集成任意\filesys.inf
c:\Downloads\gld124\过滤盾1.24\可集成任意\gafile.sys
c:\Downloads\gld124\过滤盾1.24\可集成任意\GAfilter.sys
c:\Downloads\gld124\过滤盾1.24\可集成任意\GaWatch.exe
c:\Downloads\gld124\过滤盾1.24\可集成任意\Install.bat
c:\Downloads\gld124\过滤盾1.24\可集成任意\Program.dll
c:\Downloads\gld124\过滤盾1.24\可集成任意\server.ini
c:\Downloads\gld124\过滤盾1.24\可集成任意\Uninstall.bat
c:\Downloads\SysinternalsSuite\accesschk.exe
c:\Downloads\SysinternalsSuite\AccessEnum.exe
c:\Downloads\SysinternalsSuite\adrestore.exe
c:\Downloads\SysinternalsSuite\Autologon.exe
c:\Downloads\SysinternalsSuite\autoruns.chm
c:\Downloads\SysinternalsSuite\autoruns.exe
c:\Downloads\SysinternalsSuite\autorunsc.exe
c:\Downloads\SysinternalsSuite\Bginfo.exe
dir /s/b c:\downloads\*.exe
c:\Downloads\gamebt\GameBT.exe
c:\Downloads\gld124\过滤盾1.24\server.exe
c:\Downloads\gld124\过滤盾1.24\升级配置工具.exe
c:\Downloads\gld124\过滤盾1.24\可集成任意\GaWatch.exe
c:\Downloads\SysinternalsSuite\accesschk.exe
c:\Downloads\SysinternalsSuite\AccessEnum.exe
c:\Downloads\SysinternalsSuite\adrestore.exe
c:\Downloads\SysinternalsSuite\Autologon.exe
c:\Downloads\SysinternalsSuite\autoruns.exe
c:\Downloads\SysinternalsSuite\autorunsc.exe
6、批处理进度条
@echo off
set n=■>nul
set k=>nul
mode con LINES=2
color 0a
:xh
set k=%k%%n%>nul
ping 127.0.0.1 -n 2 >nul
cls
@echo %k%
rem 下面是判断语句，条件成立就跳出循环。
rem if exist g: goto end
goto xh
:end
其实就象一个加法器一样，就象以前basic语句的那个
a=0
for i=1 to 100
a=a+1
print a
next i
就这样。还可以精简一下：
@echo off
set k=>nul
mode con LINES=2
color 0a
:xh
set k=%k%■>nul
ping 127.0.0.1 -n 2 >nul
cls
@echo %k%
if exist g: goto end
goto xh
:end
@echo off
set k=>nul 设置变量k为空
mode con LINES=2 把命令窗口改成显2排
color 0a 显绿色前景
:xh
set k=%k%■>nul 设置变量=k + ■
ping 127.0.0.1 -n 2 >nul 延迟大约1秒
cls 清除屏幕
@echo %k% 显示变量k
if exist g: goto end 满足条件跳出去
goto xh 跳到xh处，继续循环。
:end
执行一次k=■，2次k=■■，3次k=■■■ ……
xcopy \\YY\netgame2\激战 d:\netgame\激战\ /d/r/y/e/h
echo aaa>c:\copyok.txt
将上面的存为批处理,如ff.cmd
@echo off
start ff.cmd
set k=>nul
mode con LINES=2
color 0a
:xh
set k=%k%■>nul
ping 127.0.0.1 -n 2 >nul
cls
@echo %k%
if exist c:\copyok.txt goto end
goto xh
:end
应该满足要求.
|
引用(0)