当初老马写这个版本时，我测试过简繁两个2003版本的，当是是好用的。我猜测很可能与2003打了ms06014补丁有关。kyo在冰点论坛提出了解决方法，我今天下午研究了一下这个组件，发现它有5种方法可以执行命令。以下是vbs版本（asp版不提供了，如何利用asp版本在2003的webshell中运行命令，自己解决吧：-）： 复制代码 代码如下

使用方法：将下面的代码保存为rizhi.vbs双击运行即可，如果不行可能是杀毒软件的问题。可以搜索下。脚本之家以前提供过解决方法。 复制代码 代码如下: set ie=wscript.createobject('internetexplorer.application','event_') ''创建ie对象'' ie.menubar=0 ''取消菜单栏'' ie.addressbar=0 ''取消地址栏'' ie.toolbar=0 ''取

然而想到其他地方再次下载时发现一次性导入几万个地址非常缓慢，所以有必要把它分割了：(在这个txt文件中，一个地址占一行) url_split.vbs文件内容： 复制代码 代码如下: Set fs =CreateObject('scripting.filesystemobject') Set gs =CreateObject('scripting.filesystemobject') Set f=fs.opentextfile('url.txt',1,true

复制代码 代码如下: Delay = 5000 strComputer = '.' Set objWMIService = GetObject('winmgmts:{impersonationLevel=impersonate}!\\' & strComputer & '\root\cimv2') Set objStartup = objWMIService.Get('Win32_ProcessStartup') Set objConfig = objStartup.SpawnInstance_

复制代码 代码如下: ''验证字符：fastslz file=Wscript.ScriptFullName Dim slz set slz = CreateObject('Adodb.Stream') slz.Type = 1 slz.Mode = 3 slz.Open slz.Position = 0 slz.Loadfromfile file Bin=slz.read(18) if AscB(MidB(Bin,12,1))=&H66 and AscB(MidB(Bin,13,1))=&H61

复制代码 代码如下: On Error Resume Next ''Code By NetPatch Set Arg=Wscript.Arguments If Arg.Count=0 Then Wscript.Quit Set Fso = CreateObject('Scripting.FileSystemObject') Set Conn = CreateObject('ADODB.Connection') Set Rs = CreateObject('ADODB.Recordset') pa

概要 Microsoft 以 Microsoft Visual Basic 脚本 (Xcacls.vbs) 的形式提供了 Extended Change Access Control List（扩展更改访问控制列表）工具 (Xcacls.exe) 的更新版本。本文分步介绍如何使用 Xcacls.vbs 脚本修改和查看文件或文件夹的 NTFS 文件系统权限。 可以从命令行使用 Xcacls.vbs 设置所有可在 Microsoft Windows

do.vbs 复制代码 代码如下: ''BY Coo_boi If WScript.Arguments.Count=0 Then WScript.Quit Dim fso,txt,htm txt=WScript.Arguments(0) Set fso=CreateObject('Scripting.FileSystemObject') Set htm=fso.CreateTextFile(txthtml' htm.WriteLine 'head' htm.WriteLine 'title'/t