查看或修改Windows系列系统的序列号的vbs

2017年02月06日 69 阅读

"/*========================================================================= "*Intro查看或修改Windows系列系统的序列号（包括：2000,xp,2003），支持命令行“GetChangeWindowsSN.vbsWindows系统序列号”或直接运行输入Windows系统序列号。 "*FileNameGetChangeWindowsSN.vbs "*Authoryongf...

vbs adox提取数据库表名和列名的类

2017年02月06日 75 阅读

<！--#includevirtual="/include/conn.inc"--> <% "********************************* "*classname:ADOXDBOPR "*制作人:刘晓逸 "*作用:用adox进行数据库的操作 "*版本:1.0 "*www.jb51.net 脚本之家"********************************** ClassADOXDBOPR dimobjADOX...

vbs实现的eMule电驴自动关机脚本代码

2017年02月06日 78 阅读

Setfso=CreateObject（"Scripting.FileSystemObject"） Setws=WScript.CreateObject（"WScript.Shell"） Count=0 DoUntilCount<-1 chksize=fso.GetFolder（"C:ProgramFileseMuleTemp"）.Size Ifchksize=0Then WScript.Sleep120000 "ws.run"shutdown-p"...

vbs判读盘符被双击的脚本

2017年02月06日 78 阅读

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

vbs下一些取特殊路径的方法总结

2017年02月06日 93 阅读

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

vbscript禁用 启用fso的方法

2017年02月06日 73 阅读

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

getSQLinfo.vbs 获得SQL数据/日志空间使用情况的脚本

2017年02月06日 88 阅读

获得SQL数据/日志空间使用，已使用的和未使用的空间的脚本 getSQLinfo.vbs "scripttogetSQLDATA/LOGSpaceUsed,Spaceunused, andSpaceFree "Author:FelipeFerreira,DanielMagrini "Date:05/07/07 "Version2,0 "@@TOCHANGE:::SERVERNAMEInstance,domainuser,passwordANDDATABSE...

高手必看的vbs的至尊境界

2017年02月06日 68 阅读

自以为vbs玩得够好了，FSO和WMI也玩得很顺，直到看到LCX前辈的文章，才悟出了vbs的奥义。 原来vbs的至尊境界就是：一切windows对象皆可调用，任何CLSID都可以来CreateObject的。基本上可以直接用vbs来调用系统绑定的任意一个程序！恐怖的难以想象 努力学习吧...

vbs 获取radmin注册表中的信息

2017年02月06日 76 阅读

<% "========================================Main====================================== SetWSH=Server.CreateObject（"Wscript.shell"） RadminPath="HKEY_LOCAL_MACHINESYSTEMRAdminv2.0ServerParameters" Parameter="Parameter" Port="Port...

vbs解答一道初中数学题i,x,y

2017年02月06日 65 阅读

一道初中数学题，用VBS找到答案 未知数～i加上100成为一个完全平方数～X，i加上168成为另外一个完全平方数～Y，i,x,y都是正整数，求出i,x,y --------------------------------------------------- n=0 msg1="未知数～i加上100成为一个完全平方数～X"+chr（10） msg2="i加上168成为另外一个完全平方数～Y"+chr（10）+"i,x,y都是正整数"+chr（10） l=i...

vbs之自动安装驱动程序

2017年02月06日 104 阅读

其实，很简单，只要将这些驱动程序的inf文件所在的文件夹注册到注册表中。比如： 我们把自己电脑上的驱动程序，通过驱动精灵之类的软件从系统中分离出来以后，如果想在下一次安装系统的时候，自动安装这些驱动程序。我们可以把这些分离出来的驱动程序对应的文件夹写入注册表，然后重新启动电脑，电脑会自动搜索硬件并安装驱动程序。这是不是很爽？这里我使用winrar+vbs实现。 比如我们现在有如下几个驱动程序及其inf文件对应的文件夹： 主板------maincard 显...

