Top-Themen

Aktuelle Themen (A bis Z)

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

gelöst Wie VBScript in HTML Rückmeldung anzeigen - Druckerinstallation?

Mitglied: Wolf6660

Wolf6660 (Level 1) - Jetzt verbinden

11.04.2018 um 12:10 Uhr, 1011 Aufrufe, 2 Kommentare

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:

01.
<head>
02.
<title>Druckerinstallation</title>
03.
<HTA:APPLICATION
04.
     APPLICATIONNAME="Druckerinstallation"
05.
     SCROLL="no"
06.
     SINGLEINSTANCE="yes"
07.
     WINDOWSTATE="normal">
08.
</head>
09.

10.
<script language="vbscript">
11.

12.
	Window.resizeTo 600, 400
13.

14.

15.
    Sub Printer1
16.
           Set objNetwork = CreateObject("WScript.Network")
17.
           objNetwork.AddWindowsPrinterConnection "\\IP-Server\Drucker1"
18.
           DataArea.InnerHTML = "Drucker im Raum 154 wurde erfolgreich installiert"
19.
    End Sub
20.
	 Sub Printer2
21.
           Set objNetwork = CreateObject("WScript.Network")
22.
           objNetwork.AddWindowsPrinterConnection "\\IP-Server\Drucker2"
23.
           DataArea.InnerHTML = "Drucker im Raum 157 wurde erfolgreich installiert"
24.
    End Sub
25.
	 Sub Printer3
26.
           Set objNetwork = CreateObject("WScript.Network")
27.
           objNetwork.AddWindowsPrinterConnection "\\IP-Server\Drucker3"
28.
           DataArea.InnerHTML = "Drucker im Raum 166 wurde erfolgreich installiert"
29.
	End Sub
30.
	 Sub Printer4
31.
           Set objNetwork = CreateObject("WScript.Network")
32.
           objNetwork.AddWindowsPrinterConnection "\\IP-Server\Drucker4"
33.
           DataArea.InnerHTML = "Drucker im Raum 166 wurde erfolgreich installiert"
34.
    End Sub
35.

36.

37.
</script>
38.

39.

40.
<body bgcolor=white>
41.
<h1>Druckerinstallation<br></br></h1>
42.
<p><u>W&aumlhle einen Drucker aus:</u></p>
43.

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

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

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

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

64.

65.
<span id = "DataArea"></span>
66.
</table>
67.
<br>
68.
</body>
Mitglied: emeriks
LÖSUNG 11.04.2018, aktualisiert um 12:20 Uhr
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?
01.
msgbox "Drucker im Raum 166 wurde erfolgreich installiert" 

E.

Edit:
Oder DataArea.Write "...." ?
Bitte warten ..
Mitglied: Wolf6660
11.04.2018, aktualisiert um 12:41 Uhr
Danke der zweite Ansatz finde ich ideal für meinen zweck. DANKE
Bitte warten ..
Ähnliche Inhalte
VB for Applications

Wie mit VBScript in HTML - Druckerinstallation aber zuerst Drucker löschen?

Frage von Wolf6660VB for Applications9 Kommentare

Hi, ich hatte wor einiger zeit ein Script entworfen mit dem die druckerinstallation per HTA in der firma gelöst ...

Windows 7

VBScript - HTML Probleme mit Schriftgröße

gelöst Frage von MedicalAdWindows 75 Kommentare

Servus Leute, ich brauche mal eure Hilfe. Das VBScript was unten aufzufinden ist funktioniert soweit (das ist ein Coundtown ...

VB for Applications

HTML, VBScript: Bei Drop-Down-Auswahl bestimmte Radio-Buttons einblenden

gelöst Frage von YauhunVB for Applications3 Kommentare

Hallo zusammen. In einer HTA-Datei verwende ich HTML und VBScript. Jetzt geht es konkret um ein Drop-Down-Menü und zwei ...

Windows Netzwerk

Druckerinstallation im LAN

Frage von markaurelWindows Netzwerk19 Kommentare

Guten Abend! Welche Art der (Netzwerk-)Druckerinstallation ist eurer Meinung nach in einem (kleinen) LAN mit ca. 30 Clients zu ...

Neue Wissensbeiträge
Sicherheits-Tools

TrendMicro Worry-Free Business Security 10.0 SP1 - Jetzt in Deutsch verfügbar! (Windows 10 1903 Support)

Tipp von TrinXx vor 1 TagSicherheits-Tools1 Kommentar

Moin! Nach wochenlangem Warten wird Trend Micro das SP1 für WFBS 10 voraussichtlich am 26.08.19 veröffentlichen. Ich habe das ...

Hyper-V
Setup VM W2016 startet nicht in Hyper-V 2016
Erfahrungsbericht von keine-ahnung vor 2 TagenHyper-V4 Kommentare

Moin, sitze gerade über meinem neuen Server und versuche, die VM auf den Host zu prügeln. Jetzt wollte ich ...

Server-Hardware

HPE Proliant ML350P Gen8 Probleme mit Zugriff auf Raid-Volumes

Erfahrungsbericht von goscho vor 2 TagenServer-Hardware1 Kommentar

Hallo Leute, das Problemgerät: HPE ML350P G8 Windows Server 2012R2 HyperV-Host 8 x 300 GB 10K SAS HDD (1 ...

Humor (lol)

"Linux und 5 Gründe Warum man kein Windows verwenden sollte sondern Ubuntu Linux"

Information von Snowbird vor 4 TagenHumor (lol)9 Kommentare

Gerade gefunden. Ja, ist etwas älter, aber irgendwie lustig?

Heiß diskutierte Inhalte
Backup
Veeam Backup Endpoint Free sichert nicht alle Dateien in AppData
gelöst Frage von speedy26gonzalesBackup12 Kommentare

Hallo, ich sollte ein paar Dateien in C:\Users\xyc\AppData\Local\Microsoft\Outlook wieder herstellen. Auf dem Benutzerkonto ist in Outlook ein IMAP Konto ...

Server
Ein Server ins Haus stellen. Was brauche ich dafür?
Frage von JoschiTomServer11 Kommentare

Hallo Community, ich spiele mit dem Gedanken eine Server mir zu holen. Was brauche ich dafür? Und wie sind ...

Windows Server
Ist es möglich, eine deutsche W2016 Installation mit einer UK-Lizenz zu aktivieren?
gelöst Frage von keine-ahnungWindows Server10 Kommentare

Moin at all, ist ja noch Freitag. Ich habe hier noch zwei UK OEM W2016 Standard Pakete rumfliegen Muss ...

Windows 10
Windows 10 Backup auf Netzwerk Storage
Frage von Futschel2608Windows 1010 Kommentare

Hallo geehrte Mitstreiter Innen, Wir wollen in unserer Windows 10 Domäne den Einzelnen Usern ermöglichen ihre Desktop PC's zusichern. ...