8
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!
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!
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 101392
Url: https://administrator.de/contentid/101392
Printed on: April 18, 2024 at 17:04 o'clock
8 Comments
Latest comment
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
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":
Grüße
bastla
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 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
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
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:
Grüße
bastla
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 Ifbastla
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
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
Hallo CanTan!
Freut mich, wenn's Dir geholfen hat.
Grüße
bastla
Freut mich, wenn's Dir geholfen hat.
darf ich mich diesbezüglich nochmals bei Dir melden??
Eigentlich habe ich vor, noch etwas länger hier in diesem Forum dabei zu sein - also einfach posten ...Grüße
bastla
