人妻出轨中文字幕不卡一区,国产精品嫩草久久久久,国产狂喷潮黄色网站

This short script uses WMI to display the same information than in the tool "tasklist", but dumping the result on the console. It can dump remote tasks running on another computer,
這個簡短的腳本使用wmi顯示與工具“tasklist”中相同的信息，但只有在命令行下輸出結(jié)果。它也可以在另一臺計算機上查看遠程任務(wù)，
文件名：tasklist.vbs
要求：無
作者：Jean-Luc Antoine
提交日期：2005年7月14日
類別：4K

核心代碼

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="http:// ::" 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

代碼運行方法，將上面的代碼為tasklist.vbs

在cmd下 cscript tasklist.vbs 即可，也可以在cmd下 cscript tasklist.vbs >list.txt直接將結(jié)果保存為list.txt查看也比較容易

好了，代碼到此結(jié)束

您可能感興趣的文章:

dos進程查看與停止命令分享(tasklist,taskkill)
SC tasklist與ntsd命令使用
cmd Tasklist與Tskill管理Windows系統(tǒng)進程
利用tasklist與taskkill實現(xiàn)AV終結(jié)者新變種（隨機7位字母病毒）的刪除方法

標(biāo)簽：宣城鹽城南昌景德鎮(zhèn) 黔南東莞桂林文山

巨人網(wǎng)絡(luò)通訊聲明：本文標(biāo)題《vbs實現(xiàn)的tasklist效果代碼》，本文關(guān)鍵詞 vbs,實現(xiàn),的,tasklist,效果,；如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題，煩請?zhí)峁┫嚓P(guān)信息告之我們，我們將及時溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò)，涉及言論、版權(quán)與本站無關(guān)。