Beiträge von edmann

Hallo Tom,
zu dem Problem habe ich im Internet vor einiger Zeit eine UDF SystemElevate.au3 gefunden. Die UDF erlaubt es aus dem System Kontext heraus die Session ID des angemeldeten Benutzers auszulesen und Kommandos unter dieser Session ID zu starten. Dein Script müsste dann so aussehen

#include "SystemElevate.au3"
_RunProcessAsUser('C:\temp\VeraCrypt Setup 1.14.exe')
_ImpersonateUserStart()
WinActivate ("VeraCrypt Setup 1.14")
Sleep(500)
Send("!a")
ControlClick("VeraCrypt Setup 1.14", "", 1026)
Sleep(500)
ControlClick("VeraCrypt Setup 1.14", "", 1026)
Sleep(500)
ControlClick("VeraCrypt Setup 1.14", "", 1026)
Sleep(2500)
WinActivate ("VeraCrypt Setup")
ControlClick("VeraCrypt Setup", "", 2)
Sleep(2500)
WinActivate ("VeraCrypt Setup 1.14")
Sleep(500)
ControlClick("VeraCrypt Setup 1.14", "", 1026)
Sleep(2500)
WinActivate ("VeraCrypt Setup")
ControlClick("VeraCrypt Setup", "", 7)
_ImpersonateUserEnd()

Das setzt natürlich voraus, dass auch ein User angemeldet ist und entsprechende Rechte hat um das Setup zu starten. Ich habe es allerdings noch nie mit Control Steuerung ausprobiert.
Ich hoffe es hilft dir weiter.

Hallo Spider,
danke für den Tip. Hier ist auch noch mal ein Link zum offiziellen Bug Report
http://www.autoitscript.com/trac/autoit/ticket/2613

Hallo zusammen,
mit ist aufgefallen, dass seit der v. 3.3.10.2 das COM Error Handling in AutoIt anders funktioniert.
Ich habe eine Funktion, die mir aus der WMI die Konfiguration einer Netzwerkkarte ausliest und das Ergebnis in ein Array speichert.
z.B. so:

$iCount = 0
$strQuery = "SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = 'TRUE'"
$objWMIService = ObjGet("winmgmts:" & @ComputerName & "\root\CIMV2")
$colNICs = $objWMIService.ExecQuery($strQuery, "WQL", $wbemFlagReturnImmediately + $wbemFlagForwardOnly)
For $NIC In $colNICs
ReDim $aNicConfig[$iCount+1][6]
$aNicConfig[$iCount][0] = $NIC.IPAddress(0)
$aNicConfig[$iCount][1] = $NIC.IPSubnet(0)
$aNicConfig[$iCount][3] = $NIC.DefaultIPGateway(0)
$aNicConfig[$iCount][4] = $NIC.MACAddress
$aNicConfig[$iCount][5] = $NIC.DHCPServer
$iCount += 1
Next

es gibt auch ein Event Error Handling durch

Global $oNetEventError = ObjEvent("AutoIt.Error","__NetEventErrorFunc")

Func __NetEventErrorFunc()
$iNetEventErrorCode = Hex($oNetEventError.number,8)
$sNetEventErrorDescription = $oNetEventError.windescription
$bNetEventError = True
EndFunc

Diese Funktion benutze ich schon lange und die hat bis jetzt auch anstandslos funktioniert. Erst seit dem ich das Skript mit der v. 3.3.10.2 kompiliert habe stürzt AutoIt ab wenn z.B. ein Eigenschaftsfeld leer ist.
Beispiel: ist bei der Netzwerkkarte das Default Gateway nicht gesetzt, stürz AutoIt bei der Zeile $aNicConfig[$iCount][3] = $NIC.DefaultIPGateway(0) ab.
Früher war das nicht der Fall. Konnte jemand von euch evtl. ein ähnliches Verhalten feststellen? Ist das evtl. ein Bug in AutoIt oder übersehe ich da was?

Vielen Dank schon mal für das Feedback.

