' Verify if uptime is above N hours
Public Function obf_UptimeCheck() As Boolean
    On Error GoTo obf_ProcError
    Dim obf_time1, obf_time2, obf_timeDiff, obf_objWMIService, obf_coll, obf_obj

    Set obf_objWMIService = GetObject("winmgmts:\\.\root\cimv2")
    Set obf_coll = obf_objWMIService.ExecQuery("SELECT LastBootUpTime FROM Win32_OperatingSystem")

    Set obf_wbemDate = CreateObject("new:47DFBE54-CF76-11D3-B38F-00105A1F473A")
    
    For Each obf_obj In obf_coll
        obf_wbemDate.Value = obf_obj.LastBootUpTime
        obf_time1 = DateDiff("s", "1/1/1970", Now())
        obf_time2 = DateDiff("s", "1/1/1970", obf_wbemDate.GetVarDate)
        obf_timeDiff = (obf_time1 - obf_time2)
    Next

    ' Check if uptime is longer than N hours.
    obf_UptimeCheck = (obf_timeDiff > <<<MIN_UPTIME_HOURS>>> * 3600)
    Exit Function
    
obf_ProcError:
    obf_UptimeCheck = False
End Function