Beiträge von MCTAST245

Hallo geschätzte AutoIt Profis,

Bisher habe ich lediglich einen Wert aus einer vorhandenen Task-Sequenz Variable gelesen. Das war erfolgreich.

Hier der Codeschnipsel:

__RetrieveObjectVars('_SMSTSBootImageID')

Func __RetrieveObjectVars($f_Arg)

Local $f_Var = $f_Arg

$SCCM = ObjCreate("Microsoft.SMS.TSEnvironment")

Local $VarResult = $SCCM.Value($f_Var)

__WriteLogInfo('Read successful "' & $SCCM.Value($f_Var) & '" with value "' & $VarResult & '"')

Return $VarResult

EndFunc ;==>__RetrieveObjectVars

Ich würde nun gerne eine neue Task-Sequenz Variable mit einem neuen Wert schreiben.

Kann mir jemand von Euch hierbei helfen?

Viele Grüße

Axel

Hallo AutoIt Leihe,

Ok, meine Script ist länger, aber sofern du die genaue Boottime benötigst.

TrayIcon wird nicht angezeigt.

Schönen Abend.

Hallo AutoIt Leihe,

ich weiß nicht genau ob ich dazu heute komme, jedoch werde ich mal schauen welche die Lösung implementiert werden kann.

Gruß,
Axel

Hallo AutoIt-Leihe,

ich habe dir doch ein Script zur Verfügung gestellt. Das macht dasselbe wie BGInfo und schreibt zusätzlich die Boottime in die Registrierung.
Was und wie in die Registrierung geschrieben wird, kannst du doch nach deinen Wünschen anpassen.
Ich verstehe ehrlich gesagt nicht, warum du dieses Script nicht verwendest.

Und jetzt fragst du bei anderen Scripten, ob das wirklich die Boottime ist. :wacko:
NEIN ist es nicht.

Was benötigst du denn genau?

Viele Grüße,
Axel

Hallo BitBoy,

hat es geklappt. Wäre schön, wenn du eine Rückmeldung geben könntest.

Denn genau so ein Tool suche ich auch.

Vielen Dank an die beiden Autoren.

Viele Grüße,
Axel

Hallo Llewellyen,

welcher benutzer soll installieren. Administrator?

Viele Grüße,
Axel

Hallo HansWurst,

Idee schon, aber die hat nicht unbedingt etwas mit AutoIt zu tun.

Wenn ich dich richtig verstehe, könntest du die AdLib Function verwenden. Mal in der AutoIt Hilfe suchen.
In der AdLib Function baust du dann das WinWait für die Fehlermdlung ein und was so danach kommt.
Ansonsten läuft das Script mit der WinWait Erfolgsmeldung durch.

Wenn das nicht geht, dann würde ich dir vorschlagen
1.) Silent Hersteller Setup zu verwenden
oder
2.) Das Hersteller Setup zu repaketieren

Dann hast du die Probleme nicht mehr.

Gruß,
Axel

Hallo,

So geht es. Ist dasselbe was BGInfo macht, nur halt AutoIt.
Was du testen müsstest ist, ob es auch morgens bei einstelligen Stunden Werten funktioniert.
Die Ausgabewerte kannst du dir natürlich so zusammenbasteln wie du Sie benötigst.

Es wäre schön, wenn du deinen Namen in deinen Postings erwähnen würdest.
Oder gibt es da Einschränkungen von deiner Seite?

Gruß,
Axel

Hallo BugFix,

nur keine Hektik.
Ich finde es echt Klasse das du mir hilfst.
Ohne die Hilfe würde ich ganz schön im Regen stehen.
Vielen Dank auch auch an alle anderen Leute die sich beteiligen.

Schönen Tag.

Viele grüße,
Axel

Guten Morgen BugFix,

hoffe du hast usgeschlafen.

Wow, das ist ein tolles Script.
Ich habe dem Script jetz einfach nur die Zeilen

$strProductCode='{8EDD2192-A0FF-485D-862F-C692DE378B9B}'
$strUserSid='s-1-1-0'
$dwContext='MSIINSTALLCONTEXT_MACHINE'
$dwIndex='0'

MsiEnumProductsEx($strProductCode, $strUserSid, $dwContext, $dwIndex)

Vorangestellt.

Ist das so korrekt? Denn ich bekomme beim ausführen einen Fehler. F:\MsiEnumProductsEx.au3 (30) : ==> Subscript used with non-Array variable.:
Evtl. habe ich mir das ja zu einfach vorgestellt. Ehrlich gesagt verstehe ich das Ganze nicht 100%tig.