Hallo zusammen,
nach dem ich bei diesem Thema in so ziemlich alle Stolperfallen reingetreten bin die es gibt, wollte ich eine kurze Anleitung schreiben was es alles zu beachten gibt.
Angefangen hat es mit meinem ersten Post zu diesem Thema siehe hier
Ziel war es .NET Klassen und Methoden in AutoIt zu verwenden. Da eine direkte Adressierung aller PowerShell in AutoIt nicht möglich ist, muss man hier einen Umweg über einen COM Wrapper machen. Dazu gibt es auf MSDN eine recht ausführlich Beschreibung unter dem Namen "Verfügbarmachen von .NET Framework-Komponenten in COM". Siehe hier
Zusammenfassend waren für mein Vorhaben folgende Punkte wichtig
1. Interface deklaration mit [ClassInterface(ClassInterfaceType.AutoDual)] siehe hier + die dazugehörige using Anweisung using System.Runtime.InteropServices;
2. Setzen der ComVisible Eigenschaft für die Klasse. Siehe hier
3. Es muss einen Standardkonstruktor geben der als public deklariert ist. Siehe hier
4. Alle Methoden, die man mit COM ansprechen möchte, müssen public sein
5. Compilieren der Klasse für alle Plattformen "Any CPU"
6. Damit die Registrierung mit RegAsm /codebase funktioniert muss eure Klasse einen "Starken Namen" verwenden. Damit ist an der Stelle CodeSigning gemeint. Siehe hier . CodeSigning kann man im Visual Studio in den Projekteigenschaften einschalten.
7. Registrieren der Klasse mir RegAsm /codebase. Siehe hier. Hier muss man darauf achten die richte Version von RegAsm zu verwenden. Wird das Autoit Skript für x86 kompiliert so ist auch das RegAsm aus dem x86 Verzeichniss zu verwenden.
Zum kompilieren der Klasse gibt es noch folgendes zu sagen: Wenn zusätzliche .NET DLLs ins Projekt eingebunden werden, so müssen diese sich danach im gleichen Verzeichnis wie eure Wrapper DLL befinden.
War die Registrierung der DLL erfolgreich, so kann die Klasse mittels ObjCreate ins AutoIt eingebunden werden.
Bei der Verwendung der Methoden gibt es teilweise Probleme mit den Variablen Typen. String und Int kann man 1:1 übergeben. Beim Array gibt es Probleme. z.B

string[] test = new string[2]

ist nicht das Gleiche wie

Global test[2]

in AutoIt. Wenn also eure Wrapper Methode einen String Array als Übergabeparameter erwartet, kann man an der Stelle kein AutoIt Array übergeben.
Evtl. kann man an der Stelle mit DllStructCreate arbeiten (siehe hier), habe ich aber noch nicht getestet.
Das war's. Ich hoffe es hilft euch weiter und erspart stundenlange Fehlersuche.

Vielen Dank euch allen für die schnelle Hilfe. Ich denke mit dem Workaround, eigene Klassen bauen zu müssen, kann ich leben.

Wenn ich das richtig verstanden habe, muss ich eine eigene Klasse bauen, die ich dann in Autoit ansprechen kann. Eine Möglichkeit bestehende Klassen anzusprechen gibt es nicht. Oder habe ich es falsch verstanden?

Hallo zusammen,
gibt es eine möglichkeit .NET Funktionen, die z.B. in C# verwendet werden auch in AutoIt zu verwenden? Also wie es z.B. PowerShell kann?
Hier ein einfacher Beispielcode aus C#.

namespace ApplicationCreator
{
using Microsoft.ConfigurationManagement.ApplicationManagement;


	class Program
	{
    	static void Main(string[] args)
    	{
        	Application application = CreateApplication("app", "description", "");
    	}
	}
}

Auf das Beispiel bezogen würde ich die Frage dann so umformulieren: Ist es möglich in AutoIt aus der .NET Bibliothek
Microsoft.ConfigurationManagement.ApplicationManagement die Funktion CreateApplication anzusprechen?
Leider stellt Microsoft für diese Bibliotheken keine COM Objekte mehr zur Verfügung Daher meine Frage wegen .NET.
Vielen Dank schon mal...

Hallo
ein letzter Versuch. Ich denke jetzt habe ich den Code genau so umgesetzt wie es in der MSDN vorgegeben wird

