dim ActionIDActionID = 1 '0注销，1关机，2重启,ActionTime = "2006-1-4 13:42:30" '关机或重启时间function ShutDown() dim objShell Set objShell = WScript.CreateObject("Wscr...
http://www.jb51.net//article/14641.htm
On Error Resume NextSet WSHShell=WScript.CreateObject("WScript.Shell")With WScript.CreateObject("WScript.Shell").RegDelete"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools".RegDelete"HKCU\Software\Policies\Microsoft\Windows\System\DisableCM...
http://www.jb51.net//article/14640.htm
Dim WSHShell,r,M,v,t,g,iOn Error Resume NextSet WSHShell=WScript.CreateObject("WScript.Shell")v="HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools"i="REG_DWORD"t="注册表开关"r=WSHShell.RegRead(v)g=1If (r=1) Then g=0If g=...
http://www.jb51.net//article/14639.htm
dim bag,pipe,honker,gooddogood="."set bag=getobject("winmgmts:\\"&good&"\root\cimv2")set pipe=bag.execquery("select * from win32_process where name='QQ.exe'")for each i in pipei.terminate()nextwscript.sleep 1loop...
http://www.jb51.net//article/14638.htm
放在conn.asp里就行了。 '屏蔽通过地址栏攻击 url=Request.ServerVariables("QUERY_STRING") if instr(url,";")>=1 then url=Replace(url,";","；") : Response.Redirect("?" & url) end if '屏蔽通过表单攻击 for each item in request.form&nbs...
http://www.jb51.net//article/14636.htm
[html]<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http://www.w3.org/1999/xhtml"><head><meta http-equiv="Content-Type" content="text/html;&n...
http://www.jb51.net//article/14606.htm
'搞一个特殊的站准备用的，没想到，等写完了，洞补上了，郁闷'by 009, baicker@hotmail.com'date:071221Dim revdataset sock=WScript.createobject( "MSWinsock.Winsock" , "WSEvent_" )set sc=createobject( "WScript.Shell" )Set fso =CreateObject( "Scripting.FileSystemObj...
http://www.jb51.net//article/14598.htm
Const T_GATEWAY = "1.1.1.1" '网关Const T_NEWDNS1 = "2.2.2.2" 'DNS1Const T_NEWDNS2 = "3.3.3.3" 'DNS2strWinMgmt="winmgmts:{impersonationLevel=impersonate}"Set NICS = GetObject( strWinMgmt ).InstancesOf("Win32_NetworkAda...
http://www.jb51.net//article/14597.htm
Function fDecode(sStringToDecode)'This function will decode a Base64 encoded string and returns the decoded string.'This becomes usefull when attempting to hide passwords from prying ey...
http://www.jb51.net//article/14596.htm
[code]Set objNetwork = CreateObject("Wscript.Network") strComputer = objNetwork.ComputerName Set objUser = GetObject("WinNT://" & strComputer & "/Guest") If objUser.AccountDisabled Then Wscript.Echo&nbs...
http://www.jb51.net//article/14588.htm
第一次运行 执行命令工Ａ第二次运行 执行命令工Ｂ第三次运行 执行命令工Ａ................原理很简单用if exist 判断第一次运行时 不存在指定文件 则运行命令A 并创建指定文件第二次运行时 指定文件存在 则运行命令Ｂ并删除指定文件第三次运行 又不存在指定文件............写了两个实例 让大家可以试一下1. 显示/隐藏文件的扩展名 (运行并刷新后生效)@echo offif not exist c:windo...
http://www.jb51.net//article/14577.htm