VBS - User und Passwort übermitteln klappt nicht

Ich habe unten stehendes Script, jedoch geht es eigentlich nur um die Zeile "Source". Hier möchte ich ein Bild aus einem passwortgeschützten Bereich lokal speichern. Da das Script lokal läuft, ist es egal wenn das Passwort ClearType ist. Warum funktioniert es so nicht?

Option Explicit

Dim fso, Source, Target, Frage, Info

Set fso = WScript.CreateObject("Scripting.FileSystemObject")
Source = "http://admin:password@192.168.1.4/cgi-bin/video.jpg"
Target = "C:\test\"

Frage = MsgBox("Bild kopieren?", vbQuestion + vbYesNo, "Kopieren starten?")

If Frage= vbYes Then
Call Yes
else
Call No
End if

Sub Yes
Do
Call Copy
loop
End Sub

Sub Copy
'Info = MsgBox("Daten werden kopiert", vbInformation, "Info")
fso.CopyFile Source, Target
wscript.sleep 60000
End Sub

Sub No
Wscript.Quit
End Sub

Please also mark the comments that contributed to the solution of the article

Content-Key: 117217

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

Printed on: April 19, 2024 at 23:04 o'clock

4 Comments

Latest comment

Zitat von @Fixu:

Warum funktioniert es so nicht?

Das liegt sicher daran, dass du weder ein Betriebssystem noch einen Browser hast.

Vielleicht aber auch daran, dass ein Scripting.FileSystemObject - wie der Name schon sagt - nichts mit URLs zu tun haben will:

http://msdn.microsoft.com/en-us/library/e1wf9e7w(VS.85).aspx

Grüße

Max