Author: Skif_off
Posted: Sat Nov 26, 2016 8:34 am (GMT -6)
2CZ.M
Maybe VBScript
?
Save as PowerISOCreate.vbs and
ISO-file will be created in a target panel.
Posted: Sat Nov 26, 2016 8:34 am (GMT -6)
2CZ.M
Maybe VBScript
| Code: |
| ' Command: "path2script\PowerISOCreate.vbs" "path2PowerISO\piso.exe" ' Parameters: "%T" "%L" If WScript.Arguments.Length <> 3 Then WScript.Echo "Check startup parameters!" WScript.Quit End If Dim sIsoName, sCmdLine, Str sIsoName = InputBox("Enter name", "ISO name", "image") If IsEmpty(sIsoName) Then WScript.Quit End If sCmdLine = """" & WScript.Arguments.Item(0) & """ create -o """ & WScript.Arguments.Item(1) & sIsoName & ".iso""" Set WshShell = CreateObject("WScript.Shell") Set FSO = CreateObject("Scripting.FileSystemObject") Set objRegExp = CreateObject("VBScript.RegExp") objRegExp.Pattern = "\\$" Set File = FSO.GetFile(WScript.Arguments.Item(2)) Set TextStream = File.OpenAsTextStream(1) Str = vbNullString While Not TextStream.AtEndOfStream Str = Str & " -add """ & objRegExp.Replace(TextStream.ReadLine(), "") & """ /" Wend TextStream.Close WshShell.Run sCmdLine & Str, 1, False |
?
Save as PowerISOCreate.vbs and
| Code: |
| Command: "path2script\PowerISOCreate.vbs" "path2PowerISO\piso.exe" Parameters: "%T" "%L" |
ISO-file will be created in a target panel.