*******************************************
*    Display Home and File Server paths   *
*      Developed by Richard McChesney     *
*         This version updated on         *
*               09/09/2010                *
*******************************************

set safety off

public HomeFilespath, ProgFilesPath, ErrorLineNumber





*** Get Registry Values ***
ErrorLineNumber = "1"

ON ERROR DO errHandler;


WSHShell = CreateObject("WScript.Shell")

ErrorLineNumber = "2"
ProgFilesPath = WSHShell.RegRead("HKLM\Software\Sybiz\Vision\FileServer")
HomeFilespath = WSHShell.RegRead("HKLM\Software\Sybiz\Vision\HomeDir")


ErrorLineNumber = "3"
messagebox("FileServer path: " + ProgFilesPath ,0,"FileServer path")
messagebox("Home path: " + HomeFilespath ,0,"Home path")



return


* The following will only run if there is an error message.  
PROCEDURE errHandler
*	ErrorFound = "Error"
	messagebox("error at line " + ErrorLineNumber ,0,"Error")
	quit
ENDPROC