Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

vbs Login-Script IE-Fenster schließen verhindern

Frage Microsoft

Mitglied: retz12

retz12 (Level 1) - Jetzt verbinden

03.06.2009, aktualisiert 13:46 Uhr, 4645 Aufrufe, 3 Kommentare

Ich habe ein Login-Script, diese sämtliche Befehle wie Netzlaufwerk mappen, Drucker mappt, usw.
Als Ausgabe öffnet sich eine IE Seite wo angezeigt wird, was erfolgreich ausgeführt wurde.
Ich möchte jetzt, dass man das IE-Fenster nicht schließen kann. Es soll nach der angegeben Zeit selbst schließen.
Es sollte das "X" in der Leiste oben weg sein. Wie kann man das realisieren.

01.
On Error Resume Next 
02.
 
03.
' *** Initialze objects *** 
04.
Set WSHNetwork = WScript.CreateObject("WScript.Network") 
05.
Set WSHShell = WScript.CreateObject("WScript.Shell") 
06.
Set objShell = CreateObject("Shell.Application") 
07.
Set WSHFso = WScript.CreateObject("Scripting.FileSystemObject") 
08.
Set MSIE = WScript.CreateObject("InternetExplorer.Application") 
09.
Set FileSystem = CreateObject("Scripting.FileSystemObject") 
10.
Set fs = CreateObject("Scripting.filesystemobject") 
11.
Set net = CreateObject("WScript.Network") 
12.
 
13.
 
14.
' *** Get environment information *** 
15.
OS 						= WSHShell.ExpandEnvironmentStrings("%OS%") 
16.
WINDIR 					= WSHShell.ExpandEnvironmentStrings("%WINDIR%") 
17.
PROGRAMDIR 				= WSHShell.ExpandEnvironmentStrings("%ProgramFiles%") 
18.
USERPROFILE 			= WSHShell.ExpandEnvironmentStrings("%USERPROFILE%") 
19.
WSHVer 					= WScript.Version 
20.
WORKSTATION 			= WSHNetwork.ComputerName 
21.
USERDOMAIN 				= WSHNetwork.UserDomain 
22.
USERDNSDOMAIN 			= WSHShell.ExpandEnvironmentStrings("%USERDNSDOMAIN%") 
23.
LOGONSERVER				= LCase(WSHShell.ExpandEnvironmentStrings("%LOGONSERVER%") & "." & USERDNSDOMAIN) 
24.
LOGONSERVER_NFQDNS 		= LCase(WSHShell.ExpandEnvironmentStrings("%LOGONSERVER%")) '*** NOT Ffull qualified DNS (=WINS-Notation "\\Servername") *** 
25.
NETLOGON_DIR 			= WSHShell.ExpandEnvironmentStrings("%LOGONSERVER%") + "\NETLOGON\" 
26.
 
27.
While USERNAME = "" 
28.
	USERNAME = WSHNetwork.UserName		' Wird solange ausgeführt, bis der User ermittelt ist. 
29.
Wend 
30.
 
31.
 
32.
' *** IE-Ausgabe vorbereiten *** 
33.
SetupMSIE()	' IE einstellen für das Anzeige Fenster. 
34.
 
35.
'*** Ausgabe Logo 
36.
MSIE.Document.Write "<HTML><TITLE>" & USERDOMAIN & " Domain-Initialisierung für " & UCase(USERNAME) & "</TITLE>" &_ 
37.
		    "<BODY bgcolor=#ffffff>" &_ 
38.
		    "<FONT FACE=ARIAL size='-1'>" &_ 
39.
		    "<table><tr><td align='left'><IMG SRC='" & NETLOGON_DIR & "images\logos\logo.bmp' WIDTH='50%'></td></tr></table><BR>" &_ 
40.
		    "<HR>" 
41.
 
42.
' *** Ausgabe Willkommensmeldung 
43.
Welcome() 
44.
 
45.
 
46.
' ************************************************************************** 
47.
' *************************** Functions and Subs *************************** 
48.
' ************************************************************************** 
49.
 
50.
 
51.
' ********************************************** 
52.
' * Funktion:		Sub Welcome 
53.
' * Beschreibung:	Gibt die Willkommensmeldung aus. 
54.
' * Parameter:		<keine> 
55.
' * Rückgabe:		<keine> 
56.
' ********************************************** 
57.
Sub Welcome() 
58.
	On Error Resume Next 
