2020-02-16 标签:vbs,16,进制,验证,特定,字符,实现,代码,如下,fastslz,file,wscript,dim,slz,set,adodb,stream,type

实现代码如下： '验证字符：fastslz file=Wscript.ScriptFullName Dim slz set slz = CreateObject("Adodb.Stream") slz.Type = 1 slz.Mode = 3 slz.Open slz.Position = 0 s

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 -

2020-02-16 标签:vbs,一篇,txt,后缀,内容,保存为,html,格式,实现,代码,如下,coo,boi,wscript,arguments,count,quit,dim,fso

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.FileS

2020-02-16 标签:vbscript,收集,系统,信息,并上,传到,ftp,空间,之前,无聊,整理出来,一份,这个东西,单位,员工,配电,需要

之前无聊整理出来了一份这个东西，因为在单位给新入职的员工配电脑时，需要登记一遍设备，可每次总要查感觉挺麻烦，结果下面的这份VBS脚本就诞生了，只可惜这个脚本做好了却没派上用场哎。。。 这个脚本的功能是运行后自动将查询到的计算机相关信息记录到一个文档中，然后在经过FTP将生成的文件上传至服务器保存，最

2020-02-16 标签:vbs,字符串,分割,函数,实现,代码,如下,function,cutandjoin,ssource,ilong,sjoiner,dim,i,n,len,fix,mid

实现代码如下：Function CutAndJoin(sSource, iLong, sJoiner) Dim I, N N = Len(sSource) / iLong If(N <> Fix(N))Then N = Fix(N) + 1 For I = 0 To N - 1 CutA

2020-02-16 标签:vbs,字符串,操作,小考,str,a,b,c,d,要求,一段,程序,得出,这样的,结果,长度,未定,格式,上边

str="a|b|c|d" 要求写一段小程序得出： a|b|c|d b|c|d|a c|d|a|b d|a|b|c 这样的结果，str长度未定，格式是上边的格式。 实现代码如下: 实现代码如下： str="a|b|c|d" Call Sort(str, "|") Function Sort(sSou

2020-02-16 标签:获取,主机,vbs,cmdlib,wsc,实现,代码,如下,strcomputer,set,objcmdlib,microsoft,wscript,application,getobject,winmgmts

实现代码如下： strComputer = "." Set objCmdLib = CreateObject("Microsoft.CmdLib") Set objCmdLib.ScriptingHost = WScript.Application Set objWMIService = GetOb

2020-02-16 标签:vbs,runauto,脚本,病毒,分析,最近,一位,同事,笔记本,遭遇,正好,学期,计算机,专业,同学们,vbscript,顺便,首先,染病

最近一位同事的笔记本遭遇了这个病毒，正好这学期在给计算机专业的同学们上VBscript于是顺便分析了一下。 首先从染病毒的计算机上提取下来病毒样本，由于是临时发现的，也没有特别准备，就用winrar压缩后保存。 在实验机器上打开病毒样本的压缩文件，我的Symantec 11立即报警，并把病毒删除了。

2020-02-16 标签:文本文件,分割,脚本,vbs,windows,现存,比较好,用的,工具,我用,做了,各位,网友,共享,代码,如下,实现,option,explicit,只用

而Windows下没有一个现存的比较好用的分割工具，所以我用VBS做了一个文本文件的分割工具，和各位网友共享。脚本代码如下： 实现代码如下： Option Explicit '这个脚本只用来分割文本文件，脚本需要3个参数 '参数列表 '文件名 参数1 参数2 '梦想工作室 www.mx111.com

2020-02-16 标签:vbs,分割,合并,文本文件,代码,然而,想到,其他,再次,下载,发现,一次性,导入,几万个,地址,非常,缓慢,所以有,必要,把它

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