Другой способ - использовать счетчики производительности из .NET, например,
.
Dim pc As PerformanceCounter = New PerformanceCounter("System", "System Up Time")
pc.NextValue() ' This returns zero for a reason I don't know
' This call to NextValue gets the correct value
Dim ts As TimeSpan = TimeSpan.FromSeconds(pc.NextValue())
Таким образом, класс PerformanceCounter будет возвращать количество секунд, в течение которых система работала, и оттуда вы можете делать то, что хотите.