Viele Grüße,
Axel

Hallo Bugfix,

danke für dein Script.
Bis Zeile 12 ist alles ok. Super. Er filtert genau den ProductCode heraus und gibt über die Variable $IsInstalled wieder, ob das MSI bereits installiert ist oder nicht.

Aber der Rest funktioniert nicht.
Ich habe das Script mit einem installiertem MSI ProductCode, welches ich selber repaketiert habe, versucht.
Daher weiß ich, dass bei der Installation das MSI Property ALLUSERS=1 war.

Es kommt immer die Message Box, da der Wert von $oProducts.Count immer 1 ist, egal ob das MSI mit ALLUSERS=1 oder ALLUSERS=2 installiert wurde.

Habe aber gerade einen interessanten Link gefunden.
http://msdn.microsoft.com/en-gb/library/aa369461(VS.85).aspx
und
http://msdn.microsoft.com/en-gb/library/aa371120(VS.85).aspx

Evtl. kannst du ja etwas damit anfangen.

Schönen Abend,
Axel

Hallo Bugfix,

uuupps. Hab ich übersehen.

Set oMSI = CreateObject("WindowsInstaller.Installer")

Schon mal vielen Dank für deine Mühe.

Viele Grüße,
Axel

Hallo Axel (Namensvetter)

vielen Dank für deine Antwort.
Jedoch ist eine Aufgabe meines Scriptes herauszufinden, ob das installierte Product mit dem Property ALLUSERS=1 installiert wurde oder nicht.
Darum verwende ich auch das WMI Object "Win32_Property". Da kann ich den Status auslesen.
Leider ist dein Script in meiner Situation unbrauchbar, sorry.

Aber vielen Dank für deine Mühe.

Viele Grüße,
Axel

Guten Abend liebe Leute,

Ich würde gerne via WMI überprüfen, ob ein bestimmtes MSI Product (Property "ProductCode") bereits auf der Maschine installiert ist und welcher Wert das Property "ALLUSERS" hat.

Dazu habe ich nachfolgendes Script erstellt. Aber es dauert im günstigsten Fall 7,8 im ungünstigsten Fall 9,8 Sec.
Evtl. ist es ja möglich diese Routine zu optimieren?

$COMPUTERNAME = EnvGet ("COMPUTERNAME")
InstalledProduct()
Exit

Func InstalledProduct()

Local $ProductCode, $ProductName ,$Val
Local $objItems
Local $objWMI

$wbemFlagReturnImmediately = 0x10
$wbemFlagForwardOnly = 0x20

$objWMI = ObjGet("winmgmts:\\" & $COMPUTERNAME & "\root\CIMV2")
;$objItems = $objWMI.ExecQuery('Select * from Win32_Property Where Name = {2C1B3E20-EE87-4E70-A0CD-5FCFD0F2D9B4}', 'WQL', $wbemFlagReturnImmediately + $wbemFlagForwardOnly)
$objItems = $objWMI.ExecQuery('Select * from Win32_Property', 'WQL', $wbemFlagReturnImmediately + $wbemFlagForwardOnly)
If IsObj($objItems) Then
For $objItem In $objItems
$Caption = $objItem.Caption
$ProductCode = $objItem.ProductCode
$Val = $objItem.Value
If $ProductCode = "{2C1B3E20-EE87-4E70-A0CD-5FCFD0F2D9B4}" And $Caption = "ALLUSERS" Then ConsoleWrite("> Product Code : " & $ProductCode & @CRLF & "> ALLUSERS State : " & $Val & @CRLF)
Next
EndIf
EndFunc

Auf der anderen Seite habe ich ein VBS. Evtl. kann man ja das in AutoIt umsetzen?
Hier wird das ProductEx Object verwendet. Um dies korrekt verwenden zu können muss bei Euch der Windows Installer 3.1 installiert sein.
Ist ja bei mir der Fall, allerdings funktioniert das ansteuern dieses Object in AutoIt bei mir nicht.

Set oMSI = CreateObject("WindowsInstaller.Installer")

