:start
;--------------------------------------------
CLS
Break OFF
Debug ON

;Time equal with server
;--------------------------------------------
SetTime @lserver 

;Global Variables
;--------------------------------------------
$hidden="$$"
$ConnectI="NoConnection"
$ConnectJ="NoConnection"
$ConnectK="NoConnection"
$ConnectL="NoConnection"
$ConnectM="NoConnection"
$Greeting="none"

;printer
;--------------------------------------------
AddPrinterConnection("\\wsrv01\MaanDesk")
SetDefaultPrinter("\\wsrv01\MaanDesk")

;HomeDirectory
;--------------------------------------------
use I: /Del
$userdir=\\wsrv01\+@USERID+$hidden
Use I: $userdir

If @error <> 0
		Beep
		$ConnectI="False"
		Sleep 2
	Else
		$ConnectI="True"
	EndIf

;email
;--------------------------------------------
use J: /Del
If InGroup("email")
	$emaildir=\\wsrv01\mail_+@USERID+$hidden
	Use J: $emaildir
EndIf

If @error <> 0
		Beep
		$ConnectJ="False"
		Sleep 2
	Else
		$ConnectJ="True"
	EndIf

;K - share
;--------------------------------------------
use K: /Del
Use K: "\\wsrv01\Algemeen"

If @error <> 0
		Beep
		$ConnectK="False"
		Sleep 2
	Else
		$ConnectK="True"
	EndIf

;L - Share
;--------------------------------------------
use L: /Del
Use L: "\\lsrv01\apps"

If @error <> 0
		Beep
		$ConnectL="False"
		Sleep 2
	Else
		$ConnectL="True"
	EndIf
;M - Share
;---------------------------------------------
use M: /Del
Use M: "\\lsrv01\mp3"

If @error <> 0
		Beep
		$ConnectM="False"
		Sleep 2
	Else
		$ConnectM="True"
	EndIf

;web
;--------------------------------------------
If InGroup("Web")
	Use N: "\\lsrv01\www"
	Use O: "\\lsrv01\sql"
EndIf

;Variabelen
;--------------------------------------------
	If $ConnectI="True"
		$DriveI="- I: Persoonlijke Netwerkschijf"
	Else
		$DriveI=""
	Endif
	
	If $ConnectJ="True"
		$DriveJ="- J: Emaildata Netwerkschijf"
	Else
		$DriveJ=""
	Endif
	
	If $ConnectK="True"
		$DriveK="- K: Algemene Netwerkschijf"
	Else
		$DriveK=""	
	
	If $ConnectL="True"
		$DriveL="- L: Programma's netwerkschijf"
	Else
		$DriveL=""
	Endif
	If $ConnectM="True"
		$DriveM="- M: Muziek netwerkschijf"
	Else
		$DriveM=""
	Endif

;Moment van de dag
;--------------------------------------------
$hour = val (SubStr(@time,1,2))

Select
 Case $Hour < 6
  $Greeting = "Goedenacht"
 Case $Hour < 12
  $Greeting = "Goedemorgen"
 Case $Hour < 18
  $Greeting = "Goedemiddag"
 Case 1
  $Greeting = "Goedenavond"
EndSelect

;welkoms scherm
;--------------------------------------------
MESSAGEBOX ("$Greeting @Fullname, 

Welkom Op het netwerk van: MAAN 
De volgende netwerkschijven zijn verbonden:

$DriveI
$DriveJ
$DriveK
$DriveL
$DriveM","Login Script",064,3)