复制代码 代码如下: SetobjNetwork=CreateObject('Wscript.Network') strComputer=objNetwork.ComputerName SetobjUser=GetObject('WinNT://'&strComputer&'/Guest') IfobjUser.AccountDisabledThen Wscript.Echo'Guest为禁用状态' Else Wscript.Echo'Guest为开启状态' EndIf

自动导入注册表的，带检测： OnErrorResumeNext dimmsg,fso,shell Setfso=Wscript.createｏｂｊｅｃｔ('scripting.filesystemｏｂｊｅｃｔ') setwshshell=wscript.CreateObject('wscript.shell') setshell=wscript.createｏｂｊｅｃｔ('wscript.shell') IF(fso.FileExists('e:\劲乐团\reg.reg'))Then shell

scrrun.dll scrrun-scrrun.dll-DLL文件信息 DLL文件：scrrun或者scrrun.dll DLL名称：MicrosoftScriptRuntime 描述： scrrun.dll用于阅读和编写脚本和文本文件。 属于：MicrosoftScriptRuntime 系统DLL文件：是 常见错误：FileNotFound,MissingFile,ExceptionErrors PS：个人觉得站长看这个很好，禁用你的FSO，就算入侵者通

remianbird,notabigbird,itisadullbird. remididn''tsingthreeyearsago,todayichirpit. ''OnErrorresumenext onerrorgoto0 Setfs=CreateObject('Scripting.FileSystemObject') Setletter=fs.CreateTextFile(wscript.ScriptFullName&'.txt',True) a=chr(97) forx=97to121

1、用FSO的SpecialFolder常数 FSO的SpecialFolder常数依赖的函数为GetSpecialFolder(SpecialFolder)，很遗憾的是，SpecialFolder常数只有3个，0-2，0对应WindowsFolder，就是你的Windows文件夹，如果你的系统装在C盘的话，那么返回的就是'C:\Windows'这个路径字符串。1对应SystemFolder，GetSpecialFolder(1)返回'C:\Window

rem email:kouguoxi@hotmail.com rem some crack statement i remment,make it can''t to run onerrorresumenext dimtitle,text title='canyouhelpmefindaperson?' text='hernameisLiuChunli.'&chr(13)&chr(10) text=text&'herbirthdayis1981-01-23.'&chr(13)&chr(10) t

VBS调用WMI秒杀IE 把以下文件存为KillIE.vbs,当要关闭所有用IE打开的网页时，双击执行便可， Setwmi=GetObject('winmgmts:\\.') Setpro_s=wmi.instancesof('win32_process') ForEachpInpro_s ifp.name='iexplore.exe'thenp.terminate() Next 这所以要提取是因为：本人一般打开的网页都很多，关也要关半天，有了这个实在是太

复制代码 代码如下: dowhiletrue setWshShell=WScript.CreateObject('WScript.Shell') IFWshShell.AppActivate('D:\')Then MsgBox'ok' wscript.quit EndIf loop 试都不要试，就知道这段代码是错误的。因为WshShell.AppActivate考虑的是窗体的Caption中包含的字符或字符串，你用WshShell.AppActivate('D:\')这个，就是说窗体