Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

ObjectDock SysStats Uptime

[es] :: Skript jezici :: ObjectDock SysStats Uptime

[ Pregleda: 1769 | Odgovora: 0 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

packypfc
packypfc

Član broj: 117404
Poruke: 403
93.86.225.*



+7 Profil

icon ObjectDock SysStats Uptime18.06.2009. u 08:52 - pre 179 meseci
Koristim skriptu za ObjectDock-ov docklet SysStats, Uptime, koja meri vreme otkad je kompjuter uključen, međutim ima neki bug u samoj skripti,
naime menja minute, kada dodje do 30 sek, menja sate kad dodje do 30 min, i onda sve duplira, da li se neko razume i moze da ispravi ovo?
Evo kako izgleda skripta:

dim WmiDtm
Set WmiDtm = CreateObject("WbemScripting.SWbemDateTime")
strComputer = "."
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

'This function is called when the script should update its value.
'The interval between calls is defined in the 'Configure meters...' dialog
Function ScriptMeter_Update
' We are always going to have a different value so always return true.
ScriptMeter_Update = true
End Function

' Get the uptime.
Function ScriptMeter_GetValue(selector)
strQuery = "select * from Win32_PerfRawData_PerfOS_System"
Set colObjects = objWMIService.ExecQuery(strQuery)

For Each objWmiObject In colObjects
intPerfTimeStamp = objWmiObject.Timestamp_Object
intPerfTimeFreq = objWmiObject.Frequency_Object
intCounter = objWmiObject.SystemUpTime
Next

tmpDate = (intPerfTimeStamp - intCounter)/intPerfTimeFreq

uptime = ""
secs = tmpDate mod 60
uptime = secs & "s"
tmpDate = tmpDate/60
mins = tmpDate mod 60
If tmpDate > 0 Then uptime = mins & "m " & uptime End If
tmpDate = tmpDate/60
hours = tmpDate mod 24
If tmpDate > 0 Then uptime = hours & "h " & uptime End If
tmpDate = CInt(tmpDate / 24)
If tmpDate > 0 Then uptime = tmpDate & "d " & uptime End If

ScriptMeter_GetValue = uptime
End Function
 
Odgovor na temu

[es] :: Skript jezici :: ObjectDock SysStats Uptime

[ Pregleda: 1769 | Odgovora: 0 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.