31. oktober 2002 - 14:30Der er
8 kommentarer og 1 løsning
hjælp
da jeg i min iver lavet et script vbs så jeg kunne holde øje med min computers helbred. gik det galt nu kommer der en popup hvert halve minut og fortæler mig at min pc er ok jeg har slettet script filen men den gemmer sig åbenbart godt..hvad gør jeg
jeg lavede en downloadet en scribt som jeg gemte i notepad som vbs fil, den skulle så holde øje med min computers tilstand men det gjorde den hvert andet minut hvor der kommer en popup op og siger den har det godt.
det blev jeg træt af og slettede filen men efter at have gjort det blev den ved med at fotælle mig hvordan den havde det. sådan her ser det ud
strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") set objRefresher = CreateObject("WbemScripting.Swbemrefresher") Set objMemory = objRefresher.AddEnum _ (objWMIService, "Win32_PerfFormattedData_PerfOS_Memory").objectSet Set objDiskQueue = objRefresher.AddEnum _ (objWMIService, "Win32_PerfFormattedData_PerfDisk_LogicalDisk"). _ objectSet Set objQueueLength = objRefresher.AddEnum _ (objWMIService, "Win32_PerfFormattedData_PerfNet_ServerWorkQueues"). _ objectSet objRefresher.Refresh intHealthStatus = 0 Do For each intAvailableBytes in objMemory If intAvailableBytes.AvailableMBytes < 4 Then intHealthStatus = intHealthStatus + 1 End If Next For each intQueueLength in objDiskQueue If intQueueLength.CurrentDiskQueueLength > 2 Then intHealthStatus = intHealthStatus + 1 End If Next For each intServerQueueLength in objQueueLength If intServerQueueLength.QueueLength > 4 Then intHealthStatus = intHealthStatus + 1 End If Next If intHealthStatus > 0 Then Wscript.Echo "Unhealthy." Else Wscript.Echo "Healthy." End If intHealthStatus = 0 Wscript.Sleep 10000 objRefresher.Refresh Loop
Den kunne evt. hedde: Win32_PerfFormattedData_PerfOS_Memory
//>Rune
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.