结果发现,有TABLE不行
类似if xx=1 then yy=2 的也不行...

//此脚本支持拖放,也可以在命令行下使用 cscript change.vbs xx.asp

On Error Resume Next 
Set Arg=Wscript.Arguments 
If Arg.Count=0 Then wscript.quit 
'code by NetPatch 
'enjoy it 
Set Fso=CreateObject("Scripting.FileSystemObject") 
Set File=Fso.OpenTextFile(arg(0),1,False,-2) 
Set Files=Fso.OpenTextFile(arg(0)&".vbs",2,True) 
Do While File.AtEndOfStream <> True 
szBuf=File.readline 
szBuf=Replace(szBuf,chr(9),"") 
Findnum=InStr(LCase(szBuf),"then") 
If Findnum >0 Then 
Findnum=findnum+3 
If Len(szBuf) > Findnum Then 
szBuf=szBuf&":End If" 
End If 
End If 
Files.Write szBuf&":" 
Loop 
File.Close 
Files.Close 
Set Fso=Nothing 
Wscript.echo "ok!" 

修改 Gateway和DNS的vbs脚本
ConstT_GATEWAY="1.1.1.1"'网关ConstT_NEWDNS1="2.2.2.2"'DNS1ConstT_NEWDNS2="3.3.3.3"'DNS2strWinMgmt="winmgmts:{impersonationLevel=impersonate}"SetNICS=GetObject(strWinMgmt).InstancesOf("Win32_NetworkA

VBS sendkeys 模拟击键操作 问题解决
'======================================'VBS中SendKeys模拟键盘击键'2009-07-26'刘林'======================================DimWshShellSetWshShell=WScript.CreateObject("WScript.Shell")WshShell.Ru

用vbscript来添加ip策略 自动封IP
程序主要是读取这个网站的iis日志，分析出其中的IP地址，用安全策略自动封闭。VBS代码如下：'代码开始Setfileobj=CreateObject("Scripting.filesystemobject")logfilepa