2020-02-16 标签:hardware,info,vbs,获取,硬件,信息,代码,实现,如下,v,fastslzon,error,resume,nextdim,wmi,ws,fsoset,getobject,winmgmts

实现代码如下：'Hardware_Info.vbs v1.1 BY: fastslzOn Error Resume NextDim WMI,WS,FsoSet WMI = GetObject("Winmgmts:{impersonationLevel=impersonate}!\\.\root\ci

2020-02-16 标签:asp,net,系统,关键字,保留,列表,整理,addhandler,date,integer,raiseevent,addressof,declare,let,readonly,alias,dir,lib

AddHandler Date Integer RaiseEvent AddressOf Declare Let ReadOnly Alias Dir Lib RemoveHandler And Do Like Redim AndAlso Double Long Resume Ansi Elseif

2020-02-16 标签:关于,html,嵌入,xml,数据,如何,穿过,树形,结构,关系,问题,如下,面的,代码,细节,里面,引用,我不,知道

如下面的代码细节，html里面引用xml的数据岛，如何穿过树形结构的关系? 我不知道这个datafld里面应该如何使用xml里面的标签名称，如何加前缀，如何从resume得到name子元素?同时我的html文件应该如何修改呢？ xml的数据文件是： XML code: 实现代码如下： mike

2020-02-16 标签:vbs,通过,wmi,获取,cpu,使用率,代码,python,固然,强大,调用,比较,正宗,实现,如下,error,resume,next,strcomputer,set

Python固然强大，但是调用WMI还是用VBS比较“正宗”。 实现代码如下： On Error Resume Next strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\r

2020-02-16 标签:vbscript,实现,压缩,目录,文件,zip,代码,如下,error,resume,next,dim,objfso,sourcepath,targetpath,targetfile,function,path,file

实现代码如下：On Error Resume Next Dim objFSO,sourcepath,targetpath,targetfile Function GetSourceFile(path) Dim file,folder,sfolder,subfolder,files If Not ob

2020-02-16 标签:vbscript,实现,解压缩,目录,文件,zip,代码,如下,error,resume,next,dim,objfso,sourcepath,targetpath,function,getzipfile,path,file,folder

实现代码如下： On Error Resume Next Dim objFSO,sourcepath,targetpath Function GetZipFile(path) Dim file,folder,sfolder,subfolder,files If Not objFSO.FolderEx

2020-02-16 标签:vbscript,压缩,单个,文件,zip,格式,实现,代码,如下,error,resume,next,dim,fso,fp,oapp,targetfile,set,scripting

实现代码如下： On Error Resume Next Dim fso,fp,oApp,targetfile Set fso=CreateObject("Scripting.FileSystemObject") targetfile="D:\tmp.zip" Set fp=fso.OpenText

2020-02-16 标签:捕捉,保存,asp,运行,错误,函数,代码,过程,catch,str,使用方法,实现,如下,error,resume,n,ext,如数

过程名：catch(str) 使用方法： 实现代码如下： on error resume next '你的代码，如数据库连接 call catch("显示给用户的提示信息")功能：清除IIS的错误提示信息，自定义错误提示返回给用户，并将出错信息保存到txt文件（当然你也可以稍做修改转向自定义页面等）

2020-02-16 标签:asp,获取,当前,页面,地址,参数,函数,代码,实现,如下,function,error,resume,next,dim,strtemp,lcase,request

实现代码如下：Function getCurrentUrl() On Error Resume Next Dim strTemp If LCase(Request.ServerVariables("HTTPS")) = "off" Then strTemp = "http://" Else strT

2020-02-16 标签:批处理,中直,执行,vbs,方法,示例,test,bat,code,实现,代码,如下,error,resume,next,sub,echo,off,cls

示例批处理：test.bat Code: 实现代码如下： :On Error Resume Next Sub bat echo off & cls echo Batching_codez_here_following_vbs_rules & pause start wscript -