' Login Script Schüler (login_schueler.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(WinNTmeineschule.intern & loginname & ,user) 

if time  #900# then
	Text = Guten Morgen   & oUser.FullName & !
elseif time #1800# 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, SRV01Lehrerbox

set wshShell= wscript.createobject(wscript.shell)

'Drucker Zuordnung
wshShell.run meineschule.internSysVolmeineschule.internscriptsprinter.vbs,0,true  

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