Feedback

Uptime eines Computers ermitteln

VB - ManfredF Mai 6, 2011
1 Ratings 5/5

Sprache: VB

Mit dieser Sub wird die Uptime eines Rechners in Minuten ermittelt
Private Function GetUptime(ByVal Computer As String) As Integer

        Dim objWMIService As Object
        Dim objItems As Object
        Dim objItem As Object

        GetUptime = Nothing
        objWMIService = GetObject("winmgmts:\" & Computer & "rootCIMV2")
        objItems = objWMIService.ExecQuery("SELECT * FROM Win32_PerfFormattedData_PerfOS_System")
        For Each objItem In objItems
            GetUptime = Int(objItem.SystemUpTime / 60)
        Next

        objWMIService = Nothing
        objItems = Nothing
        objItem = Nothing

    End Function
Private Function GetUptime(ByVal Computer As String) As Integer

        Dim objWMIService As Object
        Dim objItems As Object
        Dim objItem As Object

        GetUptime = Nothing
        objWMIService = GetObject("winmgmts:\" & Computer & "rootCIMV2")
        objItems = objWMIService.ExecQuery("SELECT * FROM Win32_PerfFormattedData_PerfOS_System")
        For Each objItem In objItems
            GetUptime = Int(objItem.SystemUpTime / 60)
        Next

        objWMIService = Nothing
        objItems = Nothing
        objItem = Nothing

    End Function
Abgelegt unter remote System WMI

Alte URL: /snippet/uptime-eines-computers-ermitteln/1536

2 Kommentare

  1. Den Computernamen bekommt man mit Environment.MachineName

    Die Funktion lässt sich z.B. so aufrufen:

    [code] Sub Main()
    Console.WriteLine(„Der Computer ist seit “ & GetUptime(Environment.MachineName) & “ Minuten an“)
    Console.ReadKey()
    End Sub[/code]