--- joko/ToolBox/Windows/HylaPrintMon_MapiContactsDumper/ModuleMain.bas	2007/09/01 15:18:39	1.2
+++ joko/ToolBox/Windows/HylaPrintMon_MapiContactsDumper/ModuleMain.bas	2007/09/01 15:22:49	1.3
@@ -47,7 +47,7 @@
             MsgBox _
                 "Problem: Could not open MAPI folder '" & MapiFolderPath & "'." & vbCrLf & _
                 "Please configure properly in port settings dialog or registry:" & vbCrLf & vbCrLf & _
-                "HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\Print\Monitors\Winprint Hylafax\Ports\" & hfax_port & "\MapiFolderPath", _
+                "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Print\Monitors\Winprint Hylafax\Ports\" & hfax_port & "\MapiFolderPath", _
                 vbOKOnly, "ERROR"
             End
         End If
@@ -145,7 +145,7 @@
 End Function
 
 Private Function getRegistrySetting(portName As String, subKey As String) As String
-    getRegistrySetting = regQuery_A_Key(HKEY_LOCAL_MACHINE, "SYSTEM\ControlSet001\Control\Print\Monitors\Winprint Hylafax\Ports\" & portName, subKey)
+    getRegistrySetting = regQuery_A_Key(HKEY_LOCAL_MACHINE, "SYSTEM\CurrentControlSet\Control\Print\Monitors\Winprint Hylafax\Ports\" & portName, subKey)
 End Function
 
 Private Function writeAddressbook(ByRef entries As Variant, abFormat As String, abPath As String, ByRef count As Integer) As Boolean