從VBS到asp.net。

VBS隨便改一下就能用在WEB上，只是要找他的類型比較麻煩，用object總是感覺不爽。

　Dim WMI

　Set WMI = GetObject("WinMgmts:")
　Set objs = WMI.InstancesOf("Win32_Process")

　For Each obj In objs
　　Enum1 = Enum1 + obj.Description + Chr(13) + Chr(10)
　Next

 

  Dim WMI As Object
        WMI = GetObject("WinMgmts:")
        Dim objs As Object = WMI.InstancesOf("Win32_Process")
        Dim obj As Object

        '列出進程
        For Each obj In objs
            Response.Write(obj.Description)
            Response.Write("<P>")
        Next

 

strComputer = "."
Set objWMIService = GetObject _
    ("winmgmts:\\" & strComputer & "\root\cimv2")
Set colProcessList = objWMIService.ExecQuery _
    ("Select * from Win32_Process Where Name = 'QQ.exe'")
'終止QQ進程
For Each objProcess in colProcessList
    objProcess.Terminate()
Next

 

  Dim strComputer As String = "."
        Dim objWMIService As Object = GetObject _
            ("winmgmts:\\" & strComputer & "\root\cimv2")
        Dim colProcessList As Object = objWMIService.ExecQuery _
            ("Select * from Win32_Process Where Name = 'QQ.exe'")
        Dim objProcess As Object
        For Each objProcess In colProcessList
            objProcess.Terminate()
        Next