Einen Service Starten

Computer: Software & Programmierung Visual Basic
#1

Hallo!

Mal ne Frage zu folgenden Code:
Muss man bei Windows XP das ‚GetObject(„WinNT://“‘ durch ‚GetObject(„Windows://“‘ ersetzen, da bei Windows XP der Ordner, in dem Windows installiert ist, ja ‚Windows‘ und nicht (wie bei Windows 2000) ‚WinNT‘ heißt.

Set oService = GetObject(„WinNT://“ & _
Environ(„computername“) & „/messenger,service“)

If Err.Number = 0 Then
With oService
Select Case Index
Case 0
If .Status = 4 Then
.Stop
End If
Case 1
If .Status = 1 Then
.start
End If
End Select
End With
Else
MsgBox "Fehler: " & Err.Number & vbCrLf & _
Err.Description, vbCritical, „Fehler“
End If

Danke

Gruß Hans

#2

Hallo Hans,

vom Prinzip her schon :smile:
Am besten ist es wenn du dies ausprobierst und dir das alles im Debug Modus anschaust :smile:
Wie du den Installationsordner von Windows herrausbekommst weisst du ja sicherlich. Diese kannst du dann anstatt winnt einsetzen :smile:

Hier eine kleine erläuterung zu CreateObject:

GetObject-Funktion VB4/32 | VB5 | VB6
Stand: 14.05.2001

Beschreibung:
Mit der GetObject-Funktion greift man auf das OLE-Automatisierungsobjekt einer Datei zu. Damit kann man beispielsweise alle Office-Anwedungen „fernsteuern“. Zur weiteren Verwendung des Objekts muss dann die entsprechende Dokumentation herangezogen werden, in welcher der Hersteller die Schnittstellen-Beschreibung angibt.

Syntax:

GetObject ( [Pfad, [Klasse]] )

Parameter:
Pfad Optional. (String) Vollständiger Pfad und Name der Datei., Wenn Pfad nicht angegeben ist, wird Klasse erforderlich
Klasse Optional. (String) Der Klassenname (ProgID) der Anwendung

Beispiel:

Set xmlObj = GetObject(„C:\test.html“) ’ Gibt das DOM des Dokuments zurück
’ Die weiteren Befehle, Eigenschaften und Funktionen
’ richten sich an das DOM oder das jeweilige Automatisierungsobject
Set xmlObj = Nothing ’ Objektvariable löschen

MFG Alex

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]