主頁 > 知識庫 > ProcessMagnifier.vbs進(jìn)程查看

ProcessMagnifier.vbs進(jìn)程查看

熱門標(biāo)簽:外呼系統(tǒng)群 上海辦理400電話選號 企業(yè)400電話辦理價錢低 機(jī)器人打電銷適用于美業(yè)嗎 天津智能外呼系統(tǒng)排名 智云億呼電話機(jī)器人 龍巖400電話申請 墨西哥地圖標(biāo)注app 外呼系統(tǒng)說話聲音小怎么辦
' FileName: ProcessMagnifier.vbs   
' Function: Capture information about the running processes in detail   
' code by somebody   
' QQ: 240460440   
' LastModified:2007-11-16 18:25   
' 僅供學(xué)習(xí)   

Const HKEY_CURRENT_USER = H80000001   
oReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")   
strKeyPath = "Console\%SystemRoot%_system32_cmd.exe"  
oReg.CreateKey(HKEY_CURRENT_USER, strKeyPath)   
strValueName1 = "CodePage"  
dwValue1 = 936   
strValueName2 = "ScreenBufferSize"  
dwValue2 = 98304200   
strValueName3 = "WindowSize"  
dwValue3 = 2818173   
strValueName4 = "HistoryNoDup"  
dwValue4 = 0   
strValueName5 = "WindowPosition"  
dwValue5 = 131068   
strValueName6 = "QuickEdit"  
dwValue6 = 2048   
oReg.SetDWORDValue(HKEY_CURRENT_USER, strKeyPath, strValueName1, dwValue1)   
oReg.SetDWORDValue(HKEY_CURRENT_USER, strKeyPath, strValueName2, dwValue2)   
oReg.SetDWORDValue(HKEY_CURRENT_USER, strKeyPath, strValueName3, dwValue3)   
oReg.SetDWORDValue(HKEY_CURRENT_USER, strKeyPath, strValueName4, dwValue4)   
oReg.SetDWORDValue(HKEY_CURRENT_USER, strKeyPath, strValueName5, dwValue5)   
oReg.SetDWORDValue(HKEY_CURRENT_USER, strKeyPath, strValueName6, dwValue6)   

  
Dim objWSH, FinalPath   
objWSH = WScript.CreateObject("WScript.Shell")   
If (LCase(Right(WScript.Fullname, 11)) = "wscript.exe") Then  
    FinalPath = "'"  WScript.ScriptFullName  "'"  
    objWSH.Run("cmd.exe /k cscript //nologo "  Replace(FinalPath, "'", """"))   
    WScript.Quit()   
End If  

oReg.DeleteKey(HKEY_CURRENT_USER, strKeyPath)   
oReg = Nothing  

WScript.Echo()   
WScript.Sleep(1000)   
WScript.Echo("當(dāng)前正在運行的進(jìn)程簡要信息列表如下:")   
WScript.Echo(vbCrLf)   
WScript.Sleep(2000)   

Dim MyOBJProcessName   
OBJWMIProcess = GetObject("winmgmts:\\.\root\cimv2").ExecQuery("Select * From Win32_Process")   
 WScript.Echo "Name:               Priority:   PID:    Owner:" vbTabvbTab"ExecutablePath: "  
WScript.Echo("---------------------------------------------------------------------------------------")   
For Each OBJProcess In OBJWMIProcess   
 MyOBJProcessName=OBJProcess.Name"                    "  
    colProperties = OBJProcess.GetOwner(strNameOfUser, strUserDomain)   
 WScript.Echo Mid(MyOBJProcessName,1,20) vbTab OBJProcess.Priority vbTab OBJProcess.ProcessID vbTab strNameOfUser vbTabvbTab OBJProcess.ExecutablePath   
Next  

WScript.Sleep(5000)   
WScript.Echo(vbCrLf)   
WScript.Echo("當(dāng)前正在運行的進(jìn)程以及其加載的模塊詳細(xì)信息樹狀結(jié)構(gòu)如下:")   
WScript.Echo(vbCrLf)   
WScript.Sleep(3000)   
WScript.Echo vbTabvbTabvbTabvbTabvbTabvbTabvbTabvbTabvbTabvbTabvbTabvbTabvbTabvbTabvbTabvbTab vbTab"創(chuàng)建時間             文件制造商"  

OBJWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")   
OBJRefresher = CreateObject("WbemScripting.SWbemRefresher")   
colItems = OBJRefresher.AddEnum(OBJWMIService, "Win32_PerfFormattedData_PerfProc_FullImage_Costly").ObjectSet   
OBJRefresher.Refresh()   
For Each OBJItem In colItems   
    Dim originalPath, ModulePath, WMIPathMode, FileManufacturer, LCaseModulePath   
    Dim FileExtension, mark, MyLCaseModulePath, FinalModulePath   
    originalPath = OBJItem.Name  
    ModulePath = Split(originalPath, "/")   
    WMIPathMode = Replace(ModulePath(1), "\", "\\")   
    OBJWMI = GetObject("winmgmts:\\.\root\CIMV2")   
    colManufacturer = OBJWMI.ExecQuery("SELECT * FROM CIM_DataFile Where Name='"  WMIPathMode  "'")   
    For Each OBJManufacturer In colManufacturer   
        FileManufacturer = Trim(OBJManufacturer.Manufacturer)   
        LCaseModulePath = LCase(Trim(OBJManufacturer.Name))   
        FileExtension = Right(LCaseModulePath, 3)   
        MyLCaseModulePath = LCaseModulePath  "                                                                                                                "  
        FSO = CreateObject("Scripting.FileSystemObject").GetFile(LCaseModulePath)   
        If FileExtension = "exe" Then  
            mark = "├—"  
            FinalModulePath = Mid(MyLCaseModulePath, 1, 118)   
            WScript.Echo("│")   
        Else  
            mark = "│├─"  
            FinalModulePath = Mid(MyLCaseModulePath, 1, 116)   
        End If  
    WScript.Echo mark  FinalModulePath  FSO.DateCreated vbTab FileManufacturer                            
    Next  
Next

標(biāo)簽:承德 錫林郭勒盟 青島 齊齊哈爾 鄂爾多斯 阜新 麗水 黃山

巨人網(wǎng)絡(luò)通訊聲明:本文標(biāo)題《ProcessMagnifier.vbs進(jìn)程查看》,本文關(guān)鍵詞  ProcessMagnifier.vbs,進(jìn)程,查看,;如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題,煩請?zhí)峁┫嚓P(guān)信息告之我們,我們將及時溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò),涉及言論、版權(quán)與本站無關(guān)。
  • 相關(guān)文章
  • 下面列出與本文章《ProcessMagnifier.vbs進(jìn)程查看》相關(guān)的同類信息!
  • 本頁收集關(guān)于ProcessMagnifier.vbs進(jìn)程查看的相關(guān)信息資訊供網(wǎng)民參考!
  • 推薦文章