alte DB Scripte laufen plötzlich nicht mehr

Code4Fun

Hallo zusammen,

ich habe ein paar Autoit Scripte, welche mit der MSSQL.au3 diverse Datenbanken anflanschen. Diese laufen seit Jahren auf einem Windows 2016 Terminalserver, die Datenbanken liegen auf einem anderen Windows Server. An den Datenbanken wurde nichts geändert und an den Scripten auch nicht. Es gab wohl eine Domänen Migration. In einen Script bekomme ich plötzlich diesen SSL Sicherheitsfehler, wobei wir hier nicht über einen SSL Kanal kommunizieren. Auf dem Terminalserver läuft z.B. auch DBeaver, welcher weiterhin die Datenbanken ansprechen kann.

In meinem anderen Script fliege ich bei Zeile 350 raus.

Anbei der Ausschnitt aus der stripped Datei

Wie gehe ich bei so einer Fehlersuche denn vor. Bin jetzt schon einige Zeit aus dem Scripten draußen, von daher um jede Hilfe dankbar.

Gruß

**water**

Ich würde mit der Err.description starten. Sie gibt an, dass es ein Problem mit SSL zu sein scheint.
Err.number hilft leider wenig, da dieser Code einen allgemeinen Fehler anzeigt.

Google zeigt für den Suchtext "connectionOpen SECDoClientHandshake SSL 80020009" in Richtung TLS.
Z.B.: https://stackoverflow.com/questions/7151…-error-on-windo

Code4Fun

Zitat von water

Google zeigt für den Suchtext "connectionOpen SECDoClientHandshake SSL 80020009" in Richtung TLS

Das würde ja Sinn machen. Wie gesagt, im Konzern wurden wir in eine andere AD Domain migriert. Vermutlich wurde in dem Step auch die eine oder andere TLS Version deaktiviert. Da ich ja nur mit der mssql.au3 arbeite und damit die Verbindung herstelle, stellt sich mir halt die Frage, ob es in der Richtung was aktuelleres gibt?

**water**

Wenn Du den aktuellsten SQLOLEDB Treiber verwendest, dann sollte TLS 1.2 kein Problem mehr sein (zumindest lt. Stackoverflow, siehe Link oben).

Mit folgendem Skript erhältst Du eine Liste aller installierten Treiber inkl. Dateiname und Version.

AutoIt

#include <Constants.au3>
#include <Debug.au3>

_ADO_OLEDBProvidersList()

