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
vom Prinzip her schon
Am besten ist es wenn du dies ausprobierst und dir das alles im Debug Modus anschaust
Wie du den Installationsordner von Windows herrausbekommst weisst du ja sicherlich. Diese kannst du dann anstatt winnt einsetzen
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]