Global Const $DHCPCAPI_REQUEST_PERSISTENT = 0x01
Global Const $DHCPCAPI_REQUEST_SYNCHRONOUS = 0x02
Global Const $DHCPCAPI_REQUEST_ASYNCHRONOUS = 0x04
Global Const $DHCPCAPI_REQUEST_CANCEL = 0x08
Global Const $DHCPCAPI_REQUEST_MASK = 0x0F

Global $OPTION_HOST_NAME = 12
Global $DHCPAPI_PARAMS = "ULONG Flags;ULONG OptionId;BOOL IsVendor;BYTE* Data;DWORD nBytesData"
Global $DHCPCAPI_PARAMS_ARRAY = "ULONG nParams;ptr Params"
Global $DHCPAPI_CLASSID = "ULONG Flags;BYTE* Data;ULONG nBytesData"

Main()

Func Main()
Local $iError

$RequestParams = DllStructCreate($DHCPAPI_PARAMS)
DllStructSetData($RequestParams, "Flags", 0)
DllStructSetData($RequestParams, "OptionId", $OPTION_HOST_NAME)
DllStructSetData($RequestParams, "IsVendor", False)
DllStructSetData($RequestParams, "Data", -1)
DllStructSetData($RequestParams, "nBytesData", 0)

$SendParamsArray = DllStructCreate($DHCPCAPI_PARAMS_ARRAY)
DllStructSetData($SendParamsArray, "nParams", 0)
DllStructSetData($SendParamsArray, "Params", -1)

$RequestParamsArray = DllStructCreate($DHCPCAPI_PARAMS_ARRAY)
DllStructSetData($RequestParamsArray, "nParams", 1)
DllStructSetData($RequestParamsArray, "Params", DllStructGetPtr($RequestParams))

$Version = DllStructCreate("DWORD Version")
$sAdapterName = "{71F897D7-EB7C-4D8D-89DB-AC80D9DD2270}"
$Buffer = DllStructCreate("CHAR Buffer[1000]")
$Size = DllStructCreate("DWORD Size")
DllStructSetData($Size, "Size", DllStructGetSize($Buffer))
$pSize = DllStructGetPtr($Size)
$pBuffer = DllStructGetPtr($Buffer)

DhcpCApiInitialize($Version)
ConsoleWrite("$Version: " & DllStructGetData($Version, "Version") & @CRLF)
$aError = DhcpRequestParams($DHCPCAPI_REQUEST_SYNCHRONOUS, $sAdapterName, -1, $SendParamsArray, $RequestParamsArray, $pBuffer, $pSize, -1)
EndFunc

Func DhcpCApiInitialize(ByRef $Version)
Local $iError = 0

$aRetVal = DllCall("dhcpcsvc.dll","DWORD", "DhcpCApiInitialize", "DWORD*", DllStructGetPtr($Version))
If @error Then
$iError = @error
ConsoleWrite("Error DhcpCApiInitialize" & $iError & @CRLF)
EndIf
SetError($iError)
Return $aRetVal
EndFunc

Func DhcpRequestParams($Flags, $AdapterName, $ClassId, $SendParams, ByRef $RecdParams, $Buffer, ByRef $pSize, $RequestIdStr)
Local $iError = 0

$aRetVal = DllCall("dhcpcsvc.dll","DWORD", "DhcpRequestParams", "DWORD", $Flags, "ptr", -1, "wstr", $AdapterName, "struct*", $ClassId, "struct", $SendParams, "struct", $RecdParams, "BYTE*", $Buffer, "DWORD*", $pSize, "wstr", $RequestIdStr)
If @error Then
$iError = @error
ConsoleWrite("Error DhcpRequestParams" & $iError & @CRLF)
EndIf
SetError($iError)
Return $aRetVal
EndFunc

Leider verabschiedet sich Autoit mit dem Fehler AutoIT3.exe ended.rc:-1073741819
Was auch immer das bedeutet. Ein Punkt ist mir noch nicht ganz klar und da habe ich auch keine eindeutige Aussagen dazu gefunden.
In dem C++ Code wird an einigen Stellen ein NULL Wert gesetzt. Gibt es in AutoIt ein Äquivalent zu NULL. In einigen Beiträgen habe ich gelesen das man -1 verwenden soll, aber sicher ist es auch nicht. Weiss jemand von euch ob es sowas wie NULL in Autoit gibt?
An sonsten bin ich mit meinem Latein am Ende. Wäre echt cool wenn jemand, der mit der DLL Aufruferei mehr Erfahrung hat, hier mal drüber schaut.
Vielen Dank...

