Auto-It: Administration von COM+ Komponenten

Hallo zusammen.

Wiedereinmal stehe ich vor einer knacknuss

Ich soll eine Com+ Komponente starten / beenden können, sowie auf basis einer AD Gruppe berechtigen.

Administrative Vorlagen - Component Services - hat man ja ein nettes Gui zum Thema

Nur: wie kann ich das Scriptgesteuert, bzw mit Auto-It erledigen?

Bin mich gerade am Einlesen, vielleicht weiss ja auch hier jemand rat: Laut hilfe ist das jedoch auch hier absolutes Neuland...

http://msdn.microsoft.com/en-us/library/ms688285

Anscheinend kann man Com+ Komponenten auch in ein MSI Exportieren! Aber bei mir endet das im Error Code 8002801D

http://www.carlosag.net/Articles/configureComPlus.aspx

http://en.wikipedia.org/wiki/Component_Object_Model

Erstellen von Com+ Komponenten: http://www.vbgold.com/asp-printer-in…-services.shtml

Ich hoffe mal wieder auf euch,

Surfy

Hi Bugfix

Ich soll eine mir gelieferte Com+ Komponente im Netzwerk automatisiert verteilen können

Ich habe inzwischen herausgefunden, dass man die fast die komplette Konfiguration an einem PC mit Adminrechten durchführen kann, und dann das ganze COM+ gedöns als MSI exportieren kann, inkl. berechtigten AD Gruppen.

Die ganze Com+ Komponente kann man als noch unter einer anderen Identität laufen lassen, und da klemmt es noch als letztes...

Das ganze ist eher ein Scriptingproblem als solches, gewusst wie bekomme ich es wahrscheinlich dann auch einfach in Autoit umgesetzt. Zum durchklicken ginge das ganze so:

[list=1]
[*]On the Start menu, point to Settings, click to Control Panel, double-click Administrative Tools, and then double-click Component Services.

[*]In the console tree, expand Component Services, expand Computers, expand My Computer, and then expand COM+ Applications.

[*]Click the COM+ application for which you want to change the identity, and on the Action menu, click Properties.

[*]On the Advanced tab, in the Permission area, verify that the Disablechanges check box is cleared, and then click OK.
The properties dialog box closes.
[*]Right-click the COM+ application again, and then click Properties.

[*]On the Identity tab, in the Account area, click This user.

[*]Type the information for the account that you want to use.

[*]Click OK.
The following message appears: The applications were created by one or more external products. Are you certain the changes you are about to make are supported by these products?
[*]Click Yes.

Dieser VBScrip ausgeführt mit cscript soll das ganze richten *kopfkratz*

' VBScript source code
if WScript.Arguments.Count <> 1 Then
WScript.Echo "usage: COMAdmin <appid>"
WScript.End
end if


Dim appID
appID = WScript.Arguments(0)


Dim oCatalog 'As COMAdminCatalog
Dim oApplications 'As COMAdminCatalogCollection
Dim oApp 'As COMAdminCatalogObject


Set oCatalog = CreateObject("ComAdmin.COMAdminCatalog")
Set oApplications = oCatalog.GetCollection("Applications")


oApplications.PopulateByKey Array(appID)
Set oApp = oApplications.Item(0)


' Or
'oApplications.Populate
'Dim oTempApp


'For Each oTempApp In oApplications
' If oTempApp.Name = "System Application" Then
' Set oApp = oTempApp
' Exit For
' End If
'Next


'WScript.Echo oApp.Name & ": " & oApp.Value("Identity")


'oApp.Value("Identity") = "LocalSystem"
'oApp.Value("Identity") = "Interactive User"


'oApp.Value("Identity") = "DOMAIN\newIdentity"
'oApp.Value("Password") = "newPassword"


'oApplications.SaveChanges()


' Iterate Components of the application if you need to.
Dim oComponents
Dim oComp
Set oComponents = oApplications.GetCollection("Components", oApp.Key)
oComponents.Populate
For Each oComp In oComponents
WScript.Echo "Component: " & oComp.Name
WScript.Echo " " & oComp.Value("CLSID")
next

Danke Dir Bugfix.

Aber was Du da machst - puhhh, übersteigt mein noobwissen um welten *staun*

;~ $oApp.Value("Identity") = "DOMAIN\newIdentity"
;~ $oApp.Value("Password") = "newPassword"

Ich müsste eigentlich das hier setzten, aber bekomme es auch mit deiner Vorarbeit nicht hin.

Zitat

Du mußt die notwendigen Argumente in das Array $aAppID einfügen.

Ich müsste ja identity und Password übergeben, und irgendwie noch den Namen oder die ClassID angeben?!

Identity=Domain\MyUser

Password: MyPassword

Application: {4ECA9F7C-5886-4C64-AA33-7032CC6598C7} oder den Namen "PerTax"

Ich hoffe ihr könnt mir auch noch bei der hürde helfen!

Surfy

Zitat von BugFix

Ich kann da bei mir leider nicht viel testen - habe nur localhost ;).
Vielleicht stolpert ja einer unserer Netzwerkadmins hier drüber.

Also die lokale Variante müsste eigentlich auch reichen, das Domaintesting kann ich schon übernehmen

'oApp.Value("Identity") = "LocalSystem"
'oApp.Value("Identity") = "Interactive User"

Mir ist nur unklar, wie ich die Argumente übergeben kann

Dim $aAppID[1] = ['Identity, Password, ClassID']

oder doch

Dim $aAppID[1] = ['Identity=LocalSystem, Password=1234, ClassID={4ECA9F7C-5886-4C64-AA33-7032CC6598C7}']

Hallo zusammen

Mein Skill reicht nicht aus, um das ganze in Auto-It umzuschreiben, aber vielleicht hilft folgender VB Script ja mal jemandem weiter:

Der Aufruf erfolgt so:

cscript.exe vbsname.vbs APPID

Der User muss natürlich im Ad existieren, und das Kennwort muss stimmen

Beispiel bei mir: csript.exe c:\setidentity.vbs {4ECA9F7C-5886-4C64-AA33-7032CC6598C7}

Und dann geht alles Danke an Bugfix für die Hilfestellungen

if WScript.Arguments.Count <> 1 Then
WScript.Echo "usage: COMAdmin <appid>"
WScript.End
end if
Dim appID
appID = WScript.Arguments(0)
Dim oCatalog 'As COMAdminCatalog
Dim oApplications 'As COMAdminCatalogCollection
Dim oApp 'As COMAdminCatalogObject
Set oCatalog = CreateObject("ComAdmin.COMAdminCatalog")
Set oApplications = oCatalog.GetCollection("Applications")
oApplications.PopulateByKey Array(appID)
Set oApp = oApplications.Item(0)


oApp.Value("Identity") = "MyDomain\user1"
oApp.Value("Password") = "test"
oApplications.SaveChanges()
' Iterate Components of the application if you need to.
Dim oComponents
Dim oComp
Set oComponents = oApplications.GetCollection("Components", oApp.Key)
oComponents.Populate
For Each oComp In oComponents
WScript.Echo "Component: " & oComp.Name
WScript.Echo " " & oComp.Value("CLSID")
next