59.
	 
60.
	MSIE.Document.Write "<B>Guten " 
61.
	 
62.
	If Hour(Now) < 12 Then 
63.
		MSIE.Document.Write "Morgen" 
64.
	ElseIf Hour(Now) < 17 Then 
65.
		MSIE.Document.Write "Tag" 
66.
	Else 
67.
		MSIE.Document.Write "Abend" 
68.
	End If 
69.
	 
70.
	MSIE.Document.Write " " & UCase(USERNAME) & " und willkommen in " & UCase(USERDOMAIN) & "!</B>" 
71.
 
72.
	MSIE.Document.Write "<p>Ihr Logon-Server ist " & UCase(LOGONSERVER) & ".</p>" 
73.
 
74.
	If Err.Number <> 0 Then 
75.
		Err.Clear 
76.
	End If 
77.
End Sub 
78.
 
79.
' ********************************************** 
80.
' * Funktion:		Sub TimeSync 
81.
' * Beschreibung:	Synchronisiert die Systemzeit mit dem Timeserver 
82.
' * Parameter:		<keine> 
83.
' * Rückgabe:		<keine> 
84.
' ********************************************** 
85.
 
86.
' *** Synchronisation der Systemzeit *** 
87.
TimeSync() 
88.
 
89.
Sub TimeSync() 
90.
	'On Error Resume Next 
91.
	MSIE.Document.Write "<BR>- Synchronisation der Systemzeit..." 
92.
	WSHShell.Run "w32tm.exe /resync", 0 
93.
End Sub 
94.
MSIE.Document.Write "<b><font color=#00FF00>        erfolgreich</font></b>" 
95.
 
96.
' ********************************************** 
97.
' * Funktion:		Sub SetupMSIE 
98.
' * Beschreibung:	Bereitet das Internet-Explorer-Fenster für die  
99.
' *			Ausgabe während der Ausführung des Login-Scripts vor 
100.
' * Parameter:		<keine> 
101.
' * Rückgabe:		<keine> 
102.
' ********************************************** 
103.
 
104.
Sub SetupMSIE() 
105.
	On Error Resume Next 
106.
	MSIE.Navigate "About:Blank" 
107.
	MSIE.ToolBar = False 
108.
	MSIE.StatusBar = False 
109.
	MSIE.Resizable = False 
110.
	MSIE.Center = True 
111.
	 
112.
	Do 
113.
	Loop While MSIE.Busy 
114.
 
115.
	SWidth = MSIE.Document.ParentWindow.Screen.AvailWidth 
116.
	SHeight = MSIE.Document.ParentWindow.Screen.AvailHeight 
117.
	MSIE.Width = SWidth * 0.5 
118.
	MSIE.Height = SHeight * 0.8 
119.
	MSIE.Left = (SWidth - MSIE.Width)/2 
120.
	MSIE.Top = (SHeight - MSIE.Height)/2 
121.
 
122.
	MSIE.Visible = True 
123.
 
124.
 
125.
	 
126.
	If Err.Number <> 0 Then 
127.
		Err.Clear 
128.
	End If 
129.
End Sub 
130.
 
131.
' *** Fehlerbehandlung *** 
132.
MSIE.Document.Write "<HR>" 
133.
If NErr = 0 Then 
134.
	' *** Keine Fehler aufgetreten *** 
135.
	MSIE.Document.Write "Die Domain-Initialsierung für " & USERNAME & " wurde <b>erfolgreich</b> abgeschlossen. <br> <b>Unternehmen</b> wünscht einen schönen Tag." 
136.
Else 
137.
	MSIE.Document.Write "<font color=#FF0000>Während der Domain-Initialisierung sind <b>Fehler</b> aufgetretten. Bitte informieren Sie Ihren Administrator.</font>" 
138.
End If 
139.
 
140.
MSIE.Document.Write "</p></FONT></BODY></HTML>" 
141.
WScript.Sleep(50000) 	' *** Warten, damit Ausgabe gelesen werden kann *** 
142.
MSIE.Quit		' *** Fenster zu! *** 
143.
WScript.Quit		' *** Ende des Domain-Initialisierungs-Scripts ***
Mitglied: Logan000
03.06.2009 um 16:19 Uhr
Moin Moin

