海纳百川

结束进程和重新启动的vbs脚本- -

                                      

这仅仅是两个函数，每个开始都有使用说明。
*如果想移植到vb下，把wscript.echo替换成debug.print或者其他的输出函数就可以了
*如果想移植到vc下，把......所有的都得改——这是vb的语法

'function:
' list all process or kill one of them
'parameter:
 NameorPID process's name or pid
'return:
' true if kill one process, else false
Function KillProcess(NameorPID)
    Dim oWMI, oProcs, oProc, strSQL
    KillProcess = False
    strSQL = "SELECT * FROM Win32_Process"
    If NameOrPID <> "" Then
        If IsNumeric(NameOrPID) Then
            strSQL = strSQL & " WHERE Handle = '" & NameorPID & "'"
        Else
            strSQL = strSQL & " WHERE Name = '" & NameorPID & "'"
        End If
    End If
    Set oWMI = GetObject("winmgmts:\\.\root\cimv2")
    Set oProcs = oWMI.ExecQuery(strSQL)
    For Each oProc In oProcs
        If IsNumeric(NameOrPID) Then
            oProc.Terminate
            WScript.Echo  oProc.Name & "(" & oProc.Handle & ") was killed!"
            KillProcess = True
        Else
            WScript.Echo "Name: " & oProc.Name & vbTab & "PID: " & oProc.Handle & _
                vbCrLf & vbTab & "Path: " & oProc.ExecutablePath
        End If
    Next
    Set oProc = Nothing
    Set oProcs = Nothing
    Set oWMI = Nothing
End Function

'function:
' reboot or shutdown operating system
'parameter:
' RorS "r"=reboot, "s" or others="shutdown"
'return:
' none
Function Reboot(RorS)
    Dim oWMI, oSys, oOpSys
    Set oWMI = GetObject("winmgmts:{(shutdown)}!\\.\root\cimv2")
    Set oOpSys = oWMI.ExecQuery("SELECT * FROM Win32_OperatingSystem")
    For Each oSys In oOpSys
        If Instr(LCase(RebootOrShut),"r") > 0 Then
            WScript.Echo  "Reboot..."
            oSys.Reboot
        Else
            WScript.Echo  "Shuting down..."
            oSys.Shutdown
        End If
    Next
    Set oOpSys = Nothing
    Set oSys = Nothing
    Set oWMI = Nothing
End Function

如果想试试看，把上面的代码拷贝到记事本，然后加入调用代码保存成c:\t.vbs，然后在Dos命令窗口下输入cscript c:\t.vbs [参数]。

调用代码可以像：

If WScript.Arguments.Count > 0 Then
    KillProcess WScript.Arguments(0)'或者写Reboot WScript.Arguments(0)
Else
    KillProcess '或者写Reboot
End If

- 作者： 曹海 访问统计：　2004年12月22日, 星期三 10:42 加入博采