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 PopUp-Fenster mit Login per VBS bedienen

Mitglied: Mark-O

Mark-O (Level 1) - Jetzt verbinden

05.12.2007, aktualisiert 06.12.2007, 8151 Aufrufe, 1 Kommentar

Hallo,

mit nachfolgendem Script lese ich Werte meines Routers übers HTML-Webinterface per IE aus, was grundsätzlich schon gut funktioniert:

url = "http://192.168.199.199/Test.htm"

dat = int_dat(url)
For i = 0 To Ubound(dat)
If 0 < InStr(dat(i), "Disconnect right") Then
m = len("</TD>") : n = InStr(dat(i+9), "</TR>")
MyE = mid(dat(i+9), m, n-m)
WScript.Echo "Wert: " & MyE
Exit For
End If
Next




Function int_dat(ByVal url)
Set IE = WScript.CreateObject("InternetExplorer.Application")
IE.Visible = 1
On Error Resume Next
IE.Navigate url
do while IE.ReadyState <> 4
loop
Set IEDoc = IE.Document
int_dat = Split(IEDoc.body.innerHTML, vbLf)
Set IEDoc = nothing
End Function
Mein Problem ist, dass nach dem Laden der Browserseite ein PopUp-Fenster erscheint, in welchem ich Login und Passwort eingeben muss. Diese Eingabe würde ich gerne in das Script einbauen, aber ich habe keinen blassen Schimmer....
Obiges Scpript funtkioniert bestens ganz autark, wenn ich ein Mal das Login manuell vollzogen habe das Script danach (bei mind. einer offenen IE-Insanz) ausführe. Dann wird das Passwort nicht mehr abgefragt. Diese Eingabe gilt es zu umgehen.

Die Eingabe erfolgt also nicht in dem gestarteten Browserfenster (á la GMX oder Administrator.de), sondern in einer Input-Box oder so. Router ist ein D-Link DI-524.
Weiß jemand, wie man das per VBS hinbekommen würde?


Danke und Gruß
Mark-O
Mitglied: Mark-O
06.12.2007 um 10:59 Uhr
Hallo,

habe es inzwischen rausbekommen, für die, die es interessiert:

Das PopUp-Fenster hat den Titel "Connect to 192.168.299.199", das Fenster wird aktiviert und die Werte per sendkeys reingeschoben.
Der untere Teil des Scripts muss um vier Zeilen ergänzt werden ("user" ist hier Login und Passwort), dann funktioniert das ganze:

Function int_dat(ByVal url)
Set IE = WScript.CreateObject("InternetExplorer.Application")
IE.Visible = 1
On Error Resume Next
IE.Navigate url


set ws = CreateObject("Wscript.shell")
ws.AppActivate "Connect to 192.168.199.199"
Wscript.Sleep 800
ws.sendkeys("user{Tab}user{ENTER}")


do while IE.ReadyState <> 4
loop
Set IEDoc = IE.Document
int_dat = Split(IEDoc.body.innerHTML, vbLf)
Set IEDoc = nothing
End Function
Gruß
Mark
Bitte warten ..
Ähnliche Inhalte
VB for Applications
Popup Fenster erstellen
gelöst Frage von TripleFloVB for Applications19 Kommentare

Hallo zusammen, Ich hätte da mal eine Frage. Ich bin kein Spezialist in Sachen programmieren und würde dennoch gerne ...

Batch & Shell

VBS - Shutdown Datei startet über den Aufgabenplaner aber Popup-Fenster taucht nicht auf

gelöst Frage von GuckstDuWegBatch & Shell4 Kommentare

Hallo zusammen, ich möchte das bestimmte Windows 7 64Bit Rechner automatisch Abends um 20:00 Uhr automatisch herunterfahren. Der Mitarbeiter ...

Outlook & Mail

Outlook 2016 - Windows Sicherheit Popup

Frage von swisstomOutlook & Mail5 Kommentare

Guten Morgen Folgendes Problem: Ich habe bei uns in der Domäne (mit Exchange 2010) auf 3 Clients (Windows 10 ...

Windows 8

Windows Update Popup erscheinen lassen

gelöst Frage von MarabuntaWindows 84 Kommentare

Hallo, Windows8 x64 Nach einem manuellem Update, ist es möglich das Windows Update Popup für den User anzeigen zu ...

Neue Wissensbeiträge
Internet

Kommentar: Bundesregierung erwägt Ausschluss von Huawei im 5G-Netz - Unsere Presse wird immer sensationsgieriger

Information von Frank vor 1 TagInternet5 Kommentare

Hier mal wieder ein schönes Beispiel für fehlgeleiteten Journalismus und Politik zugleich. Da werden aus Gerüchten plötzlich Fakten, da ...

Windows 10

Netzwerk-Bug in allen Windows 10-Versionen durch Januar 2019-Updates

Information von kgborn vor 1 TagWindows 101 Kommentar

Nur ein kurzer Hinweis für Admins, die Windows 10-Clients im Portfolio haben. Mit den Updates vom 8. Januar 2019 ...

Windows 10

Windows 10 V1809: Rollout ist gestartet - kommt per Windows Update

Information von kgborn vor 2 TagenWindows 102 Kommentare

Eine kurze Information für die Admins, die Windows 10 im Programm haben. Microsoft hat die letzte Baustelle (die Inkompatibilität ...

Sicherheit

Heise Beitrag Passwort-Sammlung mit 773 Millionen Online-Konten im Netz aufgetaucht

Information von Penny.Cilin vor 2 TagenSicherheit6 Kommentare

Auf Heise Online ist folgender Beitrag veröffentlicht worden: Heise Beitrag passwörter geleakt Ich bin mir jetzt nicht ganz sicher, ...

Heiß diskutierte Inhalte
TK-Netze & Geräte
TAPI auf einem Win2016Server installieren und einrichten
Frage von wstabelTK-Netze & Geräte30 Kommentare

Hallo liebe Admins, ich habe folgende Situation: 1 Windows Server 2016 Standard als DC 1 SNOM 710 IP-Telefon 1 ...

Batch & Shell
Mit findstr batch doppelte zeilen einer txt löschen
Frage von Burningx2Batch & Shell25 Kommentare

Hi Vor einer weile habe ich im netzt einen windows shell befehl gefunden mit welchem man über die konsole ...

Verschlüsselung & Zertifikate
Netzwerkfreigabe Verschlüsselung
Frage von grill-itVerschlüsselung & Zertifikate20 Kommentare

Moin zusammen, sicher nutzen hier die ein oder anderen ein Produkt zur Verschlüsselung von Netzwerkfreigaben/-laufwerken auf denen hochsensible Daten ...

Microsoft
Übertragung von MS Volumenlizenzen
Frage von SherlockineMicrosoft20 Kommentare

Ich bin Angestellte in einer kleinen 10-köpfigen IT-Firma, die Netzwerklösungen, Telefonielösungen und Ähnliches anbietet. Im Sommer hatten wir einen ...