none
Kein Zugriff mehr auf Sparda-Konto RRS feed

  • Frage

  • Hallo, Bisher hat ich kein Problem und konnte auf mein Konto zugreifen. Dann ließ sich das HBCI-Modul nicht mehr starten.

    Ich habe HBCI neu installiert und wollte mein Konto mit der Bank synchronisieren. Jetzt kommt die Fehlermeldung "Das Kundenprodukt wird nicht unterstützt." Ich habe all verfügbaren TAN-Verfahren probiert.

    Versuchsweise habe ich die Testversion von Starmoney installiert. Da klappt der Zugriff. Ich möchte aber lieber mein Money, da sehr viele Sachen eingerichtet sind und auch die Darstellung mir viel besser gefällt. Wie befürchtet konnte die Bank keine Auskunft geben.PS Ich habe den Kontakt gelöscht und neu eingegeben. In diesem Zusammenhang eine Frage: Wo finde das Icon Homebanking-Kontakte? In der Systemsteuerung habe ich es nicht gefunden (WIN 10)

    Danke 

    Sonntag, 13. September 2020 15:46

Alle Antworten

  • Hallo, Bisher hat ich kein Problem und konnte auf mein Konto zugreifen. Dann ließ sich das HBCI-Modul nicht mehr starten.
    Ich habe HBCI neu installiert und wollte mein Konto mit der Bank synchronisieren. Jetzt kommt die Fehlermeldung "Das Kundenprodukt wird nicht unterstützt." 

    Ermittle mittels des Skripts von https://www.hbcifm99.de/files/hbcifm99/check.vbs Deine aktuelle Systemkonfiguration und kopiere das Ergebnis in Deine nächste Antwort.

    Gruß von der Schlei
    Uli

    --
    https://www.hbcifm99.de/

    https://www.hbcifm99.de/hbcifm99.atom.xml


    Mittwoch, 14. Oktober 2020 20:40
  • ' VBScript source code
    version = "1.27"
    
    dot = instr(WScript.Version, ".")
    major = left(WScript.Version, dot-1)
    minor = mid(WScript.Version, dot+1)
    
    If major < 5 OR ( major = 5 AND minor < 6 ) Then
    	WScript.Echo "Dieses Script benötigt mindestens Windows Script Host Version 5.6"
    	WScript.Echo "zur korrekten Auswertung der Signatur an diesem Script. Die auf"
    	WScript.Echo "diesem Rechner installierte Version ist " & WScript.Version & "."
    	WScript.Echo "Die aktuelle Version ist bei Microsoft herunterladbar unter"
    	WScript.Echo "http://www.microsoft.com/technet/scriptcenter/newswire/wsh57.mspx"
    	WScript.Echo
    	WScript.Echo "Alternativ kann auch die Versions- und Signaturüberprüfung"
    	WScript.Echo "zu Beginn dieses Scripts einfach entfernt werden. Es sollte"
    	WScript.Echo "dann ohne weitere Überprüfung ausgeführt werden."
    	WScript.Quit(1)
    End if
    
    Dim WshShell, fso
    
    Set WshShell = WScript.CreateObject("WScript.Shell")
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    i = InStr(1, WScript.FullName, "\system32\", 1)
    
    If i > 0 Then
      alt = Replace(WScript.FullName, "\SYSTEM32\", "\SysWOW64\", 1, 1, vbTextCompare)
      
      If fso.FileExists(alt) Then
        alt = alt & " " & """" & WScript.ScriptFullName & """"
    
        For i = 0 to WScript.Arguments.length - 1
          alt = alt & " " & WScript.Arguments(i)
        Next
    
        WshShell.Run(alt)
        WScript.Quit(0)
      End If
    End If
    
    Dim Signer
    Set Signer = CreateObject("Scripting.Signer")
    
    OK = Signer.VerifyFile(Wscript.ScriptFullName, true)
    
    If Not OK Then
      Err.Raise 507, "mnycheck.vbs", "Signatur konnte nicht überprüft werden"
    End If
    
    Dim MoneyFiles, MoneySystemFiles, MoneySetupFiles
    Dim result
    
    MoneyFiles = _
     Array ( "MSMONEY.EXE" )
    MoneySetupFiles = _
     Array( "ACMSETUP.HLP", "COMPLINC.DLL", "MNY6STP.DLL", _
            "MONEY99.INF", "MSSETUP.DLL", "ODBCKEY.INF", _
            "ODBCSTF.DLL", "OFFSETUP.TTF", "SETUP.EXE" )
    MoneySystemFiles = _
     Array ( "BANKTEXT.DAT", "BDS.DLL", "BLZ.DLL", _
             "COMPDLL.DLL", "DBCNV99.DLL", "HELPER.DLL", _
             "INXRTDLL.DLL", "LEXDLL2.DLL", "MNYADV.DLL", _
             "MNYCORE.DLL", "MNYINET.DLL", "MNYMAXSC.DLL", _
             "MNYMAXUI.DLL", "MNYMAXWZ.DLL", "MNYOB99.DLL", _
             "MNYOLINV.DLL", "MNYONL.DLL", "MNYTOMWZ.DLL", _
             "MNYUTIL.DLL", "MPACCT.DLL", "MPBANK.DLL", _
             "MPBDGT.DLL", "MPBILL.DLL", "MPBMAN.DLL", _
             "MPCONT.DLL", "MPCTCLS.DLL", _
             "MPGWDAT.DLL", "MPGWDEP.DLL", "MPGWDON.DLL", _
             "MPGWINC.DLL", "MPGWINS.DLL", "MPGWRET.DLL", _
             "MPGWROB.DLL", "MPGWSLF.DLL", "MPGWTAX.DLL", _
             "MPIAD.DLL", "MPINV.DLL", "MPINVTR.DLL", _
             "MPLOAN.DLL", "MPLST.DLL", _
             "MPOVER.DLL", "MPPAY.DLL", "MPPLAN.DLL", _
             "MPPORT.DLL", "MPRPT.DLL", "MPWEB.DLL", _
             "MPWSHM.DLL", "MPWSLN.DLL", "MSCOFD.DLL", _
             "MSFDPB99.DLL", "MSOFD.DLL", "MSPFCTL0.DLL", _
             "OFX.DLL", "OLSETUP.DLL", "OLSHARED.DLL", _
             "OLUTDLL.DLL", "PFCPLAN.DLL", "PFPLAN.DLL", _
             "PLANUI.DLL", "Q2MNY.DLL", "QREAD.DLL", _
             "RCHMN32.DLL", "SMRTCONN.DLL", "SMRTSYNC.DLL", _
             "TOMCLI.DLL", "TOMSRV.DLL", "VIPBLZ32.DLL", _
             "VIPDAT32.DLL", "XML.DLL", "XSOFC.DLL", _
             "XSSHIM.DLL", "Zka.dll", "ZKAPROT.DLL", _
             "ZKATRANS.DLL", "ZKAUI.DLL" )
    
    SetLocale("de")
    
    Function HasOnlyNumbers (Text)
    	HasOnlyNumbers = True
    	For i = 0 To Text.Length - 1
    		If Not "0123456789".Contains(Text.Chars(i)) Then
    			HasOnlyNumbers = False
    		End If
    	Next
    End Function
    
    
    Function FinTsRegValid (Text)
      result = result & vbCrLf & Text &": " & CStr(Text.Length)
      If Text.Length <>25 Then 
    	FinTsRegValid = False
      elseif Not IsNumeric(Text) Then 
    	FinTsRegValid =  False
      elseif not HasOnlyNumbers(Text) Then
    	FinTsRegValid =  False
      else
    	FinTsRegValid =  True
      end if
    End Function
    
    Function CompareDates(date1, date2)
      if ( Year(date1) < Year(date2) ) then
        CompareDates = -1
      ElseIf ( Year(date1) > Year(date2) ) then
        CompareDates = 1
      ElseIf ( Month(date1) < Month(date2) ) then
        CompareDates = -1
      ElseIf ( Month(date1) > Month(date2) ) then
        CompareDates = 1
      ElseIf ( Day(date1) < Day(date2) ) then
        CompareDates = -1
      ElseIf ( Day(date1) > Day(date2) ) then
        CompareDates = 1
      ElseIf ( Hour(date1) < Hour(date2) ) then
        CompareDates = -1
      ElseIf ( Hour(date1) > Hour(date2) ) then
        CompareDates = 1
      ElseIf ( Minute(date1) < Minute(date2) ) then
        CompareDates = -1
      ElseIf ( Minute(date1) > Minute(date2) ) then
        CompareDates = 1
      ElseIf ( Second(date1) < Second(date2) ) then
        CompareDates = -1
      ElseIf ( Second(date1) > Second(date2) ) then
        CompareDates = 1
      Else
        CompareDates = 0
      End If
    End Function
      
    Function GetVersion(fso, searchpath, filename)
      For Each path In searchpath
        path = trim(path)
        If right(path, 1) <> "\" Then
          path = path & "\"
        End If
        
        f = path & filename
        
        if fso.FileExists(f) then
          GetVersion = fso.GetFileVersion(f)
          Exit For
        else
          GetVersion = f & " nicht gefunden"
        end if
      Next
    end Function
    
    Function GetOSVersion()
      On Error Resume Next
      
      Dim os
      
      os = WshShell.RegRead("HKLM\SYSTEM\CurrentControlSet\Control\ProductOptions\ProductType")
     
      if err.number <> 0 then
        err.Clear
        
        os = WshShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\VersionNumber")
        
        if err.number <> 0 then
          err.Clear
          GetOSVersion = "unbekannte Windows Version"
        else
          is9X = true
          
          select case os
            case "4.00.950"
              GetOsVersion = "Windows 95A"
              
            case "4.00.1111"
              Dim subos
              
              subos = WshShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\SubVersionNumber")
              
              if err.number <> 0 then
                err.Clear
                subos = ""
              end if
              
              select case subos
                case " B"
                  GetOsVersion = "Windows 95B"
                  
                case " C"
                  GetOsVersion = "Windows 95C"
                  
                case else
                  GetOsVersion = "unbekanntes Windows 95 (" & subos & ")"
              end select
              
            case "4.03.1214"
              GetOsVersion = "Windows 95B (4.03.1214)"
              
            case "4.10.1998"
              GetOsVersion = "Windows 98"
              
            case "4.10.2222"
              GetOsVersion = "Windows 98SE"
              
            case "4.90.3000"
              GetOsVersion = "Windows ME"
              
            case else
              GetOsVersion = "unbekanntes W9X/ME (" & os & ")"
          end select
        end if
      else
        is9X = false
          
        os = WshShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProductName")
          
        if err.number <> 0 then
          err.Clear
          os = "unbekanntes NT"
        else
          Dim sp
            
          sp = WshShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\CSDVersion")
            
          if err.number <> 0 then
            err.Clear
            sp = WshShell.RegRead("HKLM\SYSTEM\CurrentControlSet\Control\Windows\CSDVersion")
            
            if err.number <> 0 then
              err.Clear
              os = os & " (unbekannter SP)"
            else
              if sp > 0 then
                os = os & " (SP" & sp/256 & ")"
              else
                os = os & " (ohne SP)"
              end if
            end if
          else
            os = os & " (" & sp & ")"
          end if
        end if
    
        Dim sc
        Set sc = GetObject("winmgmts:\\.\root\CIMV2")
    
        if err.number <> 0 then
          err.clear
        else 
          Set cpus = sc.ExecQuery("Select * from Win32_Processor")
    
          Dim first
          first = true
    
          for each cpu in cpus 
            if first then 
              if cpu.AddressWidth = cpu.DataWidth then
                os = os & " " & cpu.AddressWidth & "bit"
              else
                os = os & " " & cpu.AddressWidth & "bit (data " & cpu.DataWidth & "bit)"
              end if
              first = false
            end if
          next
        end if
    
    
          if err.number <> 0 then
            os = os & err.Description
            err.clear
          end if
    
        GetOSVersion = os
      end if
    End Function
    
    Sub CheckFiles(fso, folder, files, ByRef filename, ByRef lastModified)
      On Error Resume Next
        
      For Each file in files
        Set f = fso.GetFile(folder & file)
        
        If Err.number <> 0 Then
          result = result & vbCrLf & "Fehler bei Datei " & folder & file & ": " & CStr(Err.number) & " " & Err.Description
          err.clear
        ElseIf CompareDates(f.DateLastModified, lastModified) < 0 Then
          filename = file
          lastmodified = f.DateLastModified
        End If
      Next
    End Sub
    
    Dim bKey, is9X, outputDir
    
    If WScript.Arguments.length > 1 Then
      outputFilename = WScript.Arguments(1)
    Else
      outputFilename = "mny_result_" & year(date) _
               & right(month(date)+100,2) _
               & right(day(date)+100,2) _
      		   & right(hour(time)+100,2) & right(minute(time)+100,2) & ".txt"
    End If
    
    If WScript.Arguments.length > 0 Then
      outputDir = WScript.Arguments(0)
    Else
      outputDir = ""
    End If
    
    Set WshProcessEnv = WshShell.Environment("PROCESS")
    windir = WshProcessEnv("WINDIR")
    appdata = WshProcessEnv("APPDATA")
    
    rem Set WshSystemEnv = WshShell.Environment("SYSTEM")
    os = GetOSVersion()
    
    result = "Money 99V2000 & HBCIFM99 Systemprüfung " & version & " Stand " & Now
    result = result & vbCrLf & "OS Version: " & os
    
    result = result & vbCrLf & "Windir: " & windir
    result = result & vbCrLf & "Appdata: " & appdata
    
    on error resume next
    
    result = result & vbCrLf & "Explorer Version: " & GetVersion(fso, array(windir), "explorer.exe")
    
    iepath = WshShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\IEXPLORE.EXE\")
    
    if err <> 0 then
      err.Clear
      ieVersion = "AppPath nicht gefunden"
    else
      if fso.FileExists(iepath) then
        ieVersion = fso.GetFileVersion(iepath)
      else
        ieVersion = "nicht gefunden"
      end if
    end if
    
    result = result & vbCrLf & "Internet Explorer version: " & ieVersion
    
    result = result & vbCrLf & "Locale: " & GetLocale
    
    if not is9X then
      Dim lang
      lang = ""
      langkey = "HKCU\Control Panel\International\"
    
      Dim langkeys(10)
      langkeys(0) = array ( "sCountry", "Land", "Deutschland" )
      langkeys(1) = array ( "sDate", "Datumstrennzeichen", "." )
      langkeys(2) = array ( "sDecimal", "Dezimaltrennzeichen", "," )
      langkeys(3) = array ( "sGrouping", "Zifferngruppierung", "3;0" )
      langkeys(4) = array ( "sLanguage", "Sprache", "DEU" )
      langkeys(5) = array ( "sNegativeSign", "Minuszeichen", "-" )
      langkeys(6) = array ( "sPositiveSign", "Pluszeichen", "" )
      langkeys(7) = array ( "sThousand", "Symbol für Zifferngruppierung", "." )
      langkeys(8) = array ( "sMonDecimalSep", "Währungsdezimaltrennzeichen", "," )
      langkeys(9) = array ( "sMonGrouping", "Währungszifferngruppierung", "3;0" )
      langkeys(10) = array ( "sMonThousandSep", "Symbol für Währungszifferngruppierung", "." )
    
      for each key in langkeys 
        value = WshShell.RegRead( langkey & key(0) )
        
        if err <> 0 then
          WScript.Echo "Kann " & langkey & key(0) & " nicht lesen!" & vbCrLf & "Fehler: " & err.Description
          lang = lang & vbCrLf & "Fehler " & key(0) & ": " & err.Description
          err.Clear
        elseif value <> key(2) then
          lang = lang & vbCrLf & key(1) & " ist '" & value & "' statt '" & key(2) & "'"
        end if
      next
    
      if lang = "" then
        result = result & vbCrLf & "Regionsoptionen korrekt für Deutschland eingestellt"
      else
        result = result & lang
      end if
    else
     result = result & vbCrLf & "Regionsoptionen wegen Windows 9X nicht überprüft"  
    end if
    
    commonfilesdir = WshShell.RegRead("HKLM\Software\Microsoft\Windows\CurrentVersion\CommonFilesDir")
    
    if err <> 0 then
      WScript.Echo "Kann CommonFilesDir nicht feststellen!" & vbCrLf & "Fehler: " & err.Description
      err.Clear
    else
      result = result & vbCrLf & "CommonFilesDir: " & commonfilesdir
    end if
    
    commonfilesdirx86 = WshShell.RegRead("HKLM\Software\Microsoft\Windows\CurrentVersion\CommonFilesDir (x86)")
    
    if err <> 0 then
      err.Clear
    else
      result = result & vbCrLf & "CommonFilesDir (x86): " & commonfilesdirx86
    end if
    
    
    Dim mny70regnames(3)
    mny70regnames(0) = "HKLM\Software\WOW6432Node\Microsoft\Money\7.0\"
    mny70regnames(1) = "HKLM\Software\Microsoft\Money\7.0\"
    mny70regnames(2) = "HKLM\Software\WOW6432Node\Microsoft\Money\8.0\"
    mny70regnames(3) = "HKLM\Software\Microsoft\Money\8.0\"
    
    Dim mny70reg 
    
    For Each mnyreg In mny70regnames
      err.Clear
      
      mny70reg = mnyreg
      mnykey = WshShell.RegRead(mny70reg & "MoneyPath")
    
      if err = 0 then
        exit for
      end if
    Next
    
    if err <> 0 then
      WScript.Echo "Kann Pfad von Money nicht feststellen!" & vbCrLf & "Fehler: " & err.Description
      WScript.Quit(err.number)
    end if
    
    result = result & vbCrLf & "Money Version: " & GetVersion(fso, Array(mnykey), "msmoney.exe")
    
    mnylcid = WshShell.RegRead(mny70reg & "LCID")
    
    if err <> 0 then
      WScript.Echo "Kann Money LCID nicht feststellen!" & vbCrLf & "Fehler: " & err.Description
      err.Clear
    else
      result = result & vbCrLf & "Money LCID: " & mnylcid
    end if
      
    mnysku = WshShell.RegRead(mny70reg & "SKU")
    
    if err <> 0 then
      WScript.Echo "Kann Money SKU nicht feststellen!" & vbCrLf & "Fehler: " & err.Description
      err.Clear
    else
      result = result & vbCrLf & "Money SKU: " & mnysku
    end if
      
    result = result & vbCrLf & "mfc42.dll Version im Money-Verz.: "& GetVersion(fso, array(mnykey),"mfc42.dll")
    
    if Right(result, 14) = "nicht gefunden" then
      result = result & " (OK)"
    else
      result = result & " (FALSCH)"
    end if
    
    result = result & vbCrLf & "mfc42.dll Version im Windows-Verz.: " & GetVersion(fso, array(windir & "\SysWOW64\", windir & "\system32\", windir & "\system\", windir), "mfc42.dll")
    vipzka = GetVersion(fso, array(mnykey & "\system\"), "vipzka.exe")
    result = result & vbCrLf & "vipzka.exe Version: " & vipzka
    
    if vipzka = "3.0.0.17" then
      result = result & " (Orig. Money 99V2000 Decoder)"
    elseif vipzka = "3.0.0.54" then
      result = result & " (Money 99V2000 SP1 Decoder)"
    elseif left(vipzka, 5) <> "3.0.0" and left(vipzka, 3) = "3.0" then
      result = result & " (Stöckl Decoder)"
    end if
    
    hbcifm99 = GetVersion(fso, Array(mnykey & "\system\hbci\"), "hbcifm99.exe")
    result = result & vbCrLf & "HBCIFM99 Version: " & hbcifm99
    
    Dim ddbacregnames(2)
    ddbacregnames(0) = "HKLM\Software\DataDesign\DDBAC\"
    ddbacregnames(1) = "HKLM\Software\Wow6432Node\DataDesign\DDBAC\"
    
    Dim ddbacregname 
    
    For Each ddbacreg In ddbacregnames
      err.Clear
      
      ddbacregname = ddbacreg
      ProductName = WshShell.RegRead(ddbacregname & "ProductName")
    
      if err = 0 then
        exit for
      end if
    Next
    
    if err <> 0 then
      err.Clear
      
      result = result & vbCrLf & "HKLM-FinTS-Produkt-Registrierungsnummer nicht vorhanden! (FALSCH)" & ProductName
    else
      result = result & vbCrLf & "HKLM-FinTS-Produkt-Registrierungsnummer: " & ProductName
      
      if ProductName = "54C271E36542D8AD737E8E6A6" then
        result = result & " (entspricht dem HBCI-Modul für Money 99 Version 2000, OK)"
      else
        result = result & " (fremdes Bankingprogramm, macht Probleme, wenn ungültig)"
      end if
    end if
    
    ProductName = WshShell.RegRead("HKCU\Software\DataDesign\DDBAC\ProductName")
    
    if err <> 0 then
      err.Clear
      result = result & vbCrLf & "HKCU-FinTS-Produkt-Registrierungsnummer nicht vorhanden, (OK)"
    else
      result = result & vbCrLf & "HKCU-FinTS-Produkt-Registrierungsnummer: " & ProductName
      
      if ProductName = "" then
        result = result & "leer (FALSCH)"
    	WshShell.RegDelete("HKCU\Software\DataDesign\DDBAC\ProductName")
    	result = result & vbCrLf & "Schlüssel [HKCU\Software\DataDesign\DDBAC\ProductName] " 
    	if err <> 0 then
    	  err.Clear
    	  result = result & "konnte nicht gelöscht werden" 
    	else
    	  result = result & "gelöscht" 
    	end if
      elseif ProductName = "54C271E36542D8AD737E8E6A6" then
        result = result & " (entspricht dem HBCI-Modul für Money 99 Version 2000, OK)"
      else
    	if Len(ProductName) = 25  and IsNumeric(ProductName) then
    		result = result & " (fremdes Bankingprogramm, formal gültig) " 
    	else
    		result = result & " (fremdes Bankingprogramm, formal ungültig, wird gelöscht)" 
    		WshShell.RegDelete("HKCU\Software\DataDesign\DDBAC\ProductName")
    	end if
      end if
    end if
    
    if hbcifm99 = "3.4.1.19" then
      result = result & " (FALSCH, lade Pre-Release http://www.hbcifm99.de/pr/ )"
    end if
    
    result = result & vbCrLf & "DDBAC Version: " & GetVersion(fso, Array(commonfilesdir & "\DataDesign\DDBAC\", commonfilesdirx86 & "\DataDesign\DDBAC\"), "DDBAC.DLL")
    
    ddbacdir = WshShell.RegRead("HKCU\Software\DataDesign\DDBAC\DataDir")
    
    if err <> 0 then
      err.Clear
      result = result & vbCrLf & "DDBAC Dir: DataDir nicht gesetzt"
    else
      result = result & vbCrLf & "DDBAC Dir: " & ddbacdir 
    end if
    
    
    mdacVersion = WshShell.RegRead("HKEY_LOCAL_MACHINE\Software\Microsoft\DataAccess\FullInstallVer")
    mdacOle = ""
    
    if err.number <> 0 then
      err.Clear
      mdacVersion = GetVersion(fso, Array(commonfilesdir & "\System\Ole DB\"), "OLEDB32.dll")
      mdacOle = "(OLEDB32 Version)"
    end if
    
    Select Case mdacVersion
      Case "6.3.9600.16384"  mdac = "6.3 (Windows 8, Windows 10)"
      Case "6.1.7600.16385"  mdac = "6.1 (Windows 7)"
      Case "6.0.6000.16386"  mdac = "6.0 (Vista)"
      Case "2.81.1132.0"  mdac = "2.8 SP2? (Windows XP SP3)"
      Case "2.81.1117.6"  mdac = "2.8 SP1 (Non Windows XP SP2)"
      Case "2.81.1117.0"  mdac = "2.8 SP1 (Windows XP SP2)"
      Case "2.80.1022.0"  mdac = "2.8"
      Case "2.80.1022.3"  mdac = "2.8"
      Case "2.71.9040.2"  mdac = "2.7 SP1"
      Case "2.70.9001.0"  mdac = "2.7"
      Case "2.62.7400.1"  mdac = "2.6 SP2"
      Case "2.61.7326.6"  mdac = "2.6 SP1"
      Case "2.60.6526.3"  mdac = "2.6"
      Case Else mdac = "unbekannte MDAC"
    End Select
    
    result = result & vbCrLf & "MDAC Version " & mdacOle & ": " & mdacVersion & " (" & mdac & ")"
    
    result = result & vbCrLf & "Jet 3.5 Version: " & GetVersion(fso, Array(windir & "\SysWOW64\", windir & "\system32\", windir & "\system\"), "msjet35.dll")
    
    jet40version = GetVersion(fso, Array(windir & "\SysWOW64\", windir & "\system32\", windir & "\system\"), "msjet40.dll")
    
    Select Case jet40version
      Case "4.0.2927.4"   jet40sp = "(SP3*)"
      Case "4.0.2927.17"  jet40sp = "(SP3 Office 2000 SR1*)"
      Case "4.0.3714.7"   jet40sp = "(SP4*)"
      Case "4.0.4431.1"   jet40sp = "(SP5*)"
      Case "4.0.4431.3"   jet40sp = "(SP5*)"
      Case "4.0.6218.0"   jet40sp = "(SP6*)"
      Case "4.0.6807.0"   jet40sp = "(SP6 Windows Server 2003*)"
      Case "4.0.7328.0"   jet40sp = "(SP7*)"
      Case "4.0.8015.0"   jet40sp = "(SP8*)"
      Case "4.0.8618.0"   jet40sp = "(Security Bulletin MS04-014*)"
      Case "4.0.9025.0"   jet40sp = "(Windows Server 2003 SP1 and Update Rollup 1 for Windows 2000 SP4)"
      Case "4.0.9511.0"   jet40sp = "(Security Bulletin MS08-028)"
      Case "4.0.9635.0"   jet40sp = "(Windows Vista)"
      Case "4.0.9756.0"   jet40sp = "(Windows 7)"
      Case "4.0.9801.18"   jet40sp = "(Windows 8, Windows 10)"
      Case Else jet40sp = "(unbekannter SP)"
    End Select
    
    result = result & vbCrLf & "Jet 4.0 Version: " & jet40version & " " & jet40sp
    result = result & vbCrLf & "ODBC Jet Version: " & GetVersion(fso, Array(windir & "\SysWOW64\", windir & "\system32\", windir & "\system\"), "odbcjt32.dll")
    
    Dim Filename, lastmodified
    
    lastmodified = Date
    
    CheckFiles fso, mnykey & "\", MoneyFiles, filename, lastmodified
    CheckFiles fso, mnykey & "\SETUP\", MoneySetupFiles, filename, lastmodified
    CheckFiles fso, mnykey & "\SYSTEM\", MoneySystemFiles, filename, lastmodified
    
    result = result &  vbCrLf & "Älteste Datei im Money-Ordner: " & filename & " " & lastmodified
    
    if CompareDates(lastmodified, #03/14/1999 23:00:00#) < 0 then 
      result = result & " (FALSCH)"
    else
      result = result & " (OK)"
    end if
    
    setupkey = "HKLM\Software\Microsoft\MS Setup (ACME)\Table Files\"
    setupkeyx86 = "HKLM\SOFTWARE\Wow6432Node\Microsoft\MS Setup (ACME)\Table Files\"
    
    Dim setupnames(5)
    
    setupnames(0) = array ( "korrektes MS Money 99V2000 Plus (OK)", "Microsoft Money 99@v7.01.01.2222 (1031) Plus")
    setupnames(1) = array ( "MS Money 2000 (A/CH) (OK)", "Microsoft Money@v8.0.10.1020 (1031) 2000")
    setupnames(2) = array ( "korrektes MS Money 99V2000 Standard (OK)", "Microsoft Money@v7.01.01.2222 (1031) 99")
    setupnames(3) = array ( "Test Bugs-Money Version (FALSCH)", "Microsoft Money 99@v7.00.01.0629 (1031) Testversion")
    setupnames(4) = array ( "Bugs-Money 99 Plus (FALSCH)", "Microsoft Money 99@v7.00.01.0629 (1031) Plus")
    
    keyfound = 0
    
    For Each namearr In setupnames
      bKey = WshShell.RegRead(setupkey & namearr(1))
      if err = -2147024894 then
        rem Registrierungsschlüssel "..." wurde nicht zum Lesen geöffnet.
        err.Clear
        bKey = WshShell.RegRead(setupkeyx86 & namearr(1))
      end if
    
      if err = -2147024894 then
        rem Registrierungsschlüssel "..." wurde nicht zum Lesen geöffnet.
        err.Clear
      elseif err = 0 then
        result = result & vbCrLf & "MS Setup Registry Key zeigt " & namearr(0)
        keyfound = 1
      else
        result = result & vbCrLf & "Fehler " & CStr(err.number) & ": '" & err.Description & "' bei Suche nach " & namearr(1)
        err.clear
      end if
    Next
                    
    If keyfound = 0 Then
      result = result & vbCrLf & "MS Setup Registry Key für keine bekannte MS Money Version gefunden"
    End If
    
    quoteserver = WshShell.RegRead("HKLM\SOFTWARE\Microsoft\Investor\StockQuotes\QuoteServerURL\URL")
    
    if err <> 0 then
      err.Clear
      quoteserver = WshShell.RegRead("HKLM\SOFTWARE\Wow6432Node\Microsoft\Investor\StockQuotes\QuoteServerURL\URL")
    end if
    
    if err <> 0 then 
      err.Clear
      result = result & vbCrLf & "Kann QuoteServerURL nicht in Registry finden! (FEHLER)"
    else
      result = result & vbCrLf & "QuoteServerURL: " & quoteserver
      
      if quoteserver = "http://data.moneycentral.msn.com/Scripts/invisapi.dll/" then
        result = result & " (OK)"
      ElseIf quoteserver = "http://investor.msn.com/Scripts/invisapi.dll/" Then
        result = result & " (OK)"
      Else
        result = result & " (FALSCH)"
      end if
    end if
    
    regclear = 1
    
    for each regkey IN Array( "InvFundCountries", "InvStockCountries", "WebQtSrvrName", "WebQtSrvrURL" )
      check = WshShell.RegRead(mny70reg & regkey)
      
      if err <> 0 then
        err.Clear
      else
        result = result & vbCrLf & "Registry Wert für " & regkey & " ist vorhanden! (FALSCH)"
        regclear = 0
      end if
    next
    
    if regclear = 1 then
      result = result & vbCrLf & "Alte Registry Werte sind entfernt. (OK)"
    end if 
    
    SmrtInetURL = WshShell.RegRead(mny70reg & "Online\SmrtInetURL")
    
    if err <> 0 then
      err.Clear
      
      result = result & vbCrLf & "Registry Wert für SmrtInetURL ist nicht vorhanden! (FALSCH)"
    else
      result = result & vbCrLf & "SmrtInetURL: " & SmrtInetURL
      
      if SmrtInetURL = "http://money.gvogt.de/smrtinet.ini" then
        result = result & " (OK)"
      elseif SmrtInetURL = "https://www.hbcifm99.de/smrtinet.ini" then
        result = result & " (OK)"
      else
        result = result & " (unbekannt)"
      end if
    end if
    
    proxy = WshShell.RegRead("HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyEnable")
    
    if err <> 0 then
      err.Clear
      proxy = WshShell.RegRead("HKLM\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyEnable")
      
      if err <> 0 then
        proxy = 0
      elseif proxy then
        proxyserver = WshShell.RegRead("HKLM\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyServer")
        
        if err <> 0 then
          err.Clear
          proxyserver = ""
        end if 
      end if
    elseif proxy then
      proxyserver = WshShell.RegRead("HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyServer")
      
      if err <> 0 then
        err.Clear
        proxyserver = ""
      end if
    end if
    
    if proxy then
      result = result & vbCrLf & "LAN-Proxy konfiguriert auf " & proxyserver
    else
      result = result & vbCrLf & "Kein LAN-Proxy konfiguriert"
    end if
    
    spSSL_2   = 8
    spSSL_3   = 32
    spTLS_10  = 128
    spTLS_11  = 512
    spTLS_12  = 2048
    
    TLSList = ""
    TLS=1
    TLS = WshShell.RegRead("HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\SecureProtocols")
    if TLS > 0 then
      if (TLS and spSSL_2) >0 then 
        TLSList = "SSL 2"
      end if
    
      if (TLS and spSSL_3) >0 then 
        if TLSList > "" then 
          TLSList = TLSList & ", "
        end if
        TLSList = TLSList & "SSL 3"
      end if
    
      if (TLS and spTLS_10) >0 then 
        if TLSList > "" then 
          TLSList = TLSList & ", "
        end if
        TLSList = TLSList & "TLS 1.0"
      end if
      
      if (TLS and spTLS_11) >0 then 
        if TLSList > "" then 
          TLSList = TLSList & ", "
        end if
        TLSList = TLSList & "TLS 1.1"
      end if
    
      if (TLS and spTLS_12) >0 then 
        if TLSList > "" then 
          TLSList = TLSList & ", "
        end if
        TLSList = TLSList & "TLS 1.2"
      end if
    
      result = result & vbCrLf & "SecureProtocols: " & TLSList & " aktiviert"
    else
      result = result & vbCrLf & "SecureProtocols: SSL und TLS nicht aktiviert"
    end if
    
    Set fwmgr = CreateObject("HNetCfg.FwMgr")
    
    if err <> 0 then
      err.Clear
      result = result & vbCrLf & "Windows Firewall kann nicht bestimmt werden"
    else
      Set fwprofile = fwmgr.LocalPolicy.CurrentProfile
      fwstate = "ausgeschaltet"
      
      if fwprofile.FirewallEnabled then
        fwstate = "eingeschaltet"
      end if
      
      result = result & vbCrLf & "Windows Firewall ist " & fwstate
    end if 
    
    Set sc = GetObject("winmgmts:\\.\root\SecurityCenter")
    
    avcount = 0
    fwcount = 0
    aswcount = 0
    
    if err.number <> 0 then 
      err.Clear
      result = result & vbCrLf & "Auf das XP Security Center kann nicht zugegriffen werden."
    else
      Set avprods = sc.ExecQuery("Select * from AntiVirusProduct")
      
      for each av in avprods
        avcount = avcount + 1
        result = result & vbCrLf & "Antivirus " & av.displayName & " " & av.versionNumber & " "
        
        if av.onAccessScanningEnabled then
          result = result & "aktiv"
        else
          result = result & "nicht aktiv"
        end if
      next
    
      Set fwprods = sc.ExecQuery("Select * from FirewallProduct")
      
      for each fw in fwprods
        fwcount = fwcount + 1
        result = result & vbCrLf & "Firewall " & fw.displayName & " " & fw.versionNumber & " "
    
        if fw.enabled then
          result = result & "aktiv"
        else
          result = result & "nicht aktiv"
        end if
      next
    end if
    
    Set sc2 = GetObject("winmgmts:\\.\root\SecurityCenter2")
    
    if err.number <> 0 then 
      err.Clear
      result = result & vbCrLf & "Auf das Security Center 2 kann nicht zugegriffen werden."
    else
      Set avprods = sc2.ExecQuery("Select * from AntiVirusProduct")
      
      for each av in avprods
        avcount = avcount + 1
        result = result & vbCrLf & "Antivirus " & av.displayName & " ProductState " & av.productState & " "
        if (av.productState And 4096) = 0 then
          result = result & "nicht "
        end if 
        result = result & "aktiv, "
    
        if (av.productState And 16) then
          result = result & "updaten"
        else
          result = result & "aktuell"
        end if
      next
    
      Set fwprods = sc2.ExecQuery("Select * from FirewallProduct")
      
      for each fw in fwprods
        fwcount = fwcount + 1
        result = result & vbCrLf & "Firewall " & fw.displayName & " ProductState " & fw.productState & " "
        if (fw.productState And 4096) = 0 then
          result = result & "nicht "
        end if
        result = result & "aktiv, "
    
        if (fw.productState And 16) then
          result = result & "updaten"
        else
          result = result & "aktuell"
        end if
      next
    
      Set aswprods = sc2.ExecQuery("Select * from AntiSpywareProduct")
      
      for each asw in aswprods
        aswcount = aswcount + 1
        result = result & vbCrLf & "AntiSpyware " & asw.displayName & " ProductState " & asw.productState & " "
        if (asw.productState And 4096) = 0 then
          result = result & "nicht "
        end if
        result = result & "aktiv, "
    
        if (asw.productState And 16) then
          result = result & "updaten"
        else
          result = result & "aktuell"
        end if
      next
    end if
    
    if avcount = 0 then
      result = result & vbCrLf & "Kein Antivirus erkannt."
    end if
    
    if fwcount = 0 then
      result = result & vbCrLf & "Keine Firewall erkannt."
    end if
    
    if aswcount = 0 then
      result = result & vbCrLf & "Keine AntiSpyware erkannt."
    end if
    
    Dim objBanking
    
    Set objBanking = CreateObject("DataDesign.BACBanking")
    
    if err.number <> 0 then
      err.Clear
    else
      Dim i
      
      For i = 0 To objBanking.Customers.Count-1
        Dim objCustomer, contact, progid, prefix
        Set objCustomer = objBanking.Customers(i)
        
        contact = "Kontakt " & i & ": " & objCustomer.Fields("Contact")
        contact = contact & " (" & objCustomer.Fields("BankName") & ")"
        contact = contact & " BLZ " & objCustomer.BankCode
        contact = contact & " HBCI " & objCustomer.Fields("HBCIVersion")
        contact = contact & " CommAddr " & objCustomer.Fields("CommunicationsAddress")
        
        projid = objCustomer.Fields("SecurityProgID")
        prefix = "DataDesign.BACSecurity"
        
        If Left(projid, Len(prefix)) = prefix Then
          contact = contact & " SecProgID " & Right(projid, Len(projid) - Len(prefix))
        Else
          contact = contact & " SecProgID " & projid
        End If
        
        Select Case objCustomer.Fields("SecurityMediaType")
          Case "0"  contact = contact & " MediaFile"
          Case "1"  contact = contact & " SmartCard"
          Case "3"  contact = contact & " BTX"
          Case "4"  contact = contact & " PINTAN"
          Case Else contact = contact & " SecMediaType " & objCustomer.Fields("SecurityMediaType")
        End Select
    
    	if objCustomer.Fields("ITanSupported") = "1" Then
    	  contact = contact & " ITanSupported"
    	end if
    
        if objCustomer.Fields("ITANVerfahren") <> "" Then
    	  contact = contact & " ITANVerf. " & objCustomer.Fields("ITANVerfahren")
    	end if
    	
    	If objCustomer.Fields("Sicherheitsfunktion") <> "" Then
    	  contact = contact & " S-Fkt " & objCustomer.Fields("Sicherheitsfunktion")
    	End If
    
    	if objCustomer.Fields("ManualUPD") = "1" Then
    	  contact = contact & " ManualUPD"
    	end if
    
    	if objCustomer.Fields("ManualITan") = "1" Then
    	  contact = contact & " ManualITan"
    	end if
    
    	if objCustomer.Fields("NeedSynchronisation") = "1" Then
    	  contact = contact & " NeedSynchronisation"
    	end if
    
        result = result & vbCrLf & contact
      Next
    end if
    
    
    
    if Len(outputDir) > 0 Then 
      if not fso.FolderExists(outputDir) Then
        result = result & vbCrLf & "Ausgabeverzeichnis '" & outputDir & "' existiert nicht! Schreibe in aktuelles Verzeichnis!"
        outputDir = WshShell.CurrentDirectory
      End If
      
      outputFilename = fso.BuildPath(outputDir, outputFilename)
    End If
    
    Set outputFile = fso.CreateTextFile(outputFilename, true)
    outputFile.write result
    outputFile.close
    
    result = result & vbCrLf & "Ergebnisse gespeichert in " & outputFilename
    
    WScript.Echo result
    
    '' SIG '' Begin signature block
    '' SIG '' MIIYxgYJKoZIhvcNAQcCoIIYtzCCGLMCAQExCzAJBgUr
    '' SIG '' DgMCGgUAMGcGCisGAQQBgjcCAQSgWTBXMDIGCisGAQQB
    '' SIG '' gjcCAR4wJAIBAQQQTvApFpkntU2P5azhDxfrqwIBAAIB
    '' SIG '' AAIBAAIBAAIBADAhMAkGBSsOAwIaBQAEFL9/cH6rO/I/
    '' SIG '' cY1bqPiFI3CL3cn8oIITzTCCA+4wggNXoAMCAQICEH6T
    '' SIG '' 6/t8xk5Z6kuad9QG/DswDQYJKoZIhvcNAQEFBQAwgYsx
    '' SIG '' CzAJBgNVBAYTAlpBMRUwEwYDVQQIEwxXZXN0ZXJuIENh
    '' SIG '' cGUxFDASBgNVBAcTC0R1cmJhbnZpbGxlMQ8wDQYDVQQK
    '' SIG '' EwZUaGF3dGUxHTAbBgNVBAsTFFRoYXd0ZSBDZXJ0aWZp
    '' SIG '' Y2F0aW9uMR8wHQYDVQQDExZUaGF3dGUgVGltZXN0YW1w
    '' SIG '' aW5nIENBMB4XDTEyMTIyMTAwMDAwMFoXDTIwMTIzMDIz
    '' SIG '' NTk1OVowXjELMAkGA1UEBhMCVVMxHTAbBgNVBAoTFFN5
    '' SIG '' bWFudGVjIENvcnBvcmF0aW9uMTAwLgYDVQQDEydTeW1h
    '' SIG '' bnRlYyBUaW1lIFN0YW1waW5nIFNlcnZpY2VzIENBIC0g
    '' SIG '' RzIwggEiMA0GCSqGSIb3DQEBAQUAA4IBDwAwggEKAoIB
    '' SIG '' AQCxrLNJVEuXHBIK2CV5kSJXKm/cuCbEQ3Nrwr8uUFr7
    '' SIG '' FMJ2jkMBJUO0oeJF9Oi3e8N0zCLXtJQAAvdN7b+0t0Qk
    '' SIG '' a81fRTvRRM5DEnMXgotptCvLmR6schsmTXEfsTHd+1Fh
    '' SIG '' AlOmqvVJLAV4RaUvic7nmef+jOJXPz3GktxK+Hsz5HkK
    '' SIG '' +/B1iEGc/8UDUZmq12yfk2mHZSmDhcJgFMTIyTsU2sCB
    '' SIG '' 8B8NdN6SIqvK9/t0fCfm90obf6fDni2uiuqm5qonFn1h
    '' SIG '' 95hxEbziUKFL5V365Q6nLJ+qZSDT2JboyHylTkhE/xni
    '' SIG '' RAeSC9dohIBdanhkRc1gRn5UwRN8xXnxycFxAgMBAAGj
    '' SIG '' gfowgfcwHQYDVR0OBBYEFF+a9W5czMx0mtTdfe8/2+xM
    '' SIG '' gC7dMDIGCCsGAQUFBwEBBCYwJDAiBggrBgEFBQcwAYYW
    '' SIG '' aHR0cDovL29jc3AudGhhd3RlLmNvbTASBgNVHRMBAf8E
    '' SIG '' CDAGAQH/AgEAMD8GA1UdHwQ4MDYwNKAyoDCGLmh0dHA6
    '' SIG '' Ly9jcmwudGhhd3RlLmNvbS9UaGF3dGVUaW1lc3RhbXBp
    '' SIG '' bmdDQS5jcmwwEwYDVR0lBAwwCgYIKwYBBQUHAwgwDgYD
    '' SIG '' VR0PAQH/BAQDAgEGMCgGA1UdEQQhMB+kHTAbMRkwFwYD
    '' SIG '' VQQDExBUaW1lU3RhbXAtMjA0OC0xMA0GCSqGSIb3DQEB
    '' SIG '' BQUAA4GBAAMJm495739ZMKrvaLX64wkdu0+CBl03X6ZS
    '' SIG '' nxaN6hySCURu9W3rWHww6PlpjSNzCxJvR6muORH4KrGb
    '' SIG '' sBrDjutZlgCtzgxNstAxpghcKnr84nodV0yoZRjpeUBi
    '' SIG '' JZZux8c3aoMhCI5B6t3ZVz8dd0mHKhYGXqY4aiISo1EZ
    '' SIG '' g362MIIEozCCA4ugAwIBAgIQDs/0OMj+vzVuBNhqmBsa
    '' SIG '' UDANBgkqhkiG9w0BAQUFADBeMQswCQYDVQQGEwJVUzEd
    '' SIG '' MBsGA1UEChMUU3ltYW50ZWMgQ29ycG9yYXRpb24xMDAu
    '' SIG '' BgNVBAMTJ1N5bWFudGVjIFRpbWUgU3RhbXBpbmcgU2Vy
    '' SIG '' dmljZXMgQ0EgLSBHMjAeFw0xMjEwMTgwMDAwMDBaFw0y
    '' SIG '' MDEyMjkyMzU5NTlaMGIxCzAJBgNVBAYTAlVTMR0wGwYD
    '' SIG '' VQQKExRTeW1hbnRlYyBDb3Jwb3JhdGlvbjE0MDIGA1UE
    '' SIG '' AxMrU3ltYW50ZWMgVGltZSBTdGFtcGluZyBTZXJ2aWNl
    '' SIG '' cyBTaWduZXIgLSBHNDCCASIwDQYJKoZIhvcNAQEBBQAD
    '' SIG '' ggEPADCCAQoCggEBAKJjCzlEuLsjp0RJuw7/ofBhClOT
    '' SIG '' sJjbrSwPSsVu/4Y8U1UPFc4EPyv9qZaW2b5heQtbyUyG
    '' SIG '' duXgQ0sile7CK0PBn9hotI5AT+6FOLkRxSPyZFjwFTJv
    '' SIG '' TlehroikAtcqHs1L4d1j1ReJMluwXplaqJ0oUA4X7pbb
    '' SIG '' YTtFUR3PElYLkkf8q672Zj1HrHBy55LnX80QucSDZJQZ
    '' SIG '' vSWA4ejSIqXQugJ6oXeTW2XD7hd0vEGGKtwITIySjJEt
    '' SIG '' nndEH2jWqHR32w5bMotWizO92WPISZ06xcXqMwvS8aMb
    '' SIG '' 9Iu+2bNXizveBKd6IrIkri7HcMW+ToMmCPsLvalPmQjh
    '' SIG '' EChyqs0CAwEAAaOCAVcwggFTMAwGA1UdEwEB/wQCMAAw
    '' SIG '' FgYDVR0lAQH/BAwwCgYIKwYBBQUHAwgwDgYDVR0PAQH/
    '' SIG '' BAQDAgeAMHMGCCsGAQUFBwEBBGcwZTAqBggrBgEFBQcw
    '' SIG '' AYYeaHR0cDovL3RzLW9jc3Aud3Muc3ltYW50ZWMuY29t
    '' SIG '' MDcGCCsGAQUFBzAChitodHRwOi8vdHMtYWlhLndzLnN5
    '' SIG '' bWFudGVjLmNvbS90c3MtY2EtZzIuY2VyMDwGA1UdHwQ1
    '' SIG '' MDMwMaAvoC2GK2h0dHA6Ly90cy1jcmwud3Muc3ltYW50
    '' SIG '' ZWMuY29tL3Rzcy1jYS1nMi5jcmwwKAYDVR0RBCEwH6Qd
    '' SIG '' MBsxGTAXBgNVBAMTEFRpbWVTdGFtcC0yMDQ4LTIwHQYD
    '' SIG '' VR0OBBYEFEbGaaMOShQe1UzaUmMXP142vA3mMB8GA1Ud
    '' SIG '' IwQYMBaAFF+a9W5czMx0mtTdfe8/2+xMgC7dMA0GCSqG
    '' SIG '' SIb3DQEBBQUAA4IBAQB4O7SRKgBM8I9iMDd4o4QnB28Y
    '' SIG '' st4l3KDUlAOqhk4ln5pAAxzdzuN5yyFoBtq2MrRtv/Qs
    '' SIG '' JmMz5ElkbQ3mw2cO9wWkNWx8iRbG6bLfsundIMZxD82V
    '' SIG '' dNy2XN69Nx9DeOZ4tc0oBCCjqvFLxIgpkQ6A0RH83Vx2
    '' SIG '' bk9eDkVGQW4NsOo4mrE62glxEPwcebSAe6xp9P2ctgwW
    '' SIG '' K/F/Wwk9m1viFsoTgW0ALjgNqCmPLOGy9FqpAa8VnCwv
    '' SIG '' SRvbIrvD/niUUcOGsYKIXfA9tFGheTMrLnu53CAJE3Hr
    '' SIG '' ahlbz+ilMFcsiUk/uc9/yb8+ImhjU5q9aXSsxR08f5Lg
    '' SIG '' w7wc2AR1MIIFTDCCBDSgAwIBAgIQLpAnSaeocL4lCpwB
    '' SIG '' 0wjpSTANBgkqhkiG9w0BAQsFADB9MQswCQYDVQQGEwJH
    '' SIG '' QjEbMBkGA1UECBMSR3JlYXRlciBNYW5jaGVzdGVyMRAw
    '' SIG '' DgYDVQQHEwdTYWxmb3JkMRowGAYDVQQKExFDT01PRE8g
    '' SIG '' Q0EgTGltaXRlZDEjMCEGA1UEAxMaQ09NT0RPIFJTQSBD
    '' SIG '' b2RlIFNpZ25pbmcgQ0EwHhcNMTkwMTEwMDAwMDAwWhcN
    '' SIG '' MjIwMTA5MjM1OTU5WjCBmjELMAkGA1UEBhMCREUxDjAM
    '' SIG '' BgNVBBEMBTI0ODM3MRswGQYDVQQIDBJTY2hsZXN3aWct
    '' SIG '' SG9sc3RlaW4xEjAQBgNVBAcMCVNjaGxlc3dpZzEUMBIG
    '' SIG '' A1UECQwLTWFyZGVyd2VnIDgxGTAXBgNVBAoMEERyLiBV
    '' SIG '' bHJpY2ggQW1hbm4xGTAXBgNVBAMMEERyLiBVbHJpY2gg
    '' SIG '' QW1hbm4wggEiMA0GCSqGSIb3DQEBAQUAA4IBDwAwggEK
    '' SIG '' AoIBAQDl7EB13nj5PVTS9SpYio9FWPi93r+7t+3BnhtA
    '' SIG '' rIGKpZ2kJeZOHgG1N+9AyU56u7jEhAyVfPv2tMe/LNrY
    '' SIG '' tSvWu00A1IVsfwAMdNhghjGIs9iHD45a5M7zQ6H67qLV
    '' SIG '' 9YxQ2gGzCuXUraE5K1lRwUzO/L7bUe3yZeuj+MUZjgs3
    '' SIG '' T2O8J+ZrNpT4FfJIcF+jgWquQWVnv98yUVkFtJKbmGUB
    '' SIG '' kvMLoDzztoAlThCi+c3nuuxNh9GEwCKWf3+hgDaUX+MR
    '' SIG '' 5u1nfYykVugK3pzBpbs4NZTl84SJfSqLBIFvqNCJ0ZHF
    '' SIG '' tLV1BMdpXfo/MlKQhmnNnqvvUQqQ394RGfWsXW1NAgMB
    '' SIG '' AAGjggGoMIIBpDAfBgNVHSMEGDAWgBQpkWD/ik366/mm
    '' SIG '' arjP+eZLvUnOEjAdBgNVHQ4EFgQUbTCyxKwYFXkoMwNR
    '' SIG '' 3wqFbbiDjGMwDgYDVR0PAQH/BAQDAgeAMAwGA1UdEwEB
    '' SIG '' /wQCMAAwEwYDVR0lBAwwCgYIKwYBBQUHAwMwEQYJYIZI
    '' SIG '' AYb4QgEBBAQDAgQQMEYGA1UdIAQ/MD0wOwYMKwYBBAGy
    '' SIG '' MQECAQMCMCswKQYIKwYBBQUHAgEWHWh0dHBzOi8vc2Vj
    '' SIG '' dXJlLmNvbW9kby5uZXQvQ1BTMEMGA1UdHwQ8MDowOKA2
    '' SIG '' oDSGMmh0dHA6Ly9jcmwuY29tb2RvY2EuY29tL0NPTU9E
    '' SIG '' T1JTQUNvZGVTaWduaW5nQ0EuY3JsMHQGCCsGAQUFBwEB
    '' SIG '' BGgwZjA+BggrBgEFBQcwAoYyaHR0cDovL2NydC5jb21v
    '' SIG '' ZG9jYS5jb20vQ09NT0RPUlNBQ29kZVNpZ25pbmdDQS5j
    '' SIG '' cnQwJAYIKwYBBQUHMAGGGGh0dHA6Ly9vY3NwLmNvbW9k
    '' SIG '' b2NhLmNvbTAZBgNVHREEEjAQgQ5oYmNpQHVhbWFubi5k
    '' SIG '' ZTANBgkqhkiG9w0BAQsFAAOCAQEANb4rOvCcte+6lVlf
    '' SIG '' m4Dge+8SoDj1Iu2eJpXU63iwYzcziNUmyMO4r+VmF1yy
    '' SIG '' xms9YhK+lKH94KSg0XdBhLGkZe8kQhJ8pL7mlNT3MAWW
    '' SIG '' zgmnvZj019CsZvNCXk/JpJfjWJ1AWuxUzck1IzjogwO1
    '' SIG '' fWy4+zGrOSb8435Cm0nIi67yHCTCcVzZ0qftewAFwHaG
    '' SIG '' vAjj+n387kN96vlGtjMJtunDa6LXCkLDq0POPL62dbyF
    '' SIG '' /REGMxx7e+c3KUbYr77TwXAemIkW3WXEnARqjUCSk8BR
    '' SIG '' KWByU4mN1JD/VKMqRuDIFOtze5PeWRkZhFKLymbRlKVc
    '' SIG '' QIPpgo+kplt6rJ7PfzCCBeAwggPIoAMCAQICEC58h8wO
    '' SIG '' k0pS/pT9HLfNNK8wDQYJKoZIhvcNAQEMBQAwgYUxCzAJ
    '' SIG '' BgNVBAYTAkdCMRswGQYDVQQIExJHcmVhdGVyIE1hbmNo
    '' SIG '' ZXN0ZXIxEDAOBgNVBAcTB1NhbGZvcmQxGjAYBgNVBAoT
    '' SIG '' EUNPTU9ETyBDQSBMaW1pdGVkMSswKQYDVQQDEyJDT01P
    '' SIG '' RE8gUlNBIENlcnRpZmljYXRpb24gQXV0aG9yaXR5MB4X
    '' SIG '' DTEzMDUwOTAwMDAwMFoXDTI4MDUwODIzNTk1OVowfTEL
    '' SIG '' MAkGA1UEBhMCR0IxGzAZBgNVBAgTEkdyZWF0ZXIgTWFu
    '' SIG '' Y2hlc3RlcjEQMA4GA1UEBxMHU2FsZm9yZDEaMBgGA1UE
    '' SIG '' ChMRQ09NT0RPIENBIExpbWl0ZWQxIzAhBgNVBAMTGkNP
    '' SIG '' TU9ETyBSU0EgQ29kZSBTaWduaW5nIENBMIIBIjANBgkq
    '' SIG '' hkiG9w0BAQEFAAOCAQ8AMIIBCgKCAQEAppiQY3eRNH+K
    '' SIG '' 0d3pZzER68we/TEds7liVz+TvFvjnx4kMhEna7xRkafP
    '' SIG '' np4ls1+BqBgPHR4gMA77YXuGCbPj/aJonRwsnb9y4+R1
    '' SIG '' oOU1I47Jiu4aDGTH2EKhe7VSA0s6sI4jS0tj4CKUN3vV
    '' SIG '' eZAKFBhRLOb+wRLwHD9hYQqMotz2wzCqzSgYdUjBeVoI
    '' SIG '' zbuMVYz31HaQOjNGUHOYXPSFSmsPgN1e1r39qS/AJfX5
    '' SIG '' eNeNXxDCRFU8kDwxRstwrgepCuOvwQFvkBoj4l8428YI
    '' SIG '' XUezg0HwLgA3FLkSqnmSUs2HD3vYYimkfjC9G7WMcrRI
    '' SIG '' 8uPoIfleTGJ5iwIGn3/VCwIDAQABo4IBUTCCAU0wHwYD
    '' SIG '' VR0jBBgwFoAUu69+Aj36pvE8hI6t7jiY7NkyMtQwHQYD
    '' SIG '' VR0OBBYEFCmRYP+KTfrr+aZquM/55ku9Sc4SMA4GA1Ud
    '' SIG '' DwEB/wQEAwIBhjASBgNVHRMBAf8ECDAGAQH/AgEAMBMG
    '' SIG '' A1UdJQQMMAoGCCsGAQUFBwMDMBEGA1UdIAQKMAgwBgYE
    '' SIG '' VR0gADBMBgNVHR8ERTBDMEGgP6A9hjtodHRwOi8vY3Js
    '' SIG '' LmNvbW9kb2NhLmNvbS9DT01PRE9SU0FDZXJ0aWZpY2F0
    '' SIG '' aW9uQXV0aG9yaXR5LmNybDBxBggrBgEFBQcBAQRlMGMw
    '' SIG '' OwYIKwYBBQUHMAKGL2h0dHA6Ly9jcnQuY29tb2RvY2Eu
    '' SIG '' Y29tL0NPTU9ET1JTQUFkZFRydXN0Q0EuY3J0MCQGCCsG
    '' SIG '' AQUFBzABhhhodHRwOi8vb2NzcC5jb21vZG9jYS5jb20w
    '' SIG '' DQYJKoZIhvcNAQEMBQADggIBAAI/AjnD7vjKO4neDG1N
    '' SIG '' sfFOkk+vwjgsBMzFYxGrCWOvq6LXAj/MbxnDPdYaCJT/
    '' SIG '' JdipiKcrEBrgm7EHIhpRHDrU4ekJv+YkdK8eexYxbiPv
    '' SIG '' VFEtUgLidQgFTPG3UeFRAMaH9mzuEER2V2rx31hrIapJ
    '' SIG '' 1Hw3Tr3/tnVUQBg2V2cRzU8C5P7z2vx1F9vst/dlCSNJ
    '' SIG '' H0NXg+p+IHdhyE3yu2VNqPeFRQevemknZZApQIvfezpR
    '' SIG '' OYyoH3B5rW1CIKLPDGwDjEzNcweU51qOOgS6oqF8H8tj
    '' SIG '' OhWn1BUbp1JHMqn0v2RH0aofU04yMHPCb7d4gp1c/0a7
    '' SIG '' ayIdiAv4G6o0pvyM9d1/ZYyMMVcx0DbsR6HPy4uo7xwY
    '' SIG '' WMUGd8pLm1GvTAhKeo/io1Lijo7MJuSy2OU4wqjtxoGc
    '' SIG '' NWupWGFKCpe0S0K2VZ2+medwbVn4bSoMfxlgXwyaiGww
    '' SIG '' rFIJkBYb/yud29AgyonqKH4yjhnfe0gzHtdl+K7J+IMU
    '' SIG '' k3Z9ZNCOzr41ff9yMU2fnr0ebC+ojwwGUPuMJ7N2yfTm
    '' SIG '' 18M04oyHIYZh/r9VdOEhdwMKaGy75Mmp5s9ZJet87EUO
    '' SIG '' eWZo6CLNuO+YhU2WETwJitB/vCgoE/tqylSNklzNwmWY
    '' SIG '' Bp7OSFvUtTeTRkF8B93P+kPvumdh/31J4LswfVyA4+YW
    '' SIG '' OUunMYIEZTCCBGECAQEwgZEwfTELMAkGA1UEBhMCR0Ix
    '' SIG '' GzAZBgNVBAgTEkdyZWF0ZXIgTWFuY2hlc3RlcjEQMA4G
    '' SIG '' A1UEBxMHU2FsZm9yZDEaMBgGA1UEChMRQ09NT0RPIENB
    '' SIG '' IExpbWl0ZWQxIzAhBgNVBAMTGkNPTU9ETyBSU0EgQ29k
    '' SIG '' ZSBTaWduaW5nIENBAhAukCdJp6hwviUKnAHTCOlJMAkG
    '' SIG '' BSsOAwIaBQCggZowGQYJKoZIhvcNAQkDMQwGCisGAQQB
    '' SIG '' gjcCAQQwHAYKKwYBBAGCNwIBCzEOMAwGCisGAQQBgjcC
    '' SIG '' ARUwIwYJKoZIhvcNAQkEMRYEFIv57p1o+DC1v/e4d3sh
    '' SIG '' ptPds/zgMDoGCisGAQQBgjcCAQwxLDAqoCiAJgBNAG8A
    '' SIG '' bgBlAHkALQBTAHkAcwB0AGUAbQBhAG4AYQBsAHkAcwBl
    '' SIG '' MA0GCSqGSIb3DQEBAQUABIIBAJ9CJ8RUuRO806TYTh3L
    '' SIG '' TE67VDbsSHJtfkUJ6Y0kj54qQ83tNkSEfe+UNiIOW2tW
    '' SIG '' ZVznchbVDxc6VoYPsrbIqgWludxv5mokVLmTjL5gHyyC
    '' SIG '' eC25DdJami9V9gDwnG5DZO5apVbh9jdGWQeXa3ERyVNS
    '' SIG '' KQJXd+sxOw2XukhzoVhiHt24jnx8RnpqL9hJ8g1o8Hqz
    '' SIG '' EKrYNI0m/tZY2mvP2hOTCnIEHedMUkoGOxEa6a9f/HJr
    '' SIG '' zxYwm4gRpfQ4EMpVTwK9406H6U/pUWRfHVvRoZPv2QyI
    '' SIG '' I+ebtnNaxyPxkXqWZQWL6/tlX7yA6E7YK2fVrxMzyOES
    '' SIG '' vGtRoaTGW700aZmhggILMIICBwYJKoZIhvcNAQkGMYIB
    '' SIG '' +DCCAfQCAQEwcjBeMQswCQYDVQQGEwJVUzEdMBsGA1UE
    '' SIG '' ChMUU3ltYW50ZWMgQ29ycG9yYXRpb24xMDAuBgNVBAMT
    '' SIG '' J1N5bWFudGVjIFRpbWUgU3RhbXBpbmcgU2VydmljZXMg
    '' SIG '' Q0EgLSBHMgIQDs/0OMj+vzVuBNhqmBsaUDAJBgUrDgMC
    '' SIG '' GgUAoF0wGAYJKoZIhvcNAQkDMQsGCSqGSIb3DQEHATAc
    '' SIG '' BgkqhkiG9w0BCQUxDxcNMTkxMTAzMTYxODIxWjAjBgkq
    '' SIG '' hkiG9w0BCQQxFgQUTQ7AU+77JPflQk/QxKv2nRJT8CAw
    '' SIG '' DQYJKoZIhvcNAQEBBQAEggEAKeYORVNJCw7Ks/7EAhaD
    '' SIG '' MaGiFAStdakLYY4htu0gFOnHMAaa4fNN6dHW9ZSeRv7q
    '' SIG '' lzA2ZtpjikAT2W992C/m+2svjaVcqc7rH/eBdnTgUqIG
    '' SIG '' 7su+3xXdRipJCtaptEdgyP0mJXy9YjzT72Nn6jEgnfLw
    '' SIG '' PHGXKdOqFm0l0FRnyM6uhghWj9pq1zqK2cfOp0fVjX8I
    '' SIG '' MuRJ5bjVOO0fiT9kXQb3MzCDE5q8M+0b1tol9GBNErda
    '' SIG '' wD42c0Qnv0KM/hiwVED5fsRGEGyrKWXM9y3LoIvMQiyt
    '' SIG '' f1JpsIlv4hw/WVhoTyetoZYW6/mVktO6hNuUn8m2OzA7
    '' SIG '' VOdBfq3KjSj9dw==
    '' SIG '' End signature block
    Donnerstag, 19. November 2020 17:21
  • ' VBScript source code
    version = "1.27"
    

    Du sollst nicht das Script hierherein kopieren, sondern das Script auf Deinem Rechner starten und die anschließend erzeugte Datei "mny_result_20201119.....txt" posten.

    Gruß von der Schlei
    Uli

    --
    https://www.hbcifm99.de/

    https://www.hbcifm99.de/hbcifm99.atom.xml

    Donnerstag, 19. November 2020 19:29
  • Sorry, kenne mich da nicht so gut aus.

    Habe das Script nochmal gestartet, aber keine Datei "mny_result... " gefunden. Die Datei sollte sich doch selbst erstellen, Oder?

    Was mache ich falsch?

    Gruß aus Nürnberg

    Samstag, 21. November 2020 18:58
  • Habe das Script nochmal gestartet, aber keine Datei "mny_result... " gefunden. Die Datei sollte sich doch selbst erstellen, Oder?

    Wenn Du das Script startest, kommt nach der Analyse ein Fenster, in dessen unterster Zeile der Dateiname mit Pfadangabe zum Dokumentenverzeichnis steht. Heute vermutlich "Ergebnisse gespeichert in C:\Users\*name*\Documents\mny_result_20201122*****.txt".

    Gruß von der Schlei
    Uli

    --
    https://www.hbcifm99.de/

    https://www.hbcifm99.de/hbcifm99.atom.xml

    Sonntag, 22. November 2020 09:14
  • Ich habe  mit Everything nach der Datei den ganzen PC durchsuchen lassen. Es wurde keine aktuelle Datei gefunden.

    Im aktuellen Dokumentenordner habe ich nur eine Datei aus 2013 gefunden.

    WSH ist 5.812

    Gruß aus Nürnberg

    Montag, 23. November 2020 10:32
  • Ich habe  mit Everything nach der Datei den ganzen PC durchsuchen lassen. Es wurde keine aktuelle Datei gefunden.

    Lass das Script einfach nochmal laufen und lies dann den Dateinamen ab.

    Gruß von der Schlei
    Uli

    --
    https://www.hbcifm99.de/

    https://www.hbcifm99.de/hbcifm99.atom.xml

    Montag, 23. November 2020 21:25
  • Hallo, 

    Ich habe jetzt einfach im HBCI-Modul unter Hilfe die Systemanalyse aufgerufen. Dann kam dieses Fenster und es wurde eine Datei erzeugt.

    Vielleicht ist das jetzt die richtige?

    Danke im Voraus

    Money 99V2000 & HBCIFM99 Systemprüfung 1.27 Stand 25.11.2020 12:25:22
    OS Version: Windows 10 Enterprise (ohne SP) 64bit
    Windir: C:\WINDOWS
    Appdata: C:\Users\Arnold\AppData\Roaming
    Explorer Version: 10.0.19041.610
    Internet Explorer version: 11.0.19041.1
    Locale: 1031
    Regionsoptionen korrekt für Deutschland eingestellt
    CommonFilesDir: C:\Program Files (x86)\Common Files
    CommonFilesDir (x86): C:\Program Files (x86)\Common Files
    Money Version: 7.0.0.723
    Money LCID: 1031
    Money SKU: OEMStdB
    mfc42.dll Version im Money-Verz.: C:\program files (x86)\mfc42.dll nicht gefunden (OK)
    mfc42.dll Version im Windows-Verz.: 6.6.8063.0
    vipzka.exe Version: 3.0.0.54 (Money 99V2000 SP1 Decoder)
    HBCIFM99 Version: 5.1.0.17
    HKLM-FinTS-Produkt-Registrierungsnummer: 54C271E36542D8AD737E8E6A6 (entspricht dem HBCI-Modul für Money 99 Version 2000, OK)
    HKCU-FinTS-Produkt-Registrierungsnummer nicht vorhanden, (OK)
    DDBAC Version: 5.8.10.0
    DDBAC Dir: C:\Users\Arnold\AppData\Roaming\DataDesign\DDBAC
    MDAC Version : 6.3.9600.16384 (6.3 (Windows 8, Windows 10))
    Jet 3.5 Version: 3.51.2723.0
    Jet 4.0 Version: 4.0.9801.27 (unbekannter SP)
    ODBC Jet Version: 10.0.19041.1
    Älteste Datei im Money-Ordner: MSMONEY.EXE 14.03.1999 23:00:00 (OK)
    MS Setup Registry Key für keine bekannte MS Money Version gefunden
    QuoteServerURL: http://data.moneycentral.msn.com/Scripts/invisapi.dll/ (OK)
    Alte Registry Werte sind entfernt. (OK)
    SmrtInetURL: https://www.hbcifm99.de/smrtinet.ini (OK)
    Kein LAN-Proxy konfiguriert
    SecureProtocols: TLS 1.0, TLS 1.1, TLS 1.2 aktiviert
    Windows Firewall ist eingeschaltet
    Antivirus Avira Antivirus ProductState 266240 aktiv, aktuell
    Antivirus Windows Defender ProductState 393472 nicht aktiv, aktuell
    AntiSpyware Avira Antivirus ProductState 266240 aktiv, aktuell
    AntiSpyware Windows Defender ProductState 393472 nicht aktiv, aktuell
    Keine Firewall erkannt.
    Kontakt 0: Sparda-Bank Nürnberg (Sparda-Bank Nürnberg) BLZ 76090500 HBCI 300 CommAddr https://fints.bankingonline.de/fints/FinTs30PinTanHttpGate SecProgID TAN.1 PINTAN ITanSupported ITANVerf. 995,994 S-Fkt 995
    Kontakt 1: Landesbank Baden-Württemberg/Baden-Württembergische Bank (Landesbank Baden-Württemberg/Baden-Württembergische Bank) BLZ 60050101 HBCI 300 CommAddr https://banking-li4.s-fints-pt-li.de/fints30 SecProgID TAN.1 PINTAN ITanSupported ITANVerf. 910,911,912,913 S-Fkt 911 NeedSynchronisation

    Mittwoch, 25. November 2020 11:27
  • Ich habe jetzt einfach im HBCI-Modul unter Hilfe die Systemanalyse aufgerufen. Dann kam dieses Fenster und es wurde eine Datei erzeugt.

    Vielleicht ist das jetzt die richtige?
    ..
    DDBAC Version: 5.8.10.0
    ..

    Das ist die richtige Datei und die zeigt auch das Problem: Deine DDBAC-Version wird vom HBCI-Modul 5.1.0.17 noch nicht unterstützt. Die neueren Versionen lesen die FinTS-Produkt-Registrierungsnummer (HBCI-Modul 54C271E36542D8AD737E8E6A6) nicht mehr aus der Registry, sondern erwarten eine programmatische Übergabe. Das kann aber erst die kommende Version des HBCI-Moduls. Deinstalliere die nicht unterstützte DDBAC-Version und installiere die 5.7.85.0, die liegt vermutlich in "C:\ProgramData\Uli Amann\HBCI-Modul für Money 99 V2000\update".

    Gruß von der Schlei
    Uli

    --
    https://www.hbcifm99.de/

    https://www.hbcifm99.de/hbcifm99.atom.xml

    Mittwoch, 25. November 2020 15:56