At (1,0) "Mapping disks, adding printers..."
If InGroup("domain users")
Use d: "$fmtefil1\felles_gammel"
sleep 0.1 ? "Mappet disk d"
Use f: "$fmtefil1\felles_mapper"
sleep 0.1 ? "Mappet disk f"
Use h: "$fmtefil1\brukere"
Sleep 0.1 ? "Mappet disk h"
Use i: "$fmtefil1\felles"
sleep 0.1 ? "Mappet disk i"
Use r: "$fmtefil1\brukere\@userid"
sleep 0.1 ? "Mappet disk r"
Use p: "$fmtefil1\Programmer"
sleep 0.1 ? "Mappet disk p"
Use u: "$fmtefil1\etat_ora"
sleep 0.1? "Mappet disk u"
EndIf
If InGroup("gAdmaArkiv")
If AddPrinterConnection ("$fmteprint\Lba_multi") = 0 ? "Added printer Lba_multi"
EndIf
Sleep 0.0
If AddPrinterConnection ("$fmteprint\Arkiv_multi") = 0 ? "Added printer Arkiv_multi"
EndIf
Sleep 0.0
If SetDefaultPrinter ("$fmteprint\Arkiv_multi")= 0 ? "Default printer is Arkiv_multi"
EndIf
Sleep 0.1
EndIf