Status eines Remote Service abfragen

  • VB.NET

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von Vulpes.

    Status eines Remote Service abfragen

    Hallo,

    ich hoffe jemand von Euch hat ne Idee, wie man den aktuellen Status eines Dienstes auf einem Remote Computer abfragen kann (gestartet, beendet)?!

    Dienste remote stoppen und starten ist zum Glück kein Problem.

    Besten Dank für sachdienliche Hinweise!

    ...könnte so gelöst werden

    VB.NET-Quellcode

    1. Private Sub ShowServiceState(ByVal srvname As String, ByVal User As String, ByVal Password As String, ByVal Service As String)
    2. Try
    3. 'Verbindungsdaten für den Remote Computer, unnötig für . bzw. lokal
    4. Dim oConn As ConnectionOptions = New ConnectionOptions
    5. oConn.Username = User
    6. oConn.Password = Password
    7. Dim strNameSpace As String = "\\"
    8. If (srvname <> "") Then
    9. strNameSpace = (strNameSpace + srvname)
    10. Else
    11. strNameSpace = (strNameSpace + ".")
    12. End If
    13. strNameSpace = (strNameSpace + "\root\cimv2")
    14. Dim oMs As ManagementScope = New ManagementScope(strNameSpace, oConn)
    15. 'Den W3SVC Service befragen
    16. Dim oQuery As ObjectQuery = New System.Management.ObjectQuery("select State from Win32_Service where Name=" + "'" + Service + "'")
    17. 'Anfrage ausführen
    18. Dim oSearcher As ManagementObjectSearcher = New ManagementObjectSearcher(oMs, oQuery)
    19. 'Ergebnisse beziehen
    20. Dim oReturnCollection As ManagementObjectCollection = oSearcher.Get
    21. For Each oReturn As ManagementObject In oReturnCollection
    22. ' Service State
    23. ListBox1.Items.Add((Service + " auf " + srvname & ":" + oReturn("State").ToString))
    24. Next
    25. Catch ex As Exception
    26. MessageBox.Show(ex.Message)
    27. End Try
    28. End Sub

    Aufruf: ShowServiceState("Servername oder IP", "Domäne\Adminuser", "Passwort", "Dienstname")

Facebook
Telefonspende