Beiträge von Duckbone

Hallo BugFix,

vielen Dank für deinen Hinweis. Im Vorfeld habe ich schon einiges dazu recherchiert, speziell zu dem RegistryKey, was aber so erstmal nicht geklappt hat. Den wirklich wichtigen Hinweis fand ich dann in dem M$ Support Artikel:

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings\WinHttp

On x64-based computers, DefaultSecureProtocols must also be added to the Wow6432Node path:

HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Internet Settings\WinHttp

The registry value is a DWORD bitmap. The value to use is determined by adding the values corresponding to the protocols desired.

Take the value for TLS 1.1 (0x00000200) and the value for TLS 1.2 (0x00000800), then add them together in calculator (in programmer mode), and the resulting registry value would be 0x00000A00.

So hat es dann geklappt.

Die von mir bisher verwendete Methode "InetGet" aus der UDF INet.au3 funktioniert, auch nach setzen der Registrywerte, leider nicht mehr mit TLS 1.2. Als funktionale Alternative bietet sich jedoch der GET Befehl via $oHttp = ObjCreate("WinHTTP.WinHTTPRequest.5.1") an.

Vielen Dank nochmal für deine Hilfe.

Viele Grüße

Duckbone

Hallo zusammen,

ich habe ein Problem mit dem Download einer Datei von einem internen Webserver, der SSL (TLS 1.2) verwendet.

Bislang habe ich mit dem Befehl:

