Uptime eines Computers ermitteln

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

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 & "\root\CIMV2")
        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