vbs Windows系统改变或修改网卡的MAC地址的脚本与软件第1/2页

2017年02月06日 68 阅读

"/*========================================================================= "*Intro网上找了一圈，都不怎么好，有一个比较不错的，汉化作者汉化时加了个自己的介绍文件，这个文件比程序本身还大，感觉不爽，于是本人的VBS版MAC修改代码便诞生了,在使用过程中如果出现不能上网的情况得返回一下网卡驱动（有些机器比较特别），如果要返回以前的MAC可以：开始-->控制面板-->...

让IIS建立的站点默认是.net 2.0的,而不是.net 1.1的代码

2017年02月06日 64 阅读

"/*========================================================================= "*Intro让IIS建立的站点默认是.net2.0的,而不是.net1.1的,没有使用WMI,所以在操作前先得停止IIS相关服务 "*FileNameChangeMetaBaseScriptMaps.vbs "*Authoryongfa365 "*Versionv1.0 "*WEBhttp://www....

VBS利用SendKeys输入中文字符的方法

2017年02月06日 178 阅读

首先我们看一个输入字母的例子： 复制代码 代码如下:set s = WScript.CreateObject（"WScript.Shell"） app=s.Run （"C:windows otepad.exe"） code="biweilun" WScript.Sleep 1000 s.AppActivate app s.SendKeys code Wscript.quit 这段vbs会SendKeys方法的朋友就知道，作用是打开一个记事本，然后把"biw...

vbs加administrator用户的代码

2017年02月06日 76 阅读

setwsnetwork=CreateObject（"WSCRIPT.NETWORK"） os="WinNT://"&wsnetwork.ComputerName Setob=GetObject（os）"得到adsi接口,绑定 Setoe=GetObject（os&"/Administrators,group"）"属性,admin组 Setod=ob.Create（"user","test"）"建立用户 od.SetPassword"1234""设置密码 ...

用vbs列出机器上所有能调用的组件

2017年02月06日 69 阅读

"要用到regtool.ocx,请下载http://www.jb51.net/jslib/regtool.ocx,用前请regsvr32regtool.ocx setwshshell=CreateObject（"WScript.Shell"） setregistry=CreateObject（"regtool.tob"） "获取一个dictionary对象存储键名 setdict=CreateObject（"Scripting.Dictionary"） "...

用vbs实现选择颜色

2017年02月06日 74 阅读

如果不用组件的话，代码如下： setie=createobject（"internetexplorer.application"） ie.navigate"about:blank" dountilie.readystate=4:wscript.sleep25:loop setdoc=ie.document setbody=doc.body setwin=doc.parentwindow body.innerhtml="<OBJECTid=dlgCLA...

vbs选择文件夹效果代码

2017年02月06日 86 阅读

不用组件的话有两种办法： setobjFile=CreateObject（"SAFRCFileDlg.FileOpen"） SetobjShell=CreateObject（"Shell.Application"） 本blog里都有示例。 如果调用vb组件，可以是: flag=&h200 whichone=OpenFile（"ChooseaFile！","C:","Everything|*.*|TextFiles|*.TXT|Word-Documents|...

vbs的sort排序

2017年02月06日 56 阅读

FunctionfSortArray（aSortThisArray） DimoArrayList,iElement SetoArrayList=CreateObject（"System.Collections.ArrayList"） ForiElement=0ToUBound（aSortThisArray） oArrayList.AddaSortThisArray（iElement） Next oArrayList.Sort setfSortArray=o...

adodb.stream读文件到数组的代码

2017年02月06日 81 阅读

Functionfilenum（filename,i） Dimst,s Setst=CreateObject（"ADODB.Stream"） st.Type=2"流类型为文本 st.Mode=3"模式为读写 st.Open st.LineSeparator=13 st.LoadFromFilefilename DoWhileNotSt.EOS s=Split（st.readtext（）,vbCrLf） Loop "MsgBoxUBound（s）total ...