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 '遍历 
Select Language