$hDownload = InetGet("https://url-des-Servers-und-Verzeichnis/Dateiname.txt", $sFilePath, $INET_FORCERELOAD, $INET_DOWNLOADBACKGROUND

die Datei erfolgreich herunterladen können. Jetzt wurde der Webserver von TLS 1.0 auf (ausschliesslich) TLS 1.2 umgestellt und der Download schlägt fehl.

Bereits ausprobiert habe ich als Alternative:

Dim $oHttp = ObjCreate("WinHTTP.WinHTTPRequest.5.1")
$oHttp.open ("GET", "https://url-des-Servers-und-Verzeichnis/Dateiname.txt", False)
$oHttp.Option(9) = 2048 ; 128 - TLS 1.0, 512 - TLS 1.1, 2048 - TLS 1.2, 2056 - TLS 1.1 & TLS 1.2
$oHttp.Send
ConsoleWrite($oHttp.responseText & @CRLF) 

In der Console bekomme ich mit dieser Methode nur noch einen Error:

"scriptname.au3" (10) : ==> The requested action with this object has failed.:

$oHTTP.Send()

$oHTTP^ ERROR

Hat jemand eine Idee, wie ich jetzt diese Datei unter TLS 1.2 herunterladen kann?

Vielen Dank schon mal für eure wertvollen Tipps.

Nach _ExcelBookOpen kannst du mit _ExcelSheetActivate($oExcel, "Sheetname") das von dir gewünschte Tabellenblatt zur Bearbeitung mit deinem Code aktivieren

Das funktioniert wunderbar.
Vielen Dank für deine Hilfe!

Bei manchen Rechnern kann auch durch drücken der F9/F10 Taste der Bootdatenträger temporär ausgewählt werden.

Hier der entsprechende Code:

#Include <File.au3>
#Include <Array.au3>
#include <MSSQL.au3>
#include <Excel.au3>

$oMyError = ObjEvent("AutoIt.Error", "MyErrFunc") ; --> error handling
; --> code Excel Datei zu Array einlesen
; ...
; ...
$constrim="DRIVER={SQL Server};SERVER=servername;DATABASE=zdm;uid=sa;pwd=mypassword" ;--> anmelden an SQL Server usw.
$adCN = ObjCreate ("ADODB.Connection")
$adCN.Open ($constrim)
$sQuery="use [zdm]"
$result= $adCN.Execute($sQuery)
$sQuery="Select id from zdm.td.devices where device_name like '" & $aArray [$i][3] & "'"
$result= $adCN.Execute($sQuery)
; Wunsch: Hier Errorhandling ausschalten
If $result.Fields( "id" ).Value = "" Then MsgBox(0,"","Datensatz nichtvorhanden, ok") ; --> hier kommt dann die Meldung vom Errorhandler
; Wunsch: Hier Errorhandling wieder aktivieren
$adCN.Close
Exit

Func MyErrFunc()
Local $HexNumber
$HexNumber = Hex($oMyError.number,
MsgBox(0, "COM Error Test", "We intercepted a COM Error !" & @CRLF & @CRLF & _
"err.description is: " & @TAB & $oMyError.description & @CRLF & _
"err.windescription:" & @TAB & $oMyError.windescription & @CRLF & _
"err.number is: " & @TAB & $HexNumber & @CRLF & _
"err.lastdllerror is: " & @TAB & $oMyError.lastdllerror & @CRLF & _
"err.scriptline is: " & @TAB & $oMyError.scriptline & @CRLF & _
"err.source is: " & @TAB & $oMyError.source & @CRLF & _
"err.helpfile is: " & @TAB & $oMyError.helpfile & @CRLF & _
"err.helpcontext is: " & @TAB & $oMyError.helpcontext _
)
SetError(1); to check for after this function returns
EndFunc ;==>MyErrFunc

Hallo zusammen,
ich habe ein kleines Script, mit dem ich Datensätze in eine MSSQL Datenbank schreiben will.
Bevor ich einen Datensatz schreibe, prüfe ich mit einem übergebenen SQL Statement ab, ob der Datensatz bereits vorhanden ist. Idealerweise kommt ein leeres Suchergebnis zurück.

Und da ist mein Problem: Zum Zweck des Errorhandlings für das Script habe ich eine Fehlerroutine eingebaut, die die Errors abfängt. Die Rückgabe eines leeren Suchergebnisses wird mit der Meldung belegt, dass (sinngemäss) kein Datensatz gefunden wurde, was ja soweit auch richtig ist. Diese Fehlermeldung stört aber ungemein und meine Frage ist: Wie kann ich die Function, die das Errorhandling steuert, zeitweise aus- und wieder anschalten?

Viele Grüße,
Duckbone

Hallo Oscar,

vielen Dank, so funktioniert es nun perfekt; dank deiner Hilfe:

#include <RanNumGen.au3>
Global $Timer = TimerInit()
Global $zahlen = _RanNumGen(10, 100000000, 999999999, True)
$i=1
For $i = 1 to 10
$zahl = $zahlen[$i-1]
MsgBox(0,'',$zahl)
Next

Gruss, Duckbone

Hi Oscar,

deine UDF hilft mir auf jeden Fall weiter. Ich wollte die eindeutige Zufallszahl jedoch als Variable zur Laufzeit zur Verfügung haben.

So müsste ich mit einer Datei, bzw. mit einem Array arbeiten; aber zur Not würde das gehen.

Vielen Dank für deine Hilfe.

Gruß, Duckbone

anno2008:

bei einer Anzahl Zufallsszahlen von n=1000000 sind immerhin schon 608 Zufallszahlen doppelt vorhanden.

Gruss,

Duckbone

$i=1 
For $i = 1 to 1000000 
$value= Random(100000000, 999999999, 1) 
FileWrite("C:\Programme\AutoIt3\myScripts\random1.txt", $value & @CR) 
Next

Hallo Zusammen,

Ich benötige eine Anzahl n 9-stelliger Zufallszahlen, die eindeutig sein müssen.
Der Codeaufruf mit

$value=Random(1000000, 9999999, 1)

erzeugt zwar eine 9-stellige Zufallszahl,
die aber keineswegs eindeutig ist, sondern sich regelmässig wiederholt.
Anscheinend benutzt AutoIT in der Funktion "Random" einen deterministischen Zufallszahlengenerator

Ideen? Anregungen? Tipps?

Grüsse, Duckbone

Hallo German,

vielen Dank für deine Hilfe. Du hast mein Problem richtig erkannt.

Mit deinem Beispiel konnte ich mein Script richtig lauffähig machen.

Grüße,

Duckbone

Hi FireFlyer,

die Datei hat den Inhalt

Mustermann, Max

Musterfrau, Erika

etc.

Durch die Schleife "While", "Wend" liest $line = FileReadLine($delfile) immer schön eine zeile nach der nächsten aus.

Mit $AdUser=StringSplit($line, ",") teile ich den String in Nachname und Vorname, da ich hier 2 Variablen ($AdUser[1] und $AdUser[2]) für die Active Directory Abfrage benötige. Dies lese ich aus dem Array $AdUser aus, was auch bestens funktioniert.

Gruß,

Duckbone

Hallo Forum,

das unten angezeigte Script beendet mit Fehler in Zeile 41:

ERRORArray variable has incorrect number of subscripts or subscript dimension range exceeded

$AdUser=$AdUser[1] & "*," & $AdUser[2] & "*"
$AdUser=$AdUser[1] & "*," & ^ in

Was macht das Script?

Liest Datei $file1 ein, in der Userangaben in der Form "Nachname, Vorname" enthalten sind und schreibt diese Angaben
nach Änderung von Umlauten und einem AD-Query in Datei $file3, in der Form "SamAccount;Vorname,Nachname;Department".

Ich habe nun schon viele Beiträge zum Thema "Ubound" gelesen, aber ich habe es noch nicht geschafft, es funktional einzusetzen.

Ein Tipp in die richtige Richtung wäre klasse!

Grüße,

Duckbone

Zitat von Greenhorn

Wer lesen kann ist klar im Vorteil ...

Ja das sollte so gehen, denke ich. Oder den String als ASCII senden ?!

Gruß

Edit: Getestet, und ... ... geht !

Wer lesen kann, ist sowas von im Vorteil.....

Send send( "keys" [, flag] )

Parameters

keys Th sequence of keys to send. flag [optional] Changes how "keys" is processed:
flag = 0 (default), Text contains special characters like + and ! to indicate SHIFT and ALT key-presses.
flag = 1, keys are sent raw.

also: lange Rede, kurzer Sinn: funzt einwandfrei! Danke für die Hilfe!

Zitat von Fast2

Oder gleich richtig in die INI schreiben. (Also anstatt dem: ("Daten#123") das: ("Daten" & "{#}" & "123")). Ich weiß nur nicht ob INIRead das akzeptiert.

Das geht leider nicht, da die ini-datei von einem "Fremdsystem" kommt und ich da nichts dran ändern kann, d.h. die Werte müssen "as is" übernommen werden.

Hallo zusammen,

in einem Script lese ich Daten aus und möchte diese via SendKey weitergeben.

Beispiel:
$var = IniRead("C:\Temp\myfile.ini", "section2", "key", "NotFound")
Run("c:\windows\notepad.exe")
WinWaitActive("Unbenannt - Editor")
send($var)

Mein Problem ist nun, daß die Daten das Zeichen "#" enthalten.
(Ebenso enthalten sind ! + ^ { }, das "#" soll nur als Besipiel dienen...)
Das Script übergibt exakt bis zum "#". Also wenn die Daten aus $var z.B. "Daten#123"
wären, übergibt send($var) an notepad nur "Daten".

Es liegt sicherlich daran, daß "#" normalerweise explizit mit {#} übergeben wird.

Mache ich die Übergabe quasi manuell mit send("Daten" & "{#}" & "123") wird korrekt übergeben.
Nür nützt mir das nicht viel, da ich ja via Variable übergeben muß?

Any ideas?

Grüße,
Duckbone

Zitat von leviathan

also ich weiß nicht, aber einmal schreibst du die Datei AutoLogin.ini oder dann wieder so autologin.ini - musst dich für eins entscheiden

ja....*peinlich*, es geht natürlich um die Datei AutoLogon.ini (Hab das gleich mal korrigiert).

Aber das eigentliche Problem ist, daß wenn ich eben die Variable @UserProfileDir oder auch @MyDocumentsDir verwende, diese nicht aufgelöst werden.

Verwende ich diese Variabalen z.B. in einer MsgBox, dann werden die korrekten Results angezeigt.

Trage ich den absoluten Pfad ohne Variable in die Funktion "FileExists" ein, dann klappt es!

Es ist für mich aber wichtig innerhalb der Funktion "FileExists" mit Variablen zu arbeiten.

Mache ich da was falsch, oder geht das einfach so nicht?

Grüssle,

Duckbone

Hallo peethebee,

ja, die Variable @MyDocumentsDir entspricht dem Pfad c:\documents and Settings\user123\my documents. Es soll dort geprüft werden, ob die Datei AutoLogin.ini vorhanden ist. Das Ergbnis der MsgBox verweist auf den korrekten Pfad.

Batchmässig würde das so aussehen:

if exist %Userprofile%\"my documents"\AutoLogon.ini %windir%\notepad.exe

Grüße,
Duckbone

Hallo Forum,

ich habe ein kleines Problem mit der Funktion "FileExists".
Sobald ich innerhalb der Anweisung der Funktion "FileExists" Variablen verwende,
werden diese augenscheinlich nicht korrekt, bzw gar nicht interpretiert.

Hier der Codeschnipsel (AutoIt Version: 3.2.10.0):

If FileExists(@MyDocumentsDir & "\AutoLogon.ini") Then
Run(@WindowsDir & "\notepad.exe")
Else
MsgBox(0, "Script", "Datei fehlt. Bye!")
EndIf

Ersetze ich die Variable @MyDocumentsDir durch den tatsächlichen Pfad funktioniert das:

If FileExists("c:\documents and Settings\user123\my documents\AutoLogon.ini") Then
Run(@WindowsDir & "\notepad.exe")
Else
MsgBox(0, "Script", "Datei fehlt. Bye!")
EndIf

Andere Versuche wie z.B.

If FileExists(@UserProfileDir & "\my documents\AutoLogon.ini\") Then oder
...

$var = @MyDocumentsDir & "\AutoLogon.ini"
If FileExists($var) "Then
...

schlugen ebenfalls fehl.

Kann mir jemand sagen, was ich falsch mache?

Schon mal vielen Dank!

Liebe Grüße,
Duckbone