Als Ausgabe öffnet sich eine IE Seite wo angezeigt wird, was erfolgreich ausgeführt wurde.
Ich möchte jetzt, dass man das IE-Fenster nicht schließen kann. Es soll nach der angegeben Zeit selbst schließen.
Es sollte das "X" in der Leiste oben weg sein. Wie kann man das realisieren.
Das Problem hatte ich auch mal konnte es aber nicht wirklich lösen.
Mein Workaround war Mir eine Ausgabe funktion für die IE meldungen zu Schreiben und den gesammten HTML Text zu merken. Ist diese Ist diese Augabe Funtion auf einen Fehler gelaufen (weil der IE geschlossen wurde) wir der IE neu geöffnet und der gesammte text wieder angezeigt.

Sah etwa so aus (Ich habe deine Funktionen verwendet daher nicht getestet):
01.
function ShowHTML(szText) 
02.
	on error resume next	 
03.
	Dim szHTML 
04.
       szHTML = szHTML & szText 
05.
       MSIE.Document.Write szText  
06.
	if err.number <>0 then 
07.
		'msgbox err.number 
08.
		err.clear 
09.
		call SetupMSIE() 
10.
		MSIE.Document.Write = szHTML 
11.
	end if 
12.
end function
Gruß L.
Bitte warten ..
Mitglied: 78632
03.06.2009 um 16:24 Uhr
Zitat von retz12:

Es sollte das "X" in der Leiste oben weg sein. Wie kann man das realisieren.

Gar nicht, es sei denn, du sperrst die Tastatur. Ob das X angezeigt wird oder nicht, ist völlig egal. Den IE kann man auch anders schließen,
z. B. mit STRG-W oder ALT-F4
Bitte warten ..
Mitglied: 76109
03.06.2009 um 18:41 Uhr
Hallo retz12!

Ich würde die Ausgabe anstatt über den IE über Shell.Run machen.

Diese VB-Script schreibt als Beispiel farbigen Text in eine *HTA-Datei und zeigt diese am Ende an:
01.
'Eine riesige HTML-Farbtabelle mit Namen, Hex-Werte und mit RGB-Werte sind hier zu sehen: 'http://www.farb-tabelle.de/de/farbtabelle.htm 
02.
 
03.
Option Explicit 
04.
 
05.
Const WindowSize = "480, 320" 
06.
 
07.
Const BodyBG = "#FFFFFF" 
08.
 
09.
Const Red1 = "#FF0000"	'Farbwert als Hex 
10.
Const Red2 = "red"		'Farbwert als Name 
11.
Const Red3 = "rgb(255,0,0)"	'Farbwert als RGB(R,G,B) Byte-Dezimal 0-255 
12.
 
13.
Const DarkBlue = "#00008B" 
14.
Const DarkGreen = "#006400" 
15.
Const Dar###ge = "#EE7600" 
16.
Const DarkMagenta = "#8B008B" 
17.
 
18.
Dim Fso, HtaFile, HtaPath 
19.
 
20.
'Main Beg 
21.
 
22.
    Call OpenHtaFile 
23.
     
24.
    Call WriteHtaFile("Textausgabe", Red1) 
25.
    Call WriteHtaFile("Textausgabe", Red2) 
26.
    Call WriteHtaFile("Textausgabe", Red3) 
27.
    Call WriteHtaFile("Textausgabe", DarkBlue) 
28.
    Call WriteHtaFile("Textausgabe", DarkGreen) 
