Dim AutoMode

CheckEngine()

Message = "This script will install the german language pack on this Server!" & vbNewLine & vbNewLine
Message = Message & "Herzlich willkommen auf Ihrem Server!" & vbNewLine & vbNewLine
Message = Message & "Falls Sie eine deutsche Betriebssystem-Oberflaeche wuenschen, koennen Sie hier die Installation des Microsoft MUI-Packs starten." & vbNewline & vbNewline
Message = Message & "Wenn Sie die Installation des MUI-Packs jetzt starten wollen, waehlen Sie 'YES'." & vbNewline
Message = Message & "Falls Sie eine englische Oberflaeche bevorzugen oder die Installation zu einem spaeteren Zeitpunkt durchfuehren moechten, waehlen Sie 'NO'." & vbNewline &vbNewline
Message = Message & "Ihr HostEurope-Team " & vbNewline 


If AutoMode then
	InstallMUI()
	
Else
	If MsgBox(Message, 4, "MUI installation") = vbYes then
		wscript.echo "Starte die Installation..." & vbNewline
		InstallMUI()
                wscript.echo vbNewline & "MUI-Pack erfolgreich installiert." & vbNewline
		MsgBox "Bitte fuehren Sie nun einen Reboot durch und nehmen Sie die entsprechenden Einstellugen vor."
	End if
End if

Sub InstallMUI()
	Set wso = CreateObject("Wscript.Shell")
	wscript.echo "mui setup started."
	wso.Run	"C:\Windows\System32\lpksetup /i /p c:\DE-MUI\mui-de.cab",1,True
        	
End Sub


Sub CheckEngine()
	AutoMode = False
	If Wscript.Arguments.Count = 1 then
		If Wscript.Arguments(0) = "/auto" then
			AutoMode = True
		End If
	End if	

	If Right(lcase(Wscript.FullName),11) = "wscript.exe" then
		Set wso = CreateObject("Wscript.Shell")
		If AutoMode then
			wso.Run "cscript.exe //nologo """ & Wscript.ScriptFullName & """ /auto"
		Else
			wso.Run "cscript.exe //nologo """ & Wscript.ScriptFullName & """"
		End if
		wscript.quit
	End if
End Sub