怎么在vbs中實(shí)現(xiàn)一個(gè)tasklist效果？相信很多沒有經(jīng)驗(yàn)的人對(duì)此束手無策，為此本文總結(jié)了問題出現(xiàn)的原因和解決方法，通過這篇文章希望你能解決這個(gè)問題。

創(chuàng)新互聯(lián)公司是一家集網(wǎng)站建設(shè),察雅企業(yè)網(wǎng)站建設(shè),察雅品牌網(wǎng)站建設(shè),網(wǎng)站定制,察雅網(wǎng)站建設(shè)報(bào)價(jià),網(wǎng)絡(luò)營銷,網(wǎng)絡(luò)優(yōu)化,察雅網(wǎng)站推廣為一體的創(chuàng)新建站企業(yè)，幫助傳統(tǒng)企業(yè)提升企業(yè)形象加強(qiáng)企業(yè)競爭力?？沙浞譂M足這一群體相比中小企業(yè)更為豐富、高端、多元的互聯(lián)網(wǎng)需求。同時(shí)我們時(shí)刻保持專業(yè)、時(shí)尚、前沿，時(shí)刻以成就客戶成長自我，堅(jiān)持不斷學(xué)習(xí)、思考、沉淀、凈化自己，讓我們?yōu)楦嗟钠髽I(yè)打造出實(shí)用型網(wǎng)站。

核心代碼

Option explicit 
If right(Ucase(WScript.FullName),11)="WSCRIPT.EXE" Then
	wscript.echo "You should run this script from the command line (cmd)" & vbCrLf & "cscript " & wscript.ScriptFullName
	WScript.Quit
End If

dim strComputer,objWMIService,colProcesses,objProcess,ProcessTime,strCreationDate,user,Domain,strOwner,h,m,s,chaine
strComputer = "." 
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") 
Set colProcesses = objWMIService.ExecQuery ("Select * from Win32_Process")    ' where Name='IEXPLORE.EXE' 
Chaine="Process   |Creation Date Time |Handles|Threads|Owner       |Priority|MemoryUsage|MaxMemUsage|MemRequired|MaxMemRequi|    Swap|  Max Swap|CPU time|PID |PFaults|Path" & vbCrLf 
For Each objProcess in colProcesses 
    If objProcess.GetOwner ( User, Domain ) = 0 Then 
        strOwner= Domain & "\" & User 
    Else 
        strOwner="Unknown" 
    End If 
    ProcessTime=(CSng(objProcess.KernelModeTime) + CSng(objProcess.UserModeTime)) / 10000000 
    h=right("0" & fix(ProcessTime/60/60),2) 
    ProcessTime=ProcessTime-h*60*60 
    m=right("0" & fix(ProcessTime/60),2) 
    s=Right("0" & round(ProcessTime-m*60),2) 
    strCreationDate=Mid(objProcess.CreationDate,7,2) & "/" & Mid(objProcess.CreationDate,5,2) & "/" & Left(objProcess.CreationDate,4) & " " & Mid(objProcess.CreationDate,9,2) & ":" & Mid(objProcess.CreationDate,11,2) & ":" & Mid(objProcess.CreationDate,13,2) 
    If strCreationDate="// ::" Then strCreationDate=Space(19) 
    Chaine=Chaine & Left(objProcess.Name & space(8),12) & "|" _ 
        & strCreationDate & "|" & Right(Space(6) & objProcess.HandleCount,7) & "|" _ 
        & Right(Space(6) & objProcess.ThreadCount,7) & "|" _ 
        & Left(strOwner & space(14),19) & "|" _ 
        & Left(objProcess.Priority & Space(7),8) & "|" _ 
        & Right(Space(10) & objProcess.PageFileUsage ,11) & "|" _ 
        & Right(Space(10) & objProcess.PeakPageFileUsage ,11) & "|" _ 
        & Right(Space(8) & objProcess.WorkingSetSize ,11) & "|" _ 
        & Right(Space(8) & objProcess.PeakWorkingSetSize ,11) & "|" _ 
        & Right(Space(10) & objProcess.VirtualSize ,11) & "|" _ 
        & Right(Space(10) & objProcess.PeakVirtualSize ,11) & "|" _ 
        & h & ":" & m & ":" & s & "|" _ 
        & Left(objProcess.ProcessID & space(3),4) & "|" _ 
        & Right(Space(6) & objProcess.PageFaults ,7) & "|" & objProcess.ExecutablePath 
    Chaine=Chaine & vbCrLf 
Next 
wscript.echo chaine

看完上述內(nèi)容，你們掌握怎么在vbs中實(shí)現(xiàn)一個(gè)tasklist效果的方法了嗎？如果還想學(xué)到更多技能或想了解更多相關(guān)內(nèi)容，歡迎關(guān)注創(chuàng)新互聯(lián)行業(yè)資訊頻道，感謝各位的閱讀！

網(wǎng)頁標(biāo)題：怎么在vbs中實(shí)現(xiàn)一個(gè)tasklist效果-創(chuàng)新互聯(lián)
文章地址：http://www.rwnh.cn/article12/cegcdc.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供外貿(mào)網(wǎng)站建設(shè)、網(wǎng)站導(dǎo)航、電子商務(wù)、外貿(mào)建站、搜索引擎優(yōu)化、微信公眾號(hào)

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來源： 創(chuàng)新互聯(lián)