Function IsProductInstalled(strProductCode)
Dim oProducts
Dim strTemp
IsProductInstalled = False
On Error Resume Next
Err.Clear
Set oProducts = oMsi.ProductsEx(strProductCode,"",4) ' list only Products that installed in machine context
If Err.Number <> 0 Then
On Error Goto 0
' Your Windows Installer Version does not support the ProductsEx property!
Set oProducts = oMsi.Products
For Each strTemp In oProducts
If UCase(strTemp) = UCase(strProductCode) Then
IsProductInstalled = True
End If
Next
Else
On Error Goto 0
If oProducts.Count > 0 Then
IsProductInstalled = True
Else
Set oProducts = oMsi.ProductsEx(strProductCode,"s-1-1-0",1+2+4) ' list all products
If oProducts.Count > 0 Then
' WARNING: The Product is not installed using ALLUSERS = 1
End If
End If
End If
Set oProducts = Nothing
End Function

Im VBS ist es vertretbar schnell.

Kann mir jemand helfen? Ich sitze jetzt schon 1 Woche daran.

Viele Grüße,
Axel

Hallo Bugfix,

Vielen Dank für die Erklärung.

Ichdenke auch, dass ich demnächst die UBound Variante wähle, da Sie auch näher am VBS hängt.
Dann können das die "transparenten" VBS Menschen ebenfalls besser nachvollziehen.
Ooooh. Die Bemerkung nehme ich zurück. Ich habe nur laut gedacht......

Schnell weg.....

Gruß,
Axel aus'm Pott

Hallo zusammen,

vielen Dank für Eure beiden Antworten.
Selbstverständlich hab ich die diversen Befehle ausporbiert und mit der Autoit Hilfe gearbeitet, bevor ich hier gepostet habe.
Das sollte doch die erste Quelle sein.

XovoxKingdom: Danke, _ArraySearch hatte ich ebenfalls in meinem ersten (nicht veröffentlichten Script) in Betracht gezogen.
Hat bei mir nicht funktioniert. Deshalb habe ich die Case Switch Funktion probiert. :wacko:

funkey: Durch dein Besipiel habe ich meinen Fehler in meinem ersten Script (nicht veröffentlichten Script) mit _ArraySearch erkannt.

_ArraySearch($aPersonen, $MandatoryIniArray[$i]) --> Als erstes Argument muss natürlich das komplette Array angegeben werden.
Ich hatte es mit _ArraySearch($aPersonen[0][0], $MandatoryIniArray[$i]) probiert.
Ist ja eigentlich logisch, wenn man nicht gerade auf'm Schlauch steht.

Eine Frage hat sich allerdings innerhalb deiner Antwort für mich ergeben.

Wo besteht der Unterschied/Vorteil bei Verwendung von???
For $i = 0 To UBound($MandatoryIniArray) -1
zu der Schleife
For $i = 0 To $MandatoryIniArray[0]

Wenn ich das richtig verstehe, kann ich UBound bei Arrays verwendet, die die Größe nicht automatisch mit [0] zürückgeben, oder?

Jedenfalls nochmals danke an Euch beiden, dass Ihr mir die Augen geöffnet habt.
Jetzt klappt alles super!

Viele Grüße,
Axel aus'm Pott

Hallo zusammen,

Ich stelle das Script hier einfach mal rein.

Ziel des Scriptes ist es, daß eine Fehlermeldung ausgegeben wird, wenn eine oder mehrere Personen im Array $MandatoryIniKeys vorhanden sind, aber NICHT in der INI Datei vorhanden sind.

#include <Array.au3>
Const $MandatoryIniKeys = "Axel-Peter-Yvonne-Willi"
$scriptIni = "AnwesendePersonen.ini"
Dim $i, $a
$Debug=1

