Geht das mit einer Batch-Datei?

[jungleblizz]

Hallo! Ich würde gerne wissen ob man folgendes per Batch-Datei machen kann (soll unter WinXP, Vista und Win7 funktionieren):

-Beim ausführen des Skripts soll der User einen kurzen Text eingeben.
-Dieser Text wird in einer Textdatei gespeichert (Dateiname ist das aktuelle Datum und die Uhrzeit, Bsp. 2010-06-23-19-56.txt)
-Die Textdatei wird anschliessend auf einen FTP hochgeladen und von der lokalen Festplatte gelöscht.

Geht das oder verlange ich zuviel? Habt ihr irgendwelche Tips, wo ich mir Teile des Codes abkucken kann? Danke

[jungleblizz]

Hallo! Ich habe mir eine funktionierende Zwischenlösung mit VBScript zusammengebastelt (Quellen: Dieser Forum-Thread und diese externe Quelle).

Soweit so gut!

Damit fehtl nur noch der upload auf einen FTP. Ich habe bislang für VBScript nur Lösungen finden können, bei denen man noch etwas externes herunterladen bzw installieren muss. Aber das kommt leider nicht in Frage. Das Skript soll am Ende bei einigen Bekannten auf dem Desktop liegen und benutzt werden, ohne dass diese etwas installieren müssen..

Jemand einen Idee mit dem FTP-Problem???


Hier meinen zusammengebastelte Zwischenlösung:

DasSkript.vbs:

   datetoday = Now 
    strMonth  = Right("0" & Month(datetoday) ,2) 
    strDay    = Right("0" & Day(datetoday)   ,2) 
    strHour   = Right("0" & Hour(datetoday)  ,2) 
    strMinute = Right("0" & Minute(datetoday),2) 
    strSecond = Right("0" & Second(datetoday),2) 
    datetoday = YEAR(datetoday) & strMonth & strDay 
    timetoday = strHour & strMinute & strSecond 
    strFile   = datetoday & "_" & timetoday & ".txt"


Set fso = CreateObject("Scripting.FileSystemObject")
Set oFile = fso.OpenTextFile("C:\" & strFile,8,true)

nachricht = InputBox("Bitte hier Nachricht eingeben:")
oFile.WriteLine "Nachricht: " & nachricht

oFile.close

[VB-Coder]

sprich doch einfach die ftp.exe an, die ist ja bei jedem Windows dabei. Damit kannst du die Sachen auch Uploaden. Allerdings sollte dir bewusst sein, das egal ob per Batch, oder vbs, die FTP Daten (Login) unverschlüsselt im Script stehen. Das ganze eignet sich also nicht unbedingt zur Weitergabe. Oder du richtest einen extra FTP Account für das ganze ein (sofern möglich).

[jungleblizz]

Hallo! Ersteinmal Danke für den Sicherheitshinweis. Ich habe schon speziell hierfür einen extra FTP-Account eingerichtet, deshalb kann da diesbezüglich eigentlich nix schiefgehen.

Das mit der ftp.exe war mir natürlich nicht bekannt, deshalb gut zu wissen. Bis vorhin wusste ich auch noch nicht, dass es überhaupt sowas wie VBScript gibt... Ich muss mich jetzt erstmal durchs Internet kämpfen um rauszufinden wie ich diese ftp.exe per VBScript ansprechen kann. Gut zu wissen wonach man überhaupt suchen soll, hehe. Ich gebe dann Rückmeldung

[jungleblizz]

Es geht! Ich werd' bekloppt! Ich habe mir von anderer Stelle (hier und hier) noch ein paar Code-Schnipsel kopiert und in mein Skript "reingezimmert" und es funktioniert! Das Einzige was ich jetzt noch vermisse, ist eine Rückmeldung, dass die Datei erfolgreich hochgeladen wurde.

Hier meine komplette Nachricht.vbs:

' Timestamp-Zeichenkette erzeugen'
' ---------------------------------------------------------------' 
   datetoday = Now 
    strMonth  = Right("0" & Month(datetoday) ,2) 
    strDay    = Right("0" & Day(datetoday)   ,2) 
    strHour   = Right("0" & Hour(datetoday)  ,2) 
    strMinute = Right("0" & Minute(datetoday),2) 
    strSecond = Right("0" & Second(datetoday),2) 
    datetoday = YEAR(datetoday) & strMonth & strDay 
    timetoday = strHour & strMinute & strSecond 
    strFile   = datetoday & "_" & timetoday & ".txt"

' Textdatei (die übertragen wird) erstellen'
' ---------------------------------------------------------------' 
Set fso = CreateObject("Scripting.FileSystemObject")
Set oFile = fso.OpenTextFile("C:\" & strFile,8,true)

' Nachricht von user abfragen und in Textdatei schreiben'
' ---------------------------------------------------------------' 
nachricht = InputBox("Bitte hier Nachricht eingeben:")
oFile.WriteLine "Nachricht: " & nachricht
oFile.close

' Textdatei mit Servereinstellungen erstellen'
' ---------------------------------------------------------------'
Set fso = CreateObject("Scripting.FileSystemObject")
Set settingsFile = fso.OpenTextFile("C:\send.txt",8,true)
settingsFile.WriteLine "open mein-server.com"
settingsFile.WriteLine "Benutzername"
settingsFile.WriteLine "Passwort"
settingsFile.WriteLine "ascii"
settingsFile.WriteLine "put " & "C:\" & strFile
settingsFile.WriteLine "bye"
settingsFile.close

' FTP upload'
' ---------------------------------------------------------------'
Set fso = CreateObject("Scripting.FileSystemObject")
Set WshShell = CreateObject("WScript.Shell") 

Set f = fso.GetFile(WScript.ScriptFullName)
Batch = "C:\send.txt" 

WshShell.Run "ftp -s:""" & Batch & "", 0, True

' Textdatei mit Servereinstellungen löschen'
' ---------------------------------------------------------------'
Set fso = CreateObject("Scripting.FileSystemObject")
Set aFile = fso.GetFile("C:\send.txt")
aFile.Delete

' Textdatei (die übertragen wurde) löschen'
' ---------------------------------------------------------------'
Set fso = CreateObject("Scripting.FileSystemObject")
Set aFile = fso.GetFile("C:\" & strFile)
aFile.Delete