$=SETCONSOLE("HIDE")

Dim $Comp, $klantnaam, $sbeheer, $testnr, $os
$COMP = SUBSTR(@WKSTA,1,2)
$klantnaam="TEST"
$sbeheer="lala"
$tstnr="1214455"

Dim $ASERVER,$BSERVER,$CSERVER,$DSERVER,$ESERVER,$FSERVER
$ASERVER="servera"
$BSERVER="serverb"
$CSERVER="serverc"
$DSERVER="serverd"
$ESERVER="servere"
$FSERVER="serverf"

;client os
If @INWIN="1" $os="W2k-NT-XP" EndIf
If @INWIN="2" $os="W9x" EndIf

;general mappings
Use H: /d
Use H: "\\$ASERVER\test"
Use S: /d
Use S: "\\$cserver\test2"

If @INWIN="1"
  ; Printers
  ;$=DelTree("HKCU\Printers\Connections")
  ;$=AddKey("HKCU\Printers\Connections")
  $=ADDPRINTERCONNECTION("\\$ESERVER\printtest0")
  $=ADDPRINTERCONNECTION("\\$ASERVER\printtest1")
  $=ADDPRINTERCONNECTION("\\$ASERVER\printtest2")
  $=ADDPRINTERCONNECTION("\\$ESERVER\printtest3")
  $=ADDPRINTERCONNECTION("\\$ESERVER\printtest4")
  $=ADDPRINTERCONNECTION("\\$ESERVER\printtest5")
  $=ADDPRINTERCONNECTION("\\$ASERVER\printtest6")
  $=ADDPRINTERCONNECTION("\\$ESERVER\printtest7")
  $=ADDPRINTERCONNECTION("\\$ESERVER\printtest8")
  $=ADDPRINTERCONNECTION("\\$ESERVER\printtest9")
  $=ADDPRINTERCONNECTION("\\$ESERVER\printtest10")
  $=ADDPRINTERCONNECTION("\\$ESERVER\printtest11")
  $=ADDPRINTERCONNECTION("\\$ASERVER\Network FAX for Windows")
EndIf

If InGroup("GG-test")
  Use V: /d
  Use V: "\\$dSERVER\test"
  Use o: /d
  Use o: "\\$fserver\terttt"
EndIf

;test shares

If InGroup("test-test")
  Use L: /d
  Use L: "\\$FSERVER\lalalala"
EndIf

If InGroup("test2")
  Use L: /d
  Use L: "\\$FSERVER\lalalalala"
EndIf

If InGroup("fsfsfsfs")
  Use L: /d
  Use L: "\\$FSERVER\dfsdfsdfs"
EndIf

If InGroup("sssssssss")
  Use M: /d
  Use M: "\\$FSERVER\sssssssss"
EndIf

If InGroup("ffffffffffff")
  Use M: /d
  Use M: "\\$FSERVER\fffffffff"
EndIf

If InGroup("ssssssssssssswwwww")
  Use M: /d
  Use M: "\\$FSERVER\swwwww"
EndIf

If InGroup("it")
  Use w: /d
  Use w: "\\$fSERVER\seseseseses"
  Use n: /d
  Use n: "\\$fserver\it$"
EndIf

If InGroup("admin")
  Use L: /d
  Use L: "\\$ESERVER\ADMIN"
EndIf

If InGroup("burp")
  Use i: /d
  Use i: "\\$ESERVER\burp"
EndIf

If InGroup("popop")
  Use M: /d
  Use M: "\\$ESERVER\popop"
EndIf

If InGroup("lolol")
  Use V: /d
  Use V: "\\$ESERVER\lolol"
EndIf

If InGroup("uuuuuu")
  Use I: /d
  Use I: "\\$ASERVER\uuuuuu"
EndIf

If InGroup('Office2007')
  'Installing Office 2007' ?
  Dim $Cmd
  $Cmd = '\\' + $Server + '\test\office2007 standaard\setup.exe /admin update.MSP'
  'Command: ' $Cmd ? ; for debugging
  Run $Cmd
EndIf

If InGroup("lalala)
  Use j: /d
  Use j: "\\$aserver\lalala$"
EndIf

If InGroup("eeeeee")
  run "explorer http://test.nl"
EndIf

;printer redirection for dos
If InGroup("dos")
  Use L: /d
  Use L: "\\$DSERVER\dos"
  Use LPT3: /d
  Use LPT3: "\\$ASERVER\PRT003"
EndIf

If InGroup("burp")
  Use LPT3: /d
  Use LPT3: "\\$ASERVER\burp
EndIf

;If NOT Exist("%Windir%\msagent\chars\santa.acs")
;   Copy "\\Vdb-dc01\msagent\santa.acs" "%Windir%\msagent\chars\."
;EndIf

;debug-----------------------------------------------------------------------------------------

;Groet-----------------------------------------------------------------------------------------
If @TIME<"12:00:00" AND @TIME>"06:00:00" $GROET="Goedemorning" EndIf
If @TIME>"12:00:00" AND @TIME<"18:00:00" $GROET="Goodmidday" EndIf
If @TIME>"18:00:00" AND @TIME<"23:59:00" $GROET="Goodevening" EndIf
If @TIME>"00:01:00" AND @TIME<"06:00:00" $GROET="goodnight" EndIf

;Dag-------------------------------------------------------------------------------------------
Select
  Case @DAY="Sunday"
    $DAG="zondag"
  Case @DAY="Monday"
    $DAG="maandag"
  Case @DAY="Tuesday"
    $DAG="dinsdag"
  Case @DAY="Wednesday"
    $DAG="woensdag"
  Case @DAY="Thursday"
    $DAG="donderdag"
  Case @DAY="Friday"
    $DAG="vrijdag"
  Case @DAY="Saturday"
    $DAG="zaterdag"
EndSelect

;Maand-----------------------------------------------------------------------------------------
Select
  Case @MONTHNO="1"
    $MAAND="Januari"
  Case @MONTHNO="2"
    $MAAND="Februari"
  Case @MONTHNO="3"
    $MAAND="Maart"
  Case @MONTHNO="4"
    $MAAND="April"
  Case @MONTHNO="5"
    $MAAND="Mei"
  Case @MONTHNO="6"
    $MAAND="Juni"
  Case @MONTHNO="7"
    $MAAND="Juli"
  Case @MONTHNO="8"
    $MAAND="Augustus"
  Case @MONTHNO="9"
    $MAAND="September"
  Case @MONTHNO="10"
    $MAAND="Oktober"
  Case @MONTHNO="11"
    $MAAND="November"
  Case @MONTHNO="12"
    $MAAND="December"
EndSelect

;Welkom----------------------------------------------------------------------------------------
Dim $strMsgHead, $strMsgBody1, $strMsgBody2
$strMsgHead = $GROET+" "+@FULLNAME
$strMsgBody1 = "Het is vandaag "+$DAG+" "+@mdayno+" "+$MAAND+" "+@year
$strMsgBody2 = "U bent ingelogd op computer "+@WKSTA+" van het Domein "+@domain+" via server "+@LSERVER+"."
$=MessageBox($strMsghead+@CRLF+@CRLF+$strMsgBody1+@CRLF+$strMsgBody2,"Welkom op het netwerk van "+$test,64,8)
Exit 0