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
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
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 117217
Url: https://administrator.de/contentid/117217
Ausgedruckt am: 23.11.2024 um 14:11 Uhr
4 Kommentare
Neuester Kommentar
Das liegt sicher daran, dass du weder ein Betriebssystem noch einen Browser hast.
Vielleicht aber auch daran, dass ein
http://msdn.microsoft.com/en-us/library/e1wf9e7w(VS.85).aspx
Grüße
Max
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