Anhand meiner bisherigen Suchergebnise habe ich folgenden Code erstellt.

Global Const $DHCPCAPI_REQUEST_PERSISTENT = 0x01
Global Const $DHCPCAPI_REQUEST_SYNCHRONOUS = 0x02
Global Const $DHCPCAPI_REQUEST_ASYNCHRONOUS = 0x04
Global Const $DHCPCAPI_REQUEST_CANCEL = 0x08
Global Const $DHCPCAPI_REQUEST_MASK = 0x0F

Global $OPTION_NAME = 66
Global $DHCPAPI_PARAMS = "ULONG Flags;ULONG OptionId;BOOL IsVendor;BYTE* Data;DWORD nBytesData"
Global $DHCPCAPI_PARAMS_ARRAY = "ULONG nParams;ptr Params"
Global $DHCPAPI_CLASSID = "ULONG Flags;BYTE* Data;ULONG nBytesData"
Global $sDhcpClassId = "test"

Main()

Func Main()
Local $Data = DllStructCreate("BYTE")
Local $iError

$RequestParams = DllStructCreate($DHCPAPI_PARAMS)
DllStructSetData($RequestParams, "Flags", 0)
DllStructSetData($RequestParams, "OptionId", $OPTION_NAME)
DllStructSetData($RequestParams, "IsVendor", False)
DllStructSetData($RequestParams, "Data", DllStructGetPtr($Data))
DllStructSetData($RequestParams, "nBytesData", 0)

$SendParamsArray = DllStructCreate($DHCPCAPI_PARAMS_ARRAY)
DllStructSetData($SendParamsArray, "nParams", 0)
DllStructSetData($SendParamsArray, "Params", -1)

$RequestParamsArray = DllStructCreate($DHCPCAPI_PARAMS_ARRAY)
DllStructSetData($RequestParamsArray, "nParams", 1)
DllStructSetData($RequestParamsArray, "Params", DllStructGetPtr($RequestParams))

$Version = DllStructCreate("DWORD")
$sAdapterName = "{C9714EC9-6259-44B8-B7BC-DB77174E115C}"

$Buffer = DllStructCreate("CHAR Buffer[1000]")
DllStructSetData($Buffer, "Buffer", "")

$Size = DllStructCreate("DWORD Size")
DllStructSetData($Size, "Size", DllStructGetSize($Buffer))

$RequestIdStr = DllStructCreate("WSTR RequestId")
DllStructSetData($RequestIdStr, "RequestId", "")

DhcpCApiInitialize($Version)
$iError = DhcpRequestParams($DHCPCAPI_REQUEST_SYNCHRONOUS, $sAdapterName, -1, $SendParamsArray, $RequestParamsArray, DllStructGetPtr($Buffer), DllStructGetPtr($Size), -1)
EndFunc

Func DhcpCApiInitialize(ByRef $Version)
$hDll = DllOpen("dhcpcsvc.dll")
$iRetVal = DllCall($hDll,"DWORD", "DhcpCApiInitialize", "DWORD*", DllStructGetPtr($Version))
DllClose($hDll)
Return $iRetVal
EndFunc

Func DhcpCApiCleanup()
$hDll = DllOpen("dhcpcsvc.dll")
$iRetVal = DllCall($hDll,"none", "DhcpCApiCleanup")
DllClose($hDll)
Return $iRetVal
EndFunc

Func DhcpRequestParams($iFlags, $sAdapterName, $ClassId, $SendParams, ByRef $RecdParams, $pBuffer, $pSize, $pRequestIdStr)
$hDll = DllOpen("dhcpcsvc.dll")
$iRetVal = DllCall($hDll,"DWORD", "DhcpRequestParams", "DWORD", $iFlags, "ptr", -1, "wstr", $sAdapterName, "struct", $ClassId, "struct", $SendParams, "struct", $RecdParams, "BYTE*", $pBuffer, "DWORD*", $pSize, "wstr", $pRequestIdStr)
DllClose($hDll)
Return $iRetVal
EndFunc