Func _ADO_OLEDBProvidersList()
	Local $sKey = "HKCR\CLSID"
	Local $iIndexReg = 1, $iIndexResult = 0
	Local $iMax = 100000, $iMin = 1, $iPrevious = $iMin, $iCurrent = $iMax / 2
	Local $aResult[200][6]

	ProgressOn("OLE DB Providers", "Processing the Registry", "", Default, Default, $DLG_MOVEABLE)
	AutoItSetOption("ExpandEnvStrings", 1)

	; Count the number of keys
	While 1
		RegEnumKey($sKey, $iCurrent)
		If @error = -1 Then ; Requested subkey (key instance) out of range
			$iMax = $iCurrent
			$iCurrent = Int(($iMin + $iMax) / 2)
			$iPrevious = $iMax
		Else
			If $iPrevious <= ($iCurrent + 1) And $iPrevious >= ($iCurrent - 1) Then ExitLoop
			$iMin = $iCurrent
			$iCurrent = Int(($iMin + $iMax) / 2)
			$iPrevious = $iMin
		EndIf
	WEnd

	Local $iPercent = 0
	Local $sKeyValue = ''
	; Process registry
	While 1
		If Mod($iIndexReg, 10) = 0 Then
			$iPercent = Int($iIndexReg * 100 / $iCurrent)
			ProgressSet($iPercent, $iIndexReg & " keys of " & $iCurrent & " processed (" & $iPercent & "%)")
		EndIf
		$sSubKey = RegEnumKey($sKey, $iIndexReg)
		If @error Then ExitLoop

		$sKeyValue = RegRead($sKey & "\" & $sSubKey, "OLEDB_SERVICES")
		If @error = 0 Then
			$aResult[$iIndexResult][0] = $sKey & "\" & $sSubKey                                   ; Registry Key
			$aResult[$iIndexResult][1] = RegRead($sKey & "\" & $sSubKey, "")                      ; OLE DB Provider
			$aResult[$iIndexResult][2] = RegRead($sKey & "\" & $sSubKey & "\OLE DB Provider", "") ; Description
			$aResult[$iIndexResult][3] = RegRead($sKey & "\" & $sSubKey & "\InprocServer32", "")  ; DLL file
			If $aResult[$iIndexResult][3] <> "" Then
				$aResult[$iIndexResult][4] = _FileGetProperty($aResult[$iIndexResult][3], "Dateiversion")
				$aResult[$iIndexResult][5] = _FileGetProperty($aResult[$iIndexResult][3], "Änderungsdatum")
			EndIf
			$iIndexResult += 1
		EndIf

		$iIndexReg += 1
	WEnd

	ProgressOff()
	ReDim $aResult[$iIndexResult][UBound($aResult, 2)]

	_DebugArrayDisplay($aResult, "OLE DB Providers", "", 0, Default, "Registry key|OLE DB Provider|Description|DLL|DLL Version|DLL last modified")

EndFunc   ;==>_ADO_OLEDBProvidersList

Alles anzeigen

gmmg

Code4Fun liegt es wirklich an der Verbindung oder an der Func _SQLQuery

Im MS Access musste ich auch die EOF abfragen.

This is how I changed it and it seems to have fixed the issue:

Code

$sqlCon = ObjCreate("ADODB.Connection")
$sqlCon.Open($ConnectionString)

$sqlRs = ObjCreate("ADODB.Recordset")
$sqlRs.Open ($query, $sqlCon) 
While not $sqlRs.EOF
    $Checked = $sqlRs.GetRows
Wend

ADODB error 80020009

I'm getting the following error when I use $sqlCon = ObjCreate("ADODB.Connection") $sqlCon.Open($ConnectionString) $sqlRs = ObjCreate("ADODB.Recordset")…

www.autoitscript.com

Thema

MSSQL Problem

Hallo autoit,

ich habe folgendes Problem.
Zwar wenn ich aus der Datenbank die wiefolgt aufgebaut ist:

(Quelltext, 1 Zeile)

versuche anhant der StrUserID alles auszulesen kommt ein

(Versteckter Text)

Sofern ich alles anhant der JID auslese klappt es wunderbar.

So klappt es nicht:

[autoit]
$constrim = "DRIVER={SQL Server};SERVER=MEINEIP;DATABASE=MEINEDATENBANK;uid=USERNAME;pwd=PASSWORD;"
$adCN = ObjCreate("ADODB.Connection") ;<==Create SQL connection
$adCN.Open($constrim) ;<==Connect with…

Awesome

10. Dezember 2011 um 21:08

Gruß Marcel

**water**

Lt. Fehlermeldung in Post #1 tritt dieser auf Zeile 350 auf. Dies ist das "$sqlCon.Open" statement.
Die COM-Error Funktion deutet auch eindeutig auf ein SSL/TLS Problem hin.

Code4Fun

Zitat von water

Wenn Du den aktuellsten SQLOLEDB Treiber verwendest, dann sollte TLS 1.2 kein Problem mehr sein (zumindest lt. Stackoverflow, siehe Link oben).

Mit folgendem Skript erhältst Du eine Liste aller installierten Treiber inkl. Dateiname und Version.

AutoIt

#include <Constants.au3>
#include <Debug.au3>

_ADO_OLEDBProvidersList()

Func _ADO_OLEDBProvidersList()
	Local $sKey = "HKCR\CLSID"
	Local $iIndexReg = 1, $iIndexResult = 0
	Local $iMax = 100000, $iMin = 1, $iPrevious = $iMin, $iCurrent = $iMax / 2
	Local $aResult[200][6]

	ProgressOn("OLE DB Providers", "Processing the Registry", "", Default, Default, $DLG_MOVEABLE)
	AutoItSetOption("ExpandEnvStrings", 1)

	; Count the number of keys
	While 1
		RegEnumKey($sKey, $iCurrent)
		If @error = -1 Then ; Requested subkey (key instance) out of range
			$iMax = $iCurrent
			$iCurrent = Int(($iMin + $iMax) / 2)
			$iPrevious = $iMax
		Else
			If $iPrevious <= ($iCurrent + 1) And $iPrevious >= ($iCurrent - 1) Then ExitLoop
			$iMin = $iCurrent
			$iCurrent = Int(($iMin + $iMax) / 2)
			$iPrevious = $iMin
		EndIf
	WEnd

	Local $iPercent = 0
	Local $sKeyValue = ''
	; Process registry
	While 1
		If Mod($iIndexReg, 10) = 0 Then
			$iPercent = Int($iIndexReg * 100 / $iCurrent)
			ProgressSet($iPercent, $iIndexReg & " keys of " & $iCurrent & " processed (" & $iPercent & "%)")
		EndIf
		$sSubKey = RegEnumKey($sKey, $iIndexReg)
		If @error Then ExitLoop

		$sKeyValue = RegRead($sKey & "\" & $sSubKey, "OLEDB_SERVICES")
		If @error = 0 Then
			$aResult[$iIndexResult][0] = $sKey & "\" & $sSubKey                                   ; Registry Key
			$aResult[$iIndexResult][1] = RegRead($sKey & "\" & $sSubKey, "")                      ; OLE DB Provider
			$aResult[$iIndexResult][2] = RegRead($sKey & "\" & $sSubKey & "\OLE DB Provider", "") ; Description
			$aResult[$iIndexResult][3] = RegRead($sKey & "\" & $sSubKey & "\InprocServer32", "")  ; DLL file
			If $aResult[$iIndexResult][3] <> "" Then
				$aResult[$iIndexResult][4] = _FileGetProperty($aResult[$iIndexResult][3], "Dateiversion")
				$aResult[$iIndexResult][5] = _FileGetProperty($aResult[$iIndexResult][3], "Änderungsdatum")
			EndIf
			$iIndexResult += 1
		EndIf

		$iIndexReg += 1
	WEnd

	ProgressOff()
	ReDim $aResult[$iIndexResult][UBound($aResult, 2)]

	_DebugArrayDisplay($aResult, "OLE DB Providers", "", 0, Default, "Registry key|OLE DB Provider|Description|DLL|DLL Version|DLL last modified")

EndFunc   ;==>_ADO_OLEDBProvidersList

Alles anzeigen

Hallo Water,

wenn ich versuche das Script via F5 laufen zu lassen (unter aktueller Autoit Version 3.3.16.1), bekomme ich folgenden Fehler:

Treiber.au3"(60,94) : error: _FileGetProperty(): undefined function.
$aResult[$iIndexResult][4] = _FileGetProperty($aResult[$iIndexResult][3], "Dateiversion")
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
Treiber.au3 - 1 error(s), 0 warning(s)

An was könnte das liegen?

gmmg

Folgende Links behandeln auch das Handshake Thema. Eventuell lassen sich da Infos gewinnen.

https://learn.microsoft.com/en-us/answers/…iled-(dbnetlib)(connectionopen

SSL Security error using Microsoft OLE DB Provider for SQL Server

Tasks using 'Microsoft OLE DB Provider for SQL Server' are failing with the following error: Possible Error 1: Error: Connector connect error: ErrorSource:…

community.qlik.com

[DBNETLIB][ConnectionOpen (SECDoClientHandshake()).] SSL security error on windows server 2008

I have a problem of SQL connection between two servers. One of the servers where the site code is stored is a Windows Server 2008 and my database is on a…

stackoverflow.com

Code4Fun

Zitat von gmmg

Folgende Links behandeln auch das Handshake Thema. Eventuell lassen sich da Infos gewinnen.
https://learn.microsoft.com/en-us/answers/…iled-(dbnetlib)(connectionopen
https://community.qlik.com/t5/Official-Su…QL/ta-p/1715861
https://stackoverflow.com/questions/7151…-error-on-windo

Ja, läuft als x64. Hat aber auch nicht geholfen.

**water**

Zitat von Code4Fun

wenn ich versuche das Script via F5 laufen zu lassen (unter aktueller Autoit Version 3.3.16.1), bekomme ich folgenden Fehler:

Da muss ich Dir zustimmen
Im Forum findest Du diese Funktion hier: https://www.autoitscript.com/forum/topic/14…rties-of-a-file

AutoIt

;===============================================================================
; Function Name.....: _FileGetProperty
; Description.......: Returns a property or all properties for a file.
; Version...........: 1.0.2
; Change Date.......: 05-16-2012
; AutoIt Version....: 3.2.12.1+
; Parameter(s)......: $FGP_Path - String containing the file path to return the property from.
;                     $FGP_PROPERTY - [optional] String containing the name of the property to return. (default = "")
;                     $iPropertyCount - [optional] The number of properties to search through for $FGP_PROPERTY, or the number of items
;                                       returned in the array if $FGP_PROPERTY is blank. (default = 300)
; Requirements(s)...: None
; Return Value(s)...: Success: Returns a string containing the property value.
;                     If $FGP_PROPERTY is blank, a two-dimensional array is returned:
;                         $av_array[0][0] = Number of properties.
;                         $av_array[1][0] = 1st property name.
;                         $as_array[1][1] = 1st property value.
;                         $av_array[n][0] = nth property name.
;                         $as_array[n][1] = nth property value.
;                     Failure: Returns an empty string and sets @error to:
;                       1 = The folder $FGP_Path does not exist.
;                       2 = The property $FGP_PROPERTY does not exist or the array could not be created.
;                       3 = Unable to create the "Shell.Application" object $objShell.
; Author(s).........: - Simucal <Simucal@gmail.com>
;                     - Modified by: Sean Hart <autoit@hartmail.ca>
;                     - Modified by: teh_hahn <sPiTsHiT@gmx.de>
;                     - Modified by: BrewManNH:
;                       https://www.autoitscript.com/forum/topic/148232-_filegetproperty-retrieves-the-properties-of-a-file
; URL...............: http://www.autoitscript.com/forum/topic/34732-udf-getfileproperty/page__view__findpost__p__557571
; Note(s)...........: Modified the script that teh_hahn posted at the above link to include the properties that
;                     Vista and Win 7 include that Windows XP doesn't. Also removed the ReDims for the $av_ret array and
;                     replaced it with a single ReDim after it has found all the properties, this should speed things up.
;                     I further updated the code so there's a single point of return except for any errors encountered.
;                     $iPropertyCount is now a function parameter instead of being hardcoded in the function itself.
;===============================================================================
Func _FileGetProperty($FGP_Path, $FGP_PROPERTY = "", $iPropertyCount = 500)
    If $FGP_PROPERTY = Default Then $FGP_PROPERTY = ""
    $FGP_Path = StringRegExpReplace($FGP_Path, '["'']', "") ; strip the quotes, if any from the incoming string
    If Not FileExists($FGP_Path) Then Return SetError(1, 0, "") ; path not found
    Local Const $objShell = ObjCreate("Shell.Application")
    If @error Then Return SetError(3, 0, "")
    Local Const $FGP_File = StringTrimLeft($FGP_Path, StringInStr($FGP_Path, "\", 0, -1))
    Local Const $FGP_Dir = StringTrimRight($FGP_Path, StringLen($FGP_File) + 1)
    Local Const $objFolder = $objShell.NameSpace($FGP_Dir)
    Local Const $objFolderItem = $objFolder.Parsename($FGP_File)
    Local $Return = "", $iError = 0
    If $FGP_PROPERTY Then
        For $I = 0 To $iPropertyCount
            If $objFolder.GetDetailsOf($objFolder.Items, $I) = $FGP_PROPERTY Then
                $Return = $objFolder.GetDetailsOf($objFolderItem, $I)
            EndIf
        Next
        If $Return = "" Then
            $iError = 2
        EndIf
    Else
        Local $av_ret[$iPropertyCount + 1][2] = [[0]]
        For $I = 1 To $iPropertyCount
            If $objFolder.GetDetailsOf($objFolder.Items, $I) Then
                $av_ret[$I][0] = $objFolder.GetDetailsOf($objFolder.Items, $I - 1)
                $av_ret[$I][1] = $objFolder.GetDetailsOf($objFolderItem, $I - 1)
;~              $av_ret[0][0] += 1
                $av_ret[0][0] = $I
            EndIf
        Next
        ReDim $av_ret[$av_ret[0][0] + 1][2]
        If Not $av_ret[1][0] Then
            $iError = 2
            $av_ret = $Return
        Else
            $Return = $av_ret
        EndIf
    EndIf
    Return SetError($iError, 0, $Return)
EndFunc   ;==>_FileGetProperty

Alles anzeigen

Code4Fun

Ich muss mich jetzt nochmals melden, da ich noch keine Lösung habe. Folgendes habe ich mal gemacht. Da ich kein Programmierer bin, habe ich mir via copilot einen C# Code zusammen bauen lassen, welcher mit den Zugangsdaten von Autoit die Datenbank anfrägt. Wenn die Verbindung erfolgreich ist (oder auch nicht), soll eine Messagebox ausgegeben werden. Beim ersten Versuch wurde dort dann ebenfalls auf ein SSL Problem verwiesen. Leider werde ich die ganzen Parteien nicht an einen Tisch bekommen, von daher wurde mir "erst mal" - damit ich die Verbindung hinbekomme, folgendes empfohlen.

Code

// Verbindung zum SQL Server herstellen
string connectionString = $"Server={ip};Database={dbName};User Id={user};Password={password};Encrypt=True;TrustServerCertificate=True;"; // Verbindungszeichenfolge für den SQL Server
using (SqlConnection conn = new SqlConnection(connectionString)) // Erstellt eine neue SQL-Verbindung

Wie bilde ich das Encrypt=True;TrustServerCertificate=True; in meinem Autoit Script bzw. der MSSQL.au3 ab?

Das hier geht leider nicht

Code

;===============================================================================
;
; Function Name....:    _MSSQL_Con
; Description......:    Connect to a Database
; Syntax...........:    _MSSQL_Con($scIP, $scUser, $scPass, $scDB)
; Parameter(s).....:    $scIP = IP adress
;                       $scUser = User
;                       $scPass = Pass
;                       $scDB = Database
; Return Value(s)..:    Success - Returns the Database-"handle"
;
;===============================================================================
Func _MSSQL_Con($scIP, $scUser, $scPass, $scDB)
	Local $sqlCon
	$sqlCon = ObjCreate("ADODB.Connection")
	$sqlCon.Open("Provider=SQLOLEDB; Data Source=" & $scIP & "; User ID=" & $scUser & "; Password=" & $scPass & "; database=" & $scDB & ";Encrypt=True;TrustServerCertificate=True;")
	Return $sqlCon
EndFunc   ;==>_MSSQL_Con

Alles anzeigen