[ packypfc @ 18.06.2009. 08:52 ] @
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 |