Per WSH Dateien 1 zu 1 brennen?

Hallo Gmeinde,

ich suche eine Möglichkeit mit der ich per WSH Dateien 1:1 auf CD-RW bzw. DVD-RW brennen kann.
Dabei ist es wichtig zu wissen, dass der Inhalt des zu sichernden Verzeichnisses (5 Dateien) sich
regelmässig ändern. Ich benötige keinerlei Komprimierung etc.pp. !
PS: Evtl. kennt wer ein kleines in Frage kommendes Freewaretool?

Danke schon mal!

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 101392

Url: https://administrator.de/forum/per-wsh-dateien-1-zu-1-brennen-101392.html

Ausgedruckt am: 23.12.2024 um 14:12 Uhr

8 Kommentare

Neuester Kommentar

Hallo CanTan!

Vielleicht hilft Dir CD/DVD Writing via Script with IMAPIv2 ...

Grüße
bastla

Hallo,
habe ein entsprechendes Programm gefunden
und ja bastla, Dein Tipp ging bzw. geht in die Richtig! Danke

Das Tool welches ich dazu nehme und gefunden habe, heißt:
www.commandburner.com.
Es hat ein graph. Oberfläche und eine Kommandoline ...

z.B. für eine batch datei:
cmdburn load
cmdburn erase
cmdburn burn /d c:\abc\xyz /l TESTCD /eject

Genau diese Kommandozeilenparameter will ich in WHS nutzen,
weil halt noch ein paar andere Parameter zusätzlich dazu kommen.

Dieser geht zwar per batch bestens aber eben nicht per wsh bzw. vps!?

z.B: (funkt nicht)
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "cmdburn burn /d c:\abc\xyz /l TESTCD /eject",3,True

WER KANN HELFEN!
Am besten sollte alles per WSH bzw. VBS funken und nicht extra
die batch datei öffnen ... oder einfach nur hidden!!

Mein tiefster Dank ist Euch gewiss!
CanTan

Hallo CanTan!

Mit Angabe des Pfades zur "cmdburn.exe" hatte ich kein Problem, mit dem folgenden Code eine CD zu löschen, brennen und auszuwerfen - und das alles, wie gewünscht, "hidden":

Set WshShell = WScript.CreateObject("WScript.Shell")  
WshShell.Run "c:\programme\CommandBurner\cmdburn burn /d c:\abc\xyz /l TESTCD /erase /eject /hide",0,True  

Grüße
bastla

Hallo Bastla,
Du bist echt Spitze. Dat geht super hammer geil...
Danke, dass war der alles entscheidende Klaps auf den Hinterkopf°°°
Jetzt kann ich mich dem Rest widmen, wie z.B. Dateien vergleichen
(Checksumprüf. versuch), Dateien auf Brennverz. löschen, gebrannte
Dateien aufliste ..etc.pp.. Danke Dir.
CanTan

Hallo Bastla,
weißt Du evtl. wie ich per WSH prüfen kann ob auf meiner CD auch etwas drauf ist. Derweil mach ich dies zu Testzwecken so....leider suche ich damit aber nach einer Datei mit festen Namen. Meine gebrannten Daten auf CD heißen aber vor der Endung immer anders. Also möchte ich mindesten suchen nach Dateien mit Endung zb. *.idx !!
Danke schon mal
CanTan

'#####################
strComputer = "."

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

Set colFiles = objWMIService.ExecQuery _
("Select * From CIM_Datafile Where Name = 'd:\\Scripts\\test1.txt'")

If colFiles.Count > 0 Then
MsgBox "Die Prüfung ergab, es sind Dateien auf der CD!" ,64,""

Else
MsgBox "Es ist keine Datei auf der CD zu finden! Irgend etwas lief schief?"
MsgBox "Ok, dann ist das das Ende ...tschüß!" , 16 , ""
WScript.Quit

End If

Hallo CanTan!

Um festzustellen, ob es auf D: überhaupt Dateien und/oder Ordner gibt:

Drive = "D:"  
Set fso = CreateObject("Scripting.FileSystemObject")  
If fso.GetDrive(fso.GetDriveName(Drive)).IsReady Then
    Set Root = fso.GetFolder(Drive & "\")  
    Dirs = Root.SubFolders.Count
    Files = Root.Files.Count
    If Dirs + Files > 0 Then
        MsgBox Drive & "\ enthält " & Dirs & " Ordner und " & Files & " Dateien.", vbInformation, ""  
    Else
        MsgBox "Es sind keine Ordner oder Dateien auf " & Drive & " zu finden! Irgend etwas lief schief?", vbCritical, ""  
    End If
Else
    MsgBox "In Laufwerk " & Drive & " befindet sich keine Disc!", vbCritical, ""  
End If

Grüße
bastla

Hallo Bastla,
ich weiß gar nicht wie ich Dir danken kann....??
Genau das war es was ich suchte!!! Sicherlich
hilft dies auch mal anderen Besucher ... aber
Dir gehört mein ganzer DANK!

PS: Evtl.. darf ich mich diesbezüglich
nochmals bei Dir melden??
Danke