VBS 脚步都有那些实用而强悍的脚步

我先来几个

IP 安全策略

Netsh IPsec static add filter filterlist = 任意通迅禁止 IP 段 srcaddr = 203.86.31.0 srcmask = 255.255.255.0 dstaddr = me dstport = 0 description = 203.86.31.0 protocol = any mirrored = yes

调用 rar 完成自动压缩打包功能

set wshell=createobject("WScript.Shell")
set fso=createobject("Scripting.FileSystemObject")
path=wshell.regread("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\WinRAR.exe\Path")
path=fso.getfile(path&"\rar.exe").shortpath

……
wshell.run path&" a -m0 -p123456 abc.rar D:\abc",0 '加 ,0 表示不显示窗口

AC 数据库压缩

pathb="D:\www\data\#subscribe.mdb"

set fso = createobject("scripting.filesystemobject")
set engine = createobject("jro.jetengine")

engine.compactdatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & pathb, _
						"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & pathb & "_temp.mdb"
fso.copyfile pathb & "_temp.mdb",pathb
fso.deletefile(pathb & "_temp.mdb")


set fso = nothing
set engine = nothing

IIS 进程池守候

dim sw
sw=1
do while sw
	set fso=createobject("Scripting.FileSystemObject")
	set fw=fso.opentextfile("d:\iispools.txt",8,true) 'param2 8:addto 2:rewrite; param3 true:not exit create is;

	set apppools=getobject("IIS://LocalHost/W3SVC/AppPools")
	for each apppool in apppools
		'msgbox apppool.apppoolstate
		if apppool.apppoolstate=4 then
			apppool.stop
			apppool.start
			fw.writeline(now()&"@"&apppool.name)
		end if
	next
	wscript.sleep(1000*60*2)

	set fso=nothing
	set fw=nothing
	set apppools=nothing
loop

清理 IIS 日志

'IIS 日志清理 VBS 版代码(DelIISLog.vbs)
'调用方法： DelIISLog "IIS 日志所在路径",保留多少天的 IIS 日志
'遍历 IIS 日志文件夹下的所有文件及子文件夹下的文件
Function DelIISLog(IISLogPath,KeepDays)
on error resume next
Set oFso = CreateObject("Scripting.FileSystemObject")
Set oFolder = oFso.GetFolder(IISLogPath)
Set oSubFolders = oFolder.SubFolders '得到该目录下所有的文件夹的集合
Set oFiles = oFolder.Files '得到该目录下所有的文件的集合
'第一步处理当前目录下的所有文件
For Each oFile In oFiles '遍历所有文件
if right(oFile.name,3)="log" then
oDate=cdate("20" & mid(oFile.name,3,2) & "-" & mid(oFile.name,5,2) & "-" & mid(oFile.name,7,2))
if date-oDate > KeepDays then oFile.delete '判断是不是要处理的 IIS 日志文件，如果是的话直接删除
end if
Next
'第二步处理当前目录下的所有目录，进行递归调用
For Each oSubFolder In oSubFolders
DelIISLog oSubFolder.Path,KeepDays '递归
Next
End Function
DelIISLog "C:\WINDOWS\system32\LogFiles",20 '遍历