Hej, jag har en wmisnurra som kollar om en service är uppe o rullar. Hej Bertil... Hej, detta var inte det jag tänkte mig, jag har redan allt fungerande när det gäller check av startstopp mm.stänga av wmiprvse.exe efter körning
Detta ska bara kollas vid ett visst tillfälle och inte hela tiden.
wmiprvse.exe startar vid anrop men stänger inte av sig själv när anropet är över, den ligger kvar där och tar upp minne men ingen cpu. Jag vill stänga av wmiprvse.exe efter jag kört min koll.
Jag kodar i VB6
Idéer?
MVH / BSv: stänga av wmiprvse.exe efter körning
Är osäker på wmiprvse.exe men kollar själv om smtp-servicen är igång för att kunna skicka e-mail i bakgrunden, jag lopar då igenom servicarna för att se om den finns och om den är startad, detta objekt innehåller metoden service.stop() om detta kan vara till någon nytta...
Vänligen Anders Svensson
Private Sub KollaSMTP()
' Kontrollerar att SMTP Service är installerad.
Dim services() As ServiceController = ServiceController.GetServices
Dim service As ServiceController
Dim blnHarSmtpService As Boolean = False
' Loopar genom alla servicar på datorn och hittar SMTP Servicen.
For Each service In services
If service.ServiceName.ToLower = "smtpsvc" Then
blnHarSmtpService = True
Exit For
End If
Next
If Not blnHarSmtpService Then
MessageBox.Show("Du har inte SMTP Service installerad på denna " & _
"dator. Var god och läs Readme filen för information om hur " & _
"du installerar SMTP Service.", Me.Text, _
MessageBoxButtons.OK, MessageBoxIcon.Information)
End If
' Kontrollerar att SMTP Servicen är igång. I annat fall, startar den.
If Not service.Status = ServiceControllerStatus.Running Then
Dim frmStatusMessage As New frmStatus
frmStatusMessage.Show("SMTP Service not currently running. " & _
"Starting service...")
Try
service.Start()
frmStatusMessage.Close()
Catch
MessageBox.Show("Det uppstod ett problem vid försöket " & _
"att starta din SMTP Service. Var vänlig läs Readme " & _
"filen för mer information.", Me.Text, _
MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End If
Dim frmStatusMessage As New frmStatus
frmStatusMessage.Show("SMTP Service not currently running. " & _
"Starting service...")
End SubSv:stänga av wmiprvse.exe efter körning
Det jag undrar över är varför wmiprvse.exe ligger kvar i körs efter min fråga e klar?
/B