wolf6660
Goto Top

Wie VBScript in HTML Rückmeldung anzeigen - Druckerinstallation?

Hi,

ich habe in der Firma ein Script entworfen mit dem die Mitarbeiter die kompletten Netzwerkdrucker sehen und verbinden können.

Nachdem ich dies allerdings etwas in Form gebracht habe bekomme ich keine Rückmeldung über die erfolgreiche installation ):

Wahrscheinlich leigt es an den Tabellen. Wie kann ich die Meldung am Ende anzeigen lassen?

Hier ein Auszug aus meinem Script:

<head>
<title>Druckerinstallation</title>
<HTA:APPLICATION
     APPLICATIONNAME="Druckerinstallation"  
     SCROLL="no"  
     SINGLEINSTANCE="yes"  
     WINDOWSTATE="normal">  
</head>

<script language="vbscript">  

	Window.resizeTo 600, 400


    Sub Printer1
           Set objNetwork = CreateObject("WScript.Network")  
           objNetwork.AddWindowsPrinterConnection "\\IP-Server\Drucker1"  
           DataArea.InnerHTML = "Drucker im Raum 154 wurde erfolgreich installiert"  
    End Sub
	 Sub Printer2
           Set objNetwork = CreateObject("WScript.Network")  
           objNetwork.AddWindowsPrinterConnection "\\IP-Server\Drucker2"  
           DataArea.InnerHTML = "Drucker im Raum 157 wurde erfolgreich installiert"  
    End Sub
	 Sub Printer3
           Set objNetwork = CreateObject("WScript.Network")  
           objNetwork.AddWindowsPrinterConnection "\\IP-Server\Drucker3"  
           DataArea.InnerHTML = "Drucker im Raum 166 wurde erfolgreich installiert"  
	End Sub
	 Sub Printer4
           Set objNetwork = CreateObject("WScript.Network")  
           objNetwork.AddWindowsPrinterConnection "\\IP-Server\Drucker4"  
           DataArea.InnerHTML = "Drucker im Raum 166 wurde erfolgreich installiert"  
    End Sub


</script>


<body bgcolor=white>
<h1>Druckerinstallation<br></br></h1>
<p><u>W&aumlhle einen Drucker aus:</u></p>

<table bgcolor=white height=0 width=100%><tr><th align=left>
<input type="button" style="width:220px;" value="Drucker1" name="run_button"  onClick="Printer1"><p>  
<p>
</th>

<th align=left>
<input type="button" style="width:220px;" value="Drucker2" name="run_button"  onClick="Printer2"><p>  
<p>
</th></tr>

<tr><th align=left>
<input type="button" style="width:220px;" value="Drucker3" name="run_button"  onClick="Printer3"><p>  
<p>
</th>

<th align=left>
<input type="button" style="width:220px;" value="Drucker4" name="run_button"  onClick="Printer4"><p>  
<p>
</th></tr>


<span id = "DataArea"></span>  
</table>
<br>
</body>

Content-ID: 370792

Url: https://administrator.de/contentid/370792

Ausgedruckt am: 19.12.2024 um 03:12 Uhr

emeriks
Lösung emeriks 11.04.2018 aktualisiert um 12:20:17 Uhr
Goto Top
Hi,
nur so ins Blaue:
DataArea.InnerHTML = "Drucker im Raum 166 wurde erfolgreich installiert"
"Drucker im Raum 166 wurde erfolgreich installiert" ist kein HTML. Deshalb erster Ansatz: Nimm InnerText statt InnerHTML.

Zweiter Ansatz: Messagebox?
msgbox "Drucker im Raum 166 wurde erfolgreich installiert"   


E.

Edit:
Oder DataArea.Write "...." ?
Wolf6660
Wolf6660 11.04.2018 aktualisiert um 12:41:04 Uhr
Goto Top
Danke der zweite Ansatz finde ich ideal für meinen zweck. DANKE