Hallo Zusammen,
ich habe folgendes Problem und hoffe, dass mir hier jemand helfen kann. Ich bin sehr dankbar für jeden Tipp.
1. Da es in der Eingabeaufforderung von Windows kein Program zum herunterladen von Dateien aus dem Internet gibt, habe ich folgendes Script zusammen gepuzzelt.
2. Das Script funktioniert einwandfrei mit folgendem Aufruf in einer Eingabeaufforderung (ohne Adminrechte):
cscript wget.vbs leo.org
Die HTML-Datei von Leo.org wird heruntergeladen. Wenn man die URL einer anderen Datei angibt, wird diese mit diesem Script heruntergeladen.
Ausgabe:
3. Wenn ich jedoch mit Notepadd++ eine Batch-Datei anlege und den Aufrufs des Scripts von dort starte, funktioniert es nicht. Es erscheint nur folgende Ausgabe der Eingabeaufforderung. Die zu herunterladene Datei ist nicht vorhanden.
Folgende Einstellungen habe ich mit dem Script bereits probiert:
A. Administratorrechte
B. cmd.exe /C CScript //H:CScript
C. cscript //H:cscript
D. cscript //H:cscript wget.vbs leo.org
E. Verzeichniswechsel mit C: ... cd temp
F. cscript C:\temp\wget.vbs leo.org
Hat noch jemand eine Idee, was ich wo einstellen muss, damit ich VB-Scripte in einer Batchdatei ausführen kann?
Vielen Dank im Voraus!
ich habe folgendes Problem und hoffe, dass mir hier jemand helfen kann. Ich bin sehr dankbar für jeden Tipp.
1. Da es in der Eingabeaufforderung von Windows kein Program zum herunterladen von Dateien aus dem Internet gibt, habe ich folgendes Script zusammen gepuzzelt.
Visual Basic-Quellcode
- ' Deklariere und definire Variablen
- Set objArgs = Wscript.Arguments
- Dim arrayURL, strFileName
- ' Downloadlink ergibt sich aus dem ersten Parameter
- strFileURL = objArgs(0)
- ' URL wird zerteilt und in ein Array geschrieben
- arrayURL = Split(strFileURL, "/", -1, 1)
- ' Letzter Arrayplatz wird als Dateiname festgelegt
- strFileName = arrayURL(UBound(arrayURL))
- Set objXMLHTTP = CreateObject("MSXML2.XMLHTTP")
- objXMLHTTP.open "GET", strFileURL, false
- objXMLHTTP.send()
- If objXMLHTTP.Status = 200 Then
- Set objADOStream = CreateObject("ADODB.Stream")
- objADOStream.Open
- objADOStream.Type = 1 'adTypeBinary
- ' Downloadpfad wird festgelegt
- strHDLocation = "C:\temp\" + strFileName
- objADOStream.Write objXMLHTTP.ResponseBody
- objADOStream.Position = 0 'Set the stream position to the start
- Set objFSO = Createobject("Scripting.FileSystemObject")
- If objFSO.Fileexists(strHDLocation) Then objFSO.DeleteFile strHDLocation
- Set objFSO = Nothing
- ' Speichere Downloadstream im definierten Verzeichnis
- objADOStream.SaveToFile strHDLocation
- objADOStream.Close
- Set objADOStream = Nothing
- End if
- Set objXMLHTTP = Nothing
2. Das Script funktioniert einwandfrei mit folgendem Aufruf in einer Eingabeaufforderung (ohne Adminrechte):
cscript wget.vbs leo.org
Die HTML-Datei von Leo.org wird heruntergeladen. Wenn man die URL einer anderen Datei angibt, wird diese mit diesem Script heruntergeladen.
Ausgabe:
3. Wenn ich jedoch mit Notepadd++ eine Batch-Datei anlege und den Aufrufs des Scripts von dort starte, funktioniert es nicht. Es erscheint nur folgende Ausgabe der Eingabeaufforderung. Die zu herunterladene Datei ist nicht vorhanden.
Folgende Einstellungen habe ich mit dem Script bereits probiert:
A. Administratorrechte
B. cmd.exe /C CScript //H:CScript
C. cscript //H:cscript
D. cscript //H:cscript wget.vbs leo.org
E. Verzeichniswechsel mit C: ... cd temp
F. cscript C:\temp\wget.vbs leo.org
Hat noch jemand eine Idee, was ich wo einstellen muss, damit ich VB-Scripte in einer Batchdatei ausführen kann?
Vielen Dank im Voraus!