Remove From My Forums

Kein Zugriff mehr auf Sparda-Konto

Frage
0

Anmelden

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

0

Anmelden

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

Anmelden

' 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

0

Anmelden
' 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
0

Anmelden

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
0

Anmelden

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
0

Anmelden

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
0

Anmelden

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
0

Anmelden

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
0

Anmelden

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

Fragensteller

Kein Zugriff mehr auf Sparda-Konto

Frage

Alle Antworten