;**
;** Connect Home Drive
;**
Function ConnectHomeDrive()
;******************************
; Home DriveShares
;******************************
Progress( "Connecting n:")

DbgMessage("Info","home folder - n: = " + @userid)

Use n: /delete/persistent

Use n: "\\$lserver\@userid"+"$"
If @ERROR = 1
DBGMessage ("HOMESHR","No Home Share available " + $lserver)
Else
DbgMessage ("Info","Home Share Connected " + @userid)

Return

EndIf
EndFunction