29.
    Call WriteHtaFile("Textausgabe", Dar###ge) 
30.
    Call WriteHtaFile("Textausgabe", DarkMagenta) 
31.
 
32.
    Call ShowHtaFile	 
33.
  
34.
    Wscript.Quit 
35.
 
36.
'Main End 
37.
 
38.
Private Sub OpenHtaFile() 
39.
    Set Fso = CreateObject("Scripting.FileSystemObject") 
40.
    HtaPath = Fso.GetParentFolderName(WScript.ScriptFullName) & "\Ausgabe.Hta" 
41.
    Set HtaFile = Fso.CreateTextFile(HtaPath) 
42.
 
43.
    With HtaFile 
44.
        .WriteLine "<html>" 
45.
        .WriteLine "<head>" 
46.
        .WriteLine "<title>Textausgabe</title>" 
47.
        .WriteLine "<head>" 
48.
        .WriteLine "<style type='text/css'>" 
49.
        .WriteLine "body { font-family:Arial, Tahoma; font-size:14px; background-color:" & BodyBG & "; }" 
50.
        .WriteLine "</style></head>"  
51.
        .WriteLine "<body onLoad='window.resizeTo(" & WindowSize & ")'>" 
52.
    End With 
53.
End Sub 
54.
 
55.
Private Sub WriteHtaFile(ByRef Text, ByRef Color) 
56.
    HtaFile.WriteLine "<font color='" & Color & "'>" & Text & "</font><br>" 
57.
End Sub 
58.
 
59.
Private Sub ShowHtaFile() 
60.
    Dim Shell 
61.
     
62.
    With HtaFile 
63.
        .WriteLine "</body>" 
64.
        .WriteLine "</html>" 
65.
        .Close 
66.
    End With 
67.
     
68.
    Set Shell = CreateObject("Wscript.Shell") 
69.
 
70.
    Shell.Run HtaPath, 1, True 
71.
 
72.
    Fso.DeleteFile HtaPath 
73.
End Sub
Alternativ das gleiche als *.HTA-Script inklusive VB-Script:
01.
<html> 
02.
<head> 
03.
<title>Textausgabe</title> 
04.
<HTA:APPLICATION  
05.
     ID="objTextAusgabe" 
06.
     APPLICATIONNAME="Text" 
07.
     SCROLL="auto" 
08.
     SINGLEINSTANCE="yes"> 
09.
</head> 
10.
<style type='text/css'> 
11.
     body { font-family:Arial, Tahoma; font-size:14px; background-color:#F0F0F0; } 
12.
</style> 
13.
</head>  
14.
        
15.
<SCRIPT LANGUAGE="VBScript"> 
16.
 
17.
    Const WindowWidth = 480 
18.
    Const WindowHeight = 320 
19.
 
20.
    Const Red = "#FF0000" 
21.
    Const DarkBlue = "#00008B" 
22.
    Const DarkGreen = "#006400" 
23.
    Const Dar###ge = "#EE7600" 
24.
    Const DarkMagenta = "#8B008B" 
25.
 
26.
    Sub Window_OnLoad 	'Main Beg 
27.
 
28.
        window.resizeTo WindowWidth, WindowHeight 
29.
 
30.
    	Call WriteBodyText("Textausgabe", Red) 
31.
    	Call WriteBodyText("Textausgabe", DarkBlue) 
32.
    	Call WriteBodyText("Textausgabe", DarkGreen) 
33.
    	Call WriteBodyText("Textausgabe", Dar###ge) 
34.
    	Call WriteBodyText("Textausgabe", DarkMagenta) 
35.
	 
36.
    End Sub		'Main End 
37.
 
38.
    Sub WriteBodyText(Byref Text, Byref Color) 
39.
    	TextList.InnerHTML = TextList.InnerHTML & "<font color='" & Color & "'>" & Text & "</font><br>" 
40.
    End Sub 
41.
 
42.
</SCRIPT> 
43.
 
44.
<body><span id = "TextList"></span></body> 
45.
</html>
Vielleicht hilft Dir das ja weiter.

Gruß Dieter
Bitte warten ..
Neuester Wissensbeitrag
Microsoft

Lizenzwiederverkauf und seine Tücken

(5)

Erfahrungsbericht von DerWoWusste zum Thema Microsoft ...

Ähnliche Inhalte
Windows Server
Windows 10 und Windows SSB 2008 - Login Script greift nicht (21)

Frage von heisenberg4 zum Thema Windows Server ...

VB for Applications
VBS Script zum versenden mehrerer Verknüpfungen zu Dateien per Lotus Notes

Frage von Sentinel87 zum Thema VB for Applications ...

Batch & Shell
gelöst VBS Script in eine Textdatei ausgeben (VBS mit Batch zusammenführen) (5)

Frage von Luuke257 zum Thema Batch & Shell ...

VB for Applications
gelöst VBS Script kann Prgramm nicht starten (15)

Frage von C.Boerner zum Thema VB for Applications ...

Heiß diskutierte Inhalte
Windows Netzwerk
Windows 10 RDP geht nicht (16)

Frage von Fiasko zum Thema Windows Netzwerk ...

Windows Server
Outlook Verbindungsversuch mit Exchange (15)

Frage von xbast1x zum Thema Windows Server ...

Microsoft Office
Keine Updates für Office 2016 (13)

Frage von Motte990 zum Thema Microsoft Office ...