AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Programmieren allgemein [MMC Automation] Bestimmtes Snap-in automatisiert laden und öffnen
Thema durchsuchen
Ansicht
Themen-Optionen

[MMC Automation] Bestimmtes Snap-in automatisiert laden und öffnen

Ein Thema von Dalai · begonnen am 7. Apr 2015 · letzter Beitrag vom 27. Apr 2015
Antwort Antwort
Benutzerbild von Dalai
Dalai

Registriert seit: 9. Apr 2006
1.680 Beiträge
 
Delphi 5 Professional
 
#1

[MMC Automation] Bestimmtes Snap-in automatisiert laden und öffnen

  Alt 7. Apr 2015, 16:00
Hallo ,

ich hab eine Frage zu einem etwas anders gelagerten Fall - abseits von Delphi - und hoffe, ihr könnt mir mit eurem Wissen auch diesmal behilflich sein.

Es geht um MMC Automation. Ich möchte ein bestimmtes Snap-in (konkret services.msc) laden und öffnen. Im verlinkten MSDN sind einige Funktionen aufgeführt, darunter auch Beispiele in einigen Sprachen (VB, VBS, C# usw). Also hab ich mir ein Beispiel genommen und an meine Bedürfnisse angepasst, um dann ziemlich schnell festzustellen, dass ich nicht weiterkomme. Ich hänge am Dialog zum Festlegen des Rechners, der mit dem Snap-in bearbeitet werden soll:
http://abload.de/image.php?img=servi...ninit04uez.png
(Bild auch nochmal im Anhang)

Inzwischen habe ich im MSDN gefunden, dass dieser Dialog eine spezielle PropertySheet ist, die auch Initialization Wizard genannt wird:
Zitat:
How-To Create an Initialization Wizard is a snap-in that creates a wizard page that pops up when the snap-in gets added to the MMC console. It brings up a dialog box that allows the user to enter a name which is then used in setting the display name for the root node.
Bei diesem Code bekomme ich die Meldung "pre" vor dem Initialization Wizard und erst nach Abschluss desselben die Meldung "post".
Code:
Option Explicit

Dim objMMC
Dim objsvc

' Create the MMC Application object.
Set objMMC = Wscript.CreateObject("MMC20.Application")

MsgBox("pre")

' Add the "Services" snap-in to the console.
set objsvc = objMMC.Document.SnapIns.Add("{58221C66-EA27-11CF-ADCF-00AA00A80033}")

MsgBox("post")

' Show the MMC application.
objMMC.Show

' Leave the MMC application in user control when this script ends.
objMMC.UserControl = 1
Hat jemand eine Ahnung, wie ich den Initialization Wizard umgehen oder besser gesagt automatisieren kann, d.h. die Daten für selbigen vorher festlegen kann, so dass der Dialog gar nicht erscheint? Ich möchte den gesamten Prozess automatisieren, und zwar für beliebige Rechner(namen).

MfG Dalai

PS: Ist das Absicht, dass kein IMG Tag mehr funktioniert, um externe Bilder einzubinden?
Miniaturansicht angehängter Grafiken
services_snap-init.png  

Geändert von Dalai ( 7. Apr 2015 um 16:04 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von Dalai
Dalai

Registriert seit: 9. Apr 2006
1.680 Beiträge
 
Delphi 5 Professional
 
#2

AW: [MMC Automation] Bestimmtes Snap-in automatisiert laden und öffnen

  Alt 15. Apr 2015, 20:46
Hat noch keiner mit der MMC in dieser Richtung zu tun gehabt? Mit welcher Sprache das letztlich gelöst wird, ist mir eigentlich egal (auch wenn ich abseits von Delphi und AutoIt ggf. etwas Nachhilfe brauche).

MfG Dalai
  Mit Zitat antworten Zitat
hathor
(Gast)

n/a Beiträge
 
#3

AW: [MMC Automation] Bestimmtes Snap-in automatisiert laden und öffnen

  Alt 15. Apr 2015, 21:08
MMC.exe ist einfach: Es braucht ein XML-File zur Steuerung.
Die Endung der XML-Files ist üblicherweise MSC,
kann aber auch bei XML belassen werden.
/a öffnet im Autorenmodus, ermöglicht Änderungen, z.B. Maximized
.
Geänderte MSC-Files sollte man nicht im System32-Ordner speichern.
Im Beispiel müssen die MSC-Files im Programmordner sein, wenn kein Pfad angegeben wird.

Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject); // diskmgmt.msc
var FN: String;
begin
FN:= ExtractFilePath(Application.ExeName)+'diskmgmt.msc'; // XML-File !
ShellExecute(0,nil,PChar('mmc.exe'),PChar(' /a '+FN),'',SW_SHOWMAXIMIZED);
end;

procedure TForm1.Button1Click(Sender: TObject); // services.msc
var FN: String;
begin
FN:= ExtractFilePath(Application.ExeName)+'services.msc'; // XML-File !
ShellExecute(0,nil,PChar('mmc.exe'),PChar(' /a '+FN),'',SW_SHOWMAXIMIZED);
end;

Geändert von hathor (15. Apr 2015 um 21:19 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von Dalai
Dalai

Registriert seit: 9. Apr 2006
1.680 Beiträge
 
Delphi 5 Professional
 
#4

AW: [MMC Automation] Bestimmtes Snap-in automatisiert laden und öffnen

  Alt 15. Apr 2015, 22:46
Das ist mir klar. Es geht hier aber um komplett dynamisch geladene Daten. Letztlich möchte ich das Services-Snap-in mit einem bestimmten Rechner laden. Ich nahm an, dass hierfür die MMC Automation geeignet ist, aber momentan sehe ich nicht, wie mir selbige weiterhelfen soll, wenn ich schon beim Init Wizard steckenbleibe.

Fun fact: Schon die Beschreibung Add-Methode ist lustig, denn hier kann man entweder den Namen (natürlich sprachabhängig, sowas is klasse für "Automation" ) oder eine CLSID angeben, aber gibt MS irgendwo eine Liste der CLSIDs für die mit Windows ausgelieferten Snap-ins? Nö, warum auch... .

Hast du mal geschaut, wo die MMC im MSC den Rechner hinterlegt? Im sprachabhängigen Beschreibungstext, der auch für die Anzeige verwendet wird. Fazit: hilft mir nicht weiter. Dazu kommt noch, dass ich nicht wegen dieser Kleinigkeit einen XML-Parser/-Writer in meine Software einbauen will, noch dazu da MS das Format der MSCs jederzeit ändern kann.

MfG Dalai
  Mit Zitat antworten Zitat
Benutzerbild von Dalai
Dalai

Registriert seit: 9. Apr 2006
1.680 Beiträge
 
Delphi 5 Professional
 
#5

AW: [MMC Automation] Bestimmtes Snap-in automatisiert laden und öffnen

  Alt 27. Apr 2015, 16:45
Gestern bin ich durch Zufall in einem anderen Zusammenhang auf einen undokumentierten Parameter gestoßen, der für die meisten Snap-ins funktioniert: /computer. Es ist also möglich, dass ich das Gewünschte so erreiche:
Code:
%SystemRoot%\system32\mmc.exe %SystemRoot%\system32\services.msc /computer=<rechnername>
Das funktioniert zwar auf Win2k nicht, aber damit kann ich leben.

Fazit: Es ist immer wieder toll, zu sehen, dass es zwar Automatisierungsmöglichkeiten gibt, diese aber völlig überflüssigerweise torpediert werden durch irgendwelche Einschränkungen. Und wer braucht schon Dokumentation? Ist doch alles selbsterklärend und auch vollkommen logisch... Kopf -> Tisch .

Etwas OT, aber da es zum Thema des vorigen Absatzes passt: Hat schonmal jemand versucht, die Windows Firewall via netsh einzustellen, und zwar so, dass die Regelgruppen unabhängig von der Sprache des OS angegeben werden können? Ich hab bislang keinen Weg gefunden, nur sprachabhängige Namen sind möglich. Also auch hier eine sinnfreie Einschränkung, die Automatisierung derart behindert, dass man sie vergessen kann.

MfG Dalai
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 18:04 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz