查看DTL软件进程

上一篇 / 下一篇  2015-07-01 19:26:43 / 个人分类：VBScript

查看( 1085 ) / 评论( 1 ) / 评分( 0 / 0 )
'声明变量，用于PID宽度匹配
Dim PID_arr

'PID格式设置
Function pid(Num)
    If Num = 0 Then
        pid = "-   " & PID_arr(0)
    ElseIf Num < 10 Then
        pid = CStr(Num) & "   " & PID_arr(1)
    ElseIf Num < 100 Then
        pid = CStr(Num) & "  " & PID_arr(1)
    ElseIf Num < 1000 Then
        pid = CStr(Num) & " " & PID_arr(1)
    Else
        pid = CStr(Num)
    End If
End Function


Dim objWMIService : Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Dim P_Name, S_Name, pn, sn, colItems, objItem, IOXP

P_Name = Array(   Array("DriveTheLife.exe", 0), _
                Array("160WiFi.exe", 0), _
                Array("dtl_usb_assist.exe", 0), _
                Array("CalendarMain.exe", 0), _
                Array("SoftMgrMain.exe", 0), _
                Array("PhoneAssistant.exe", 0), _
                Array("WallPaper.exe", 0), _
                Array("SmartCalendar.exe", 0) )

S_Name = Array(   Array("DTLSvc6", 0), _
                Array("WifiSrv", 0), _
                Array("pnphost", 0), _
                Array("DTLTimeService", 0) )

For pn = 0 To UBound(P_Name)
    Set colItems = objWMIService.ExecQuery("Select * from Win32_Process where Name = '" & P_Name(pn)(0) & "'",,48)
    For Each objItem In colItems
        If objItem.ProcessId <> 0 Then P_Name(pn)(1) = objItem.ProcessId
    Next
    Set colItems = Nothing
Next

For sn = 0 To UBound(S_Name)
    Set colItems = objWMIService.ExecQuery("Select * from Win32_Service where Name = '" & S_Name(sn)(0) & "'",,48)
    For Each objItem In colItems
        If objItem.ProcessId <> 0 Then S_Name(sn)(1) = objItem.ProcessId
    Next
    Set colItems = Nothing
Next

Set colItems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem",,48)
For Each objItem In colItems
    IOXP = InStr(objItem.Caption, "XP")
Next
Set colItems = Nothing

If IOXP Then
    PID_arr = Array("", "")
    WScript.Echo "任务管理器 进程- PID" & Chr(10) & _
        Chr(10) & _
        "驱动人生Zone ------------------------------------------------------------ " & Chr(10) & _
        "              驱动人生 |DriveTheLife.exe : " & pid(P_Name(0)(1)) & "   |DTLSvc6 : " & pid(S_Name(0)(1)) & "        " & Chr(10) & _
        "             ----------|--------------------------|---------------------- " & Chr(10) & _
        "              160 WiFi |160WiFi.exe : " & pid(P_Name(1)(1)) & "        |160WifiSrv : " & pid(S_Name(1)(1)) & "     " & Chr(10) & _
        "             ----------|--------------------------|---------------------- " & Chr(10) & _
        "              USB 宝盒 |dtl_usb_assist.exe : " & pid(P_Name(2)(1)) & " |pnphost : " & pid(S_Name(2)(1)) & "        " & Chr(10) & _
        "             ----------|------------------------------------------------- " & Chr(10) & _
        "              软件管家 |SoftMgrMain.exe : " & pid(P_Name(4)(1)) & Chr(10) & _
        "             ----------|------------------------------------------------- " & Chr(10) & _
        "              百贝助手 |PhoneAssistant.exe : " & pid(P_Name(5)(1)) & Chr(10) & _
        Chr(10) & _
        "人生日历Zone ------------------------------------------------------------ " & Chr(10) & _
        "              人生日历 |CalendarMain.exe : " & pid(P_Name(3)(1)) & "   |DTLTimeService : " & pid(S_Name(3)(1)) & " " & Chr(10) & _
        "             ----------|------------------------------------------------- " & Chr(10) & _
        "              人生壁纸 |WallPaper.exe : " & pid(P_Name(6)(1)) & Chr(10) & _
        "             ----------|------------------------------------------------- " & Chr(10) & _
        "              轻 日 历 |SmartCalendar.exe.exe : " & pid(P_Name(7)(1))
Else
    PID_arr = Array("   ", " ")
    WScript.Echo "任务管理器 进程- PID" & Chr(10) & _
        Chr(10) & _
        "驱动人生Zone --------------------------------------------------------------------- " & Chr(10) & _
        "                     驱动人生 | DriveTheLife.exe : " & pid(P_Name(0)(1)) & "   | DTLSvc6 : " & pid(S_Name(0)(1)) & "         " & Chr(10) & _
        "                    -----------|------------------------------|--------------------------- " & Chr(10) & _
        "                     160WiFi | 160WiFi.exe : " & pid(P_Name(1)(1)) & "          | 160WifiSrv : " & pid(S_Name(1)(1)) & "      " & Chr(10) & _
        "                    -----------|------------------------------|--------------------------- " & Chr(10) & _
        "                     USB宝盒 | dtl_usb_assist.exe : " & pid(P_Name(2)(1)) & " | pnphost : " & pid(S_Name(2)(1)) & "         " & Chr(10) & _
        "                    -----------|---------------------------------------------------------- " & Chr(10) & _
        "                     软件管家 | SoftMgrMain.exe : " & pid(P_Name(4)(1)) & "                            " & Chr(10) & _
        "                    -----------|---------------------------------------------------------- " & Chr(10) & _
        "                     手机助手 | PhoneAssistant.exe : " & pid(P_Name(5)(1)) & "                            " & Chr(10) & _
        Chr(10) & _
        "人生日历Zone --------------------------------------------------------------------- " & Chr(10) & _
        "                     人生日历 | CalendarMain.exe : " & pid(P_Name(3)(1)) & " | DTLTimeService : " & pid(S_Name(3)(1)) & Chr(10) & _
        "                    -----------|---------------------------------------------------------- " & Chr(10) & _
        "                     人生壁纸 | WallPaper.exe : " & pid(P_Name(6)(1)) & Chr(10) & _
        "                    -----------|---------------------------------------------------------- " & Chr(10) & _
        "                     轻 日 历  | SmartCalendar.exe.exe : " & pid(P_Name(7)(1))
End If

Set objWMIService = Nothing

效果图

效果图

收藏 举报

TAG: vbs VBS

夏风 的个人空间 引用 删除 goodsecret   /   2015-07-01 19:31:43
。。。感觉放代码好渣，看来还是得 github
 

评分：0

我来说两句

日历

« 2024-05-15  
日 一 二 三 四 五 六
   1234
567891011
12131415161718
19202122232425
262728293031 

数据统计

  • 访问量: 7439
  • 日志数: 5
  • 建立时间: 2015-05-15
  • 更新时间: 2016-02-03

RSS订阅

Open Toolbar