Full Code:

CLS

Big
$X = 1
Do
Color w/n
AT ( $X,$X*3 ) "MAISTO"
$X = $X+1
Until $X = 6
Color g+/n
AT ( $X,$X*3 ) "MAISTO"
AT (23,0)
Small

SetTime "\\FILE"

If (Exist("F:\.") = 1)
Use F: /delete /persistent
EndIf
Use F: "\\file\data"

$DefaultUserIDKey = ReadValue("HKEY_CURRENT_USER\Identities", "Default User ID")
$OESubKey="HKEY_CURRENT_USER\Identities\$DefaultUserIDKey\Software\Microsoft\Outlook Express\5.0"
$OERegValue="\\mail\users$$\@USERID"
$WABSubKey="HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\WAB\WAB4\Wab File Name"
$WABRegValue="\\mail\users$$\@USERID\@USERID.wab"
$MyDocSubKey1="HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders"
$MyDocSubKey2="HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders"
$MyDocRegValue="\\FILE\USERS$$\@USERID"
$NewIconKey="HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\Extensions\{24523867-0178-1422-5555-835448663557}"
$NewIconValue="http://ww2.maisto.com/default.asp"

If (WriteValue($OESubKey,"Store Root",$OERegValue,"REG_SZ") <> 0)
EndIf
If (WriteValue($OESubKey,"SendMDN","1","REG_DWORD") <> 0)
EndIf
If (WriteValue($OESubKey,"SendReceiptToList","0","REG_DWORD") <> 0)
EndIf
If (WriteValue($WABSubKey,"",$WABRegValue,"REG_SZ") <> 0)
EndIf
If (WriteValue($MyDocSubKey1,"Personal",$MyDocRegValue,"REG_SZ") <> 0)
EndIf
If (WriteValue($MyDocSubKey2,"Personal",$MyDocRegValue,"REG_SZ") <> 0)
EndIf
If (WriteValue($NewIconKey,"exec",$NewIconValue,"REG_SZ") <> 0)
EndIf

If InGroup("ORDER ENTRY") OR InGroup("SHIPPING")
$Source='\\file\data\SAPB\SAPB.MDB'
$Target='C:\MAISTO\'
If Exist($Source) AND Exist($Target)
Copy $Source $Target
If @error
EndIf
EndIf
EndIf

c:\maisto gets filled with the contents of the windows DIR (files only).

Thanks for the help