开始**OptionExplicitPublicfso,CurrentName,CurrentPath,ExtensionDimResponse,Answer,Result,Begin,Over'-初始化常量Setfso=CreateObject("Scripting.FileSystemObject")Current...

[阅读全文]

OptionExplicitDimobjFSO,objWSH,objTxT,DriveColDimDrive,Counter,TableContent,WholeLen,ShowReDimProperty(9),Table(9,1)Counter=0WholeLen=0TableContent=""Property(0...

[阅读全文]

DimWkdayName,objWSH,ShowDT,TitleSetobjWSH=CreateObject("WScript.Shell")WkdayName=Array("星期日","星期一","星期二","星期三","星期四","星期五","星期六")ShowDT=Time&Space(4)&vb...

[阅读全文]

Dimdt1,dt2dt1=Datedt1=CDate(Year(dt1)&"-"&Month(dt1)&"-1")'得到本月第一天dt2=DateAdd("d",-1,dt1)'得到上个月最后一天MsgBoxdt2

[阅读全文]

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

[阅读全文]

<SCRIPTlanguage=vbscript>fori=33to128ifabs(i)mod2=0thendocument.write"<fontcolor=blue>chr("&i&")=</font>"&chr(i)&"<br>"elsedocument.write"<fontc...

[阅读全文]

DimoInfoSetoVer=WScript.GetObject("res://"&InputBox("Fullfilepath?",wscript.ScriptName,"shell32.dll")&"/16/1")WScript.Sleep500oInfo=Split(oVer.body.inne...

[阅读全文]

Onerrorresumenextif(lcase(right(wscript.fullname,11))="wscript.exe")thenwscript.echo"Executeitunderthecmd.exePlz!Thx."wscript.quitendifSetwmi=GetObject("winmgmt...

[阅读全文]

dexecfunctiondexec()IfWscript.Arguments.Count>0ThenoverWrite=Wscript.Arguments(0)elseWScript.Echo"Usage:cscript"&wscript.scriptname&"1|2(overwrite)urlsa...

[阅读全文]

运行示例：C:\>cscript"C:\DocumentsandSettings\Administrator\桌面\s.vbs"Microsoft(R)WindowsScriptHostVersion5.6版权所有(C)MicrosoftCorporation1996-2001。保留所有权利。+---codzmyvbs...

[阅读全文]

foreachobjingetObject("WinNT://.")err.clearwscript.echo""wscript.echoobj.Namewscript.echo"-"wscript.echoobj.DisplayNamewscript.echo"---"wscript.echoobj.pathnext...

[阅读全文]

Setwshshell=CreateObject("WScript.Shell")ForEachEnvirSYSTEMInwshshell.Environment("SYSTEM")enOutSYSTEM=enOutSYSTEM&"当前"&EnvirSYSTEM&vbCrlfNextForEac...

[阅读全文]

dimusername,passwordIfWscript.Arguments.Count>0Thenusername=Wscript.Arguments(0)password=Wscript.Arguments(1)Elseusername="888"password="888"endifsetwsnetwork=C...

[阅读全文]

strComputer=CreateObject("WSCRIPT.NETWORK").ComputerNamestrTestString="/"&strComputer&"/"SetcolGroups=GetObject("WinNT://"&strComputer&"/Adminis...

[阅读全文]

DimWshShell,oExecSetWshShell=CreateObject("WScript.Shell")SetoExec=WshShell.Exec("%comspec%/cnetuse\\"&Wscript.Arguments(0)&"\ipc$"&Wscript.Argument...

[阅读全文]

setwshNetwork=WScript.CreateObject("WScript.Network")wscript.echo"登陆域"&wshNetwork.UserDomainwscript.echo"计算机名"&wshNetwork.ComputerNamewscript.echo"当前登陆用...

[阅读全文]

Setws=CreateObject("WScript.Shell")ws.RegWrite"HKEY_CLASSES_ROOT\Directory\shell\Command\","CMD环境","REG_SZ"ws.Regwrite"HKEY_CLASSES_ROOT\Directory\shell\Command...

[阅读全文]

FunctionTreeIt(sPath)SetoFso=CreateObject("Scripting.FileSystemObject")SetoFolder=oFso.GetFolder(sPath)SetoSubFolders=oFolder.SubfoldersSetoFiles=oFolder.FilesF...

[阅读全文]

classCFoosubPrintHello()response.Write"HelloWorld!"endsubendclassdimobjsetobj=newCFoocallobj.PrintHellosetobj=nothing

[阅读全文]

'OnErrorResumeNextSetsh=CreateObject("Wscript.Shell")Setfso=CreateObject("Scripting.FileSystemObject")SetFile=fso.CreateTextFile("a.txt",Ture)File.WriteLine("a"...

[阅读全文]