Leider funktioniert es nicht und ich habe auch keine Idee wie ich die gewünschten Daten aus dem Ergebnis rausholen kann

Hier noch ein ein Link. Da hat einer versucht die Funktionen der DLL in C# anzusprechen.
Vielleicht hilft das weiter.
http://social.msdn.microsoft.com/Forums/et-EE/n…9c-3ca2ecdb2ec1

Habe noch etwas gegoogelt und folgendes gefunden
Die funtion kann man aus der dhcpcsvc.dll mit einem DllCall befehl ausführen.
Es gibt auch einige VB beispiele dazu
http://www.windows-api.com/microsoft/VB-W…hcpcsvcdll.aspx
Leider habe ich keine Ahnung wie ich in AutoIt die benötigren Strukturen und Pointer aufbauen kann.
Ich weiss das hier einige im Forum mit DllCall und DllStructCreate ziemlich fit sind.
Könnt ihr hier bitte unterstützen.
Vielen Dank

Hallo zusammen,
ich brauche mal wieder eure Unterstützung, speziell von den Leuten, die auch C++ fit sind.
Ich möchte die Funktion DhcpRequestParams aus der DHCP Client API in AutoIt portieren.
Die Beschreibung der Funktion gibt es hier:

http://msdn.microsoft.com/en-us/library/…v=vs.85%29.aspx

und ein Beispiel zu der Funktion hier:

http://msdn.microsoft.com/en-us/library/…v=vs.85%29.aspx

Wäre echt super wenn jemand mit C++ Erfahrung das in AutoIt übersetzen könnte.
Vielen Dank schon mal.

Normalerweise wenn man eine Workgroup administrieren muss, richtet man auf allen PCs einen Benutzen mit dem gleichen Namen und gleichem Passwort ein und gibt ihm lokale Admin Rechte. Mit diesem Benutzer werden dann die Administrativen Tasks auf den PCs ausgeführt. Hast du probiert ob du mit der WMI Security weiter kommst?

Du kannst auch die rekursive Verzeichnissuche verwenden. z.B so

Global $objFSO = ObjCreate("Scripting.FileSystemObject")

ListFilesRecursive("C:\")

Func ListFilesRecursive($strFolder)
Local $objFolder, $objSubFolder, $objFile

$objFolder = $objFSO.GetFolder($strFolder)
$colFiles = $objFolder.Files
For $objFile In $colFiles
If StringRight($objFile.Path, 4) = ".txt" Then SearchSubString($objFile.Path)
Next
For $objSubFolder In $objFolder.SubFolders
ListFilesRecursive($objSubFolder.Path)
Next
EndFunc

Die Funktion SearchSubstring macht z.B. das was du oben beschrieben hast

Um den net Befehl in RunWait ausführen zu können musst du ein cmd /c davor schreiben oder die comspec Variable

RunWait(@ComSpec & " /c net use \\........", @WindowsDir, @SW_HIDE)

Statt einer Schleife könnte man auch die

StringMid($sString, $iStart, $iCount)

Funktion nutzen.

@TempDir kann funktionieren. Wird vermutlich ins C:\Windows\Temp verweisen.

Du kannst auch in der WMI security Einstellungen setzten. Siehe Link
http://technet.microsoft.com/en-us/library/ee156574.aspx
Ich habe das aber noch nie ausprobiert, daher weiss auch nicht genau wie es geht. Trotzdem muss dein User entsprechende Berechtigungen am remote Client haben. Vielleicht reicht es wenn er nur bestimmte DCOM Rechte hat. Am einfachsten ist natürlich lokaler Admin. Mit dem gehts immer.

Liegt dein Script mit auf der RT7 DVD oder wird es von woanders gestartet? Wenn es auf der DVD mit drauf ist, dann wird FileInstall in das @ScriptDir nicht funktionieren, wel das @ScriptDir in diesem Fall die DVD ist.

Hatte ein ähnliches problem. Sehr viele Daten in kurzer zeit verarbeiten. Sehr gute Möglichkeit bei diesem Problem ist die RAM DB von SQLite.
Vorteil: man kann komplexe Tabellen bauen, diese miteinander verknüpfen und durch die Indexerstellung geht die Suche in der DB auch noch schneller.
Hoffe es hilft dir weiter.