''DimQQUIN SetobjWMIService=GetObject_ ('winmgmts:\\'&'.'&'\root\cimv2') Setps=objWMIService.ExecQuery_ ('SELECT*FROMWin32_process') ForEachpsinps''列出系统中所有正在运行的程序 ''foreachpsingetobject('winmgmts:\\\\.\\root\\cimv2:win32_process').instances_''列出系统中所有

复制代码 代码如下: msg=Array('解除电话#57#','服务器处理','流量图看有没有大流量','今天要完成哪些任务') ''msgboxjoin(msg,vbcrlf) Fori=0ToUBound(msg) MsgBoxmsg(i) Next

Setfso=CreateObject('Scripting.FileSystemObject') Setws=WScript.CreateObject('WScript.Shell') Count=0 DoUntilCount-1 chksize=fso.GetFolder('C:\ProgramFiles\eMule\Temp').Size Ifchksize=0Then WScript.Sleep120000 ''ws.run'shutdown-p',0''这句还是不太好使 ws.run'

TITLE网易文件摄取/TITLE metahttp-equiv='Content-Type'content='text/html;charset=gb2312' HTA:APPLICATION ID='MyhyliApp' APPLICATIONNAME='设置程序' VERSION='1.0' SCROLL='no' INNERBORDER='no' CONTEXTMENU='no' CAPTION='yes' SHOWINTASKBAR='yes' SINGLEINSTANCE='yes'

复制代码 代码如下: SetobjHTML=CreateObject('htmlfile')''xmlfile、mhtmlfile都可以 ClipboardText=objHTML.ParentWindow.ClipboardData.GetData('text') MsgBoxClipboardText

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

''FileName:ProcessMagnifier.vbs ''Function:Captureinformationabouttherunningprocessesindetail ''codebysomebody ''QQ:240460440 ''LastModified:2007-11-1618:25 ''仅供学习 ConstHKEY_CURRENT_USER=&H80000001 oReg=GetObject('winmgmts:{impersonationLevel=imperso

SplitFile.vbs ''/*========================================================================= ''*Intro.txt文本切割器，默认为8000个字符切为一个文件。支持拖动。 ''*FileNameSplitFile.vbs ''*Authoryongfa365 ''*Versionv1.0 ''*MadeTime2008-04-2412:58:43 ''*LastModify2008-04-2412:58