$SectionNames=IniReadSectionNames(@ScriptDir & "\" & $scriptIni) ;Lese die Anzahl und die einzelnen Sectionsnamen in ein array ein.
$MandatoryIniArray = StringSplit ($MandatoryIniKeys, "-",1); Splitte die als Konstante angegebenen zwingenden Personen $MandatoryIniKeys in ein eindimensionales Array.
If $Debug <> 0 Then _ArrayDisplay($MandatoryIniArray, "Liste der zwingend anwesenden Personen. ")

For $i = 1 To $SectionNames[0]; Geht die INI Datei vom ersten bis zum letzten Sectionsnamen durch.
If $SectionNames[$i]="PERSONEN" Then ; Wenn der Sectionsname [PERSONEN] lautet, überprüfe mit nachfolgender SuchFunktion ob alle Werte ($SectionNames) von PERSONEN in der Liste des $MandatoryIniArray's sind.
$SectionValues=IniReadSection(@ScriptDir & "\" & $scriptIni, $SectionNames[$i]) ;Lese die Anzahl der einzelnen Schlüssel des Sectionsnamenms in ein zweidimensionales array ein.

For $a = 1 To $SectionValues[0][0]
If $Debug <> 0 Then _ArrayDisplay($SectionValues, "2D List for the " & $SectionNames[$i])
Switch $SectionValues[$a][0]
Case $MandatoryIniArray[1] To $MandatoryIniArray[0]
If $Debug <> 0 Then MsgBox (0, "Gefunden", "Der Key " & $SectionValues[$a][0] & " der INI Datei mit dem Wert " & $SectionValues[$a][1] & " gefunden.")
Case Else
If $Debug <> 0 Then MsgBox (0, "Nicht Gefunden", "Der Key " & $SectionValues[$a][0] & " der INI Datei mit dem Wert " & $SectionValues[$a][1] & " NICHT gefunden.")
EndSwitch
Next

EndIf
Next

Hier die Werte der INI Datei (oder die angehängte Datei download)
[PERSONEN]
Axel = Ganztägig
Heinz = Ganztägig
peter = Ganztägig
Yvonne = Ganztägig
Frank = Ganztägig
Willi = Ganztägig

[Themen]
Axel = thema1
Willi = thema1
Frank = thema1
Yvonne = thema1
Peter = thema1
Heinz = thema1

Warum funktioniert das Script nicht?
Was habe ich falsch gemacht?
Hätte ich das Script anders aufbauen müssen

Vielen Dank im Voraus für Eure Mühe.

Schönes Wochenende
Axel

Hallo Greenhorn,

habe zuviel versprochen.
Wie setze ich den Thread auf gelöst?

Es ist schon spät und ich habe den ganzen Abend programmiert. :pinch:

Also Gute Nacht und noch Mal Danke.

Axel

Hallo Greenhorn,

vielen Dank für die Info.

Wo ist der Vorteil wenn ich ein Array erstelle?
Ausser das es professioneller aussieht. Auch hierfür danke.

Wo ist der Unterschied zu deiner Abfrage in Zeile 25.
Deins --> $nOwner = $objItem.GetOwner($sUserName, $sUserDomain)
Meins --> $nOwner = $objItem.GetOwner

Bisher dachte ich, das man nur ein ganzes Objekt Item abfragen kann.
Gehe ich aufgrund deines Scriptes recht in der Annahme, dass man auch einzelne Werte abfragen kann?

Weisst du zufällig ob man irgendwo eine Referenz dazu findet?
Im Scriptomatic2 von Microsoft habe ich viel gefunden, allerdings nichts über objItem.GetOwner.

Habe dein Script gerade ausprobiert.
That's it

Sollte ich das den Thread auf gelöst setzen, wenn ich evtl. später noch Fragen dazu habe?

Danke und schönen Abend.
Axel aus'm Pott

Guten Abend zusammen,

ich habe ein Problem mit einer Funktion, die ich implementieren möchte.

Über WMI soll die ProcessID, der Processname und der Processowner ausgelesen werden.
Processname und ProcessID wird zurückgegeben, jedoch für den Owner wird mir der Wert 0 (Null) zurückgegeben.
Was mache ich falsch?
Kann mir jemand bei der Lösung helfen?

Vielen Dank im Voraus.
Axel

Hier mein Quellcode:

Func MyPID()
$COMPUTERNAME = EnvGet ("COMPUTERNAME")
$sUsername=EnvGet ("USERNAME")
$sUserDomain=EnvGet ("USERDOMAIN")
Dim $nPID, $nName, $nOwner
Dim $objItems
Dim $objWMI

$wbemFlagReturnImmediately = 0x10
$wbemFlagForwardOnly = 0x20

$objWMI = ObjGet("winmgmts:\\" & $COMPUTERNAME & "\root\CIMV2")
$objItems = $objWMI.ExecQuery('Select * from Win32_Process Where Name = "ALG.exe" Or Name = "' & @ScriptName & '"', 'WQL', $wbemFlagReturnImmediately + $wbemFlagForwardOnly)
If IsObj($objItems) Then
For $objItem In $objItems
$nPID = $objItem.ProcessId
$nName = $objItem.Name
$nOwner = $objItem.GetOwner
ConsoleWrite("PID: " & $objItem.ProcessId & @CRLF)
ConsoleWrite("PROCESS: " & $objItem.Name & @CRLF)
ConsoleWrite("OWNER: " & $nOwner & @CRLF)
Next
EndIf
Return $nPID
Return $nName
Return $nOwner
EndFunc