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, 8101 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 ...

Windows 10

Windows 10 login fenster weg

gelöst Frage von brammerWindows 108 Kommentare

Hallo, Ich habe hier den Laptop einer Bekannten. Ein HP Laptop, ca 1,5 Jahre alt. Seit einem Update gestern ...

Batch & Shell

Vbs in exist - wenn ein Fenster existiert dann

Frage von pdiddoBatch & Shell1 Kommentar

Hi Leute Ich versuch auf vbs zu realisieren, sobald ein Fenster (Programm was zuvor gestartet wird) existiert, dass eine ...

Neue Wissensbeiträge
Humor (lol)
(Part num your Hacked phone. +XX XXXXXX5200)
Erfahrungsbericht von Henere vor 1 TagHumor (lol)4 Kommentare

Mein Handy hat aber ne ganz andere Endnummer. Muss ich mir jetzt Sorgen machen ? :-) Vielleicht betrifft es ...

Exchange Server

Letztes Update für Exchange 2016 CU9 war in gewisser Weise destruktiv

Erfahrungsbericht von DerWoWusste vor 1 TagExchange Server6 Kommentare

Kurzer Erfahrungsbericht zu Exchange2016-KB4340731-x64 Der Exchangeserver hat wie gewöhnlich versucht, es in der Nacht automatisch zu installieren - abgesehen ...

Erkennung und -Abwehr

Neue Sicherheitslücke Foreshadow (L1TF) gefährdet fast alle Intel-Prozessoren

Information von Frank vor 2 TagenErkennung und -Abwehr3 Kommentare

Eine neue Sicherheitslücke, genannt Foreshadow (alias L1TF) wurde auf der Usenix Security 18 von einem Team internationaler Experten veröffentlicht. ...

Vmware
VMware Updates gegen L1 Lücke
Information von sabines vor 3 TagenVmware

Für die Vmware Produkte vCenter Server, ESXi, Workstation und Fusion stehe Updates bereit um die L1 Lücke zu schließen. ...

Heiß diskutierte Inhalte
Netzwerke
Netzwerk-Architektur mit VLANs
Frage von niLuxxNetzwerke14 Kommentare

Liebe Community, Ich hätte eine kurze Frage an euch. Ich werde in Kürze das Netzwerk unserer (sehr) kleinen Firma ...

Webbrowser
Neuer Tab Firefox
gelöst Frage von BleifussWebbrowser12 Kommentare

Hallo, via Strg + T öffnet man ja einen neuen Tab. Gibt es die Möglichkeit, dass der Tab sich ...

Windows Server
2 DCs Hierarchie umkehren
Frage von TuberPlaysWindows Server11 Kommentare

Hallo, wir hatten bisher 1 Domain Controller in einer VM. Nun kam noch ein zusätzlicher Domain Controller auf einem ...

Windows Server
WSUS nach Upgrade - kein Start mehr
gelöst Frage von Ghost108Windows Server9 Kommentare

Hallo zusammen, habe einen Windows Server 2012 welcher als WSUS dienst. Jetzt wurde ein Upgrade auf Server 2016 durchgeführt ...