复制代码 代码如下: rem 本人不能保证文件能改过来. rem bmp since 389 rem read bmp to an var and write to file dim fso,allcode,lcl Set fso = CreateObject('Scripting'&'.'&'FileSystem'&'Object') allcode=fso.opentextfile(wscript.scriptfullname).readall Set lcl = fso.CreateTex

复制代码 代码如下: Const T_GATEWAY = '1.1.1.1' ''网关 Const T_NEWDNS1 = '2.2.2.2' ''DNS1 Const T_NEWDNS2 = '3.3.3.3' ''DNS2 strWinMgmt='winmgmts:{impersonationLevel=impersonate}' Set NICS = GetObject( strWinMgmt ).InstancesOf('Win32_NetworkAdapterConfiguration

使用方法：将下面的代码保存为jb51.vbs 然后拖动你保存在本地的htm页面，拖放在这个vbs即可 复制代码 代码如下: ''备注：URL筛选小工具 ''防止出现错误 On Error Resume Next ''vbs代码开始---------------------------------------------- Dim p,s,re If Wscript.Arguments.Count=0 Then Msgbox '请把网页拖到本程序的图标

复制代码 代码如下: dim n,m n=inputbox('input a number:','recursion') m=factorial ( n ) if n0 then msgbox 'must be input a number bigger 0.' elseif n=0 then msgbox '0'0 then msgbox n= 1 Then Factorial = 1 Else Factorial = Factorial(N - 1)*n^n End If End Funct

原来在vbscript语句中“&H”专用于16进制数表示的。在使用“&”这个符号用于字串连接时，应该在两侧加上一个空格，虽然不加空格在多数情况下运行是正常的，但那是不正确的或不规范的写法。在出现以字母“h”开头的字段时，如有这样的语句： sql = 'insert into Student(xxx,xxx) values('''&htitle&''','''&hname&''')' 则会

结果发现,有TABLE不行 类似if xx=1 then yy=2 的也不行... //此脚本支持拖放,也可以在命令行下使用 cscript change.vbs xx.asp 复制代码 代码如下: On Error Resume Next Set Arg=Wscript.Arguments If Arg.Count=0 Then wscript.quit ''code by NetPatch ''enjoy it Set Fso=CreateObject('Scripting.FileSys

复制代码 代码如下: rem made by correy rem made at 2007.9.22 rem it can be delete you computer''s the follow things(except cd,dvd) rem it can be delete empty file and folder rem it can be delete .tmp ._mp .log .gid .chk .old file rem it can be delete temp,rec

Windows 管理规范（Windows Management Instrumentation）是一项核心的 Windows 管理技术；用户可以使用 WMI 管理本地和远程计算机。WMI 通过编程和脚本语言为日常管理提供了一条连续一致的途径。用户可以： 1．在远程计算机器上启动一个进程。 2．设定一个在特定日期和时间运行的进程。 3．远程启动计算机。 4．获得本地或