' Login Script Schüler (login_lehrer.vbs)
' (c)Thorsten Jarz
' 22.2.2009
On Error Resume Next 'Bei einem Fehler wird mit dem nächsten Befehl fortgesetzt

Set WshNetwork = WScript.CreateObject("WScript.Network")
loginname = WshNetwork.UserName

'Ermittlung des Usernamens
Set oUser = GetObject("WinNT://meineschule.intern/" & loginname & ",user") 

if time < #9:00# then
	Text = "Guten Morgen "  & oUser.FullName & "!"
elseif time <#18:00# then 
	Text = "Guten Tag "  & oUser.FullName & "!"
else
	Text = "Guten Abend "  & oUser.FullName & "!"
end if

Text = text & vbnewline & "Willkommen an der Schule XY " & vbnewline
Text = text & "Computer: " & WshNetwork.ComputerName

'Laufwerk zuweisen
wshnetwork.mapNetworkdrive "L:", "\\SRV01\Lehrerbox"
wshnetwork.mapNetworkdrive "K:", "\\srv01\Testbox"

set wshShell= wscript.createobject("wscript.shell")

'Drucker Zuordnung
wshShell.run "\\meineschule.intern\SysVol\meineschule.intern\scripts\printer.vbs",0,true  

'Begrüßung
Button = wshshell.Popup(Text,10,"Lehrer MeineSchule",vbinformation)