Avatar billede garfi Nybegynder
31. oktober 2002 - 14:30 Der 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
Avatar billede medions Nybegynder
31. oktober 2002 - 15:21 #1
Hmm jeg forstår ik' rigtig hvad problemet er! -Prøv lige at beskriv det lidt nærmere..

//>Rune
Avatar billede garfi Nybegynder
31. oktober 2002 - 15:32 #2
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
Avatar billede medions Nybegynder
31. oktober 2002 - 15:34 #3
Det er fordi den har lavet en Service! -Disable eller fjern den service så skulle den ikke komme igen...

Har du Win2K?

//>Rune
Avatar billede garfi Nybegynder
31. oktober 2002 - 15:49 #4
nej xp hvor fjerner jeg denne service
Avatar billede medions Nybegynder
31. oktober 2002 - 15:54 #5
Control Panel > Administrative Tools > Services

og der fjerner du den så...

//>Rune
Avatar billede medions Nybegynder
31. oktober 2002 - 16:08 #6
Thx 4 Poinz

//>Rune
Avatar billede initializing Nybegynder
31. oktober 2002 - 16:09 #7
Lav lige en bedre overskrift. "Hjælp" siger jo ikke så meget vel...
Avatar billede garfi Nybegynder
31. oktober 2002 - 16:52 #8
ok medions kan du så fortælle mig hvad servicen hedder
Avatar billede medions Nybegynder
31. oktober 2002 - 17:32 #9
Den kunne evt. hedde:
Win32_PerfFormattedData_PerfOS_Memory

//>Rune
Avatar billede Ny bruger Nybegynder

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.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester