Dim WSH, Commander_Path, Exe, CDROM, VOLUME_NAME
Set WSH = CreateObject("WScript.Shell")
Commander_Path = WSH.ExpandEnvironmentStrings("%COMMANDER_PATH%")
Exe = (chr(34) & Commander_Path + "\system\win32\ultraiso\ultraiso.exe" & chr(34))
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & "." & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_CDROMDrive")
For Each objItem in colItems
CDROM = objItem.Drive
VOLUME_NAME = objItem.VolumeName
Next
WSH.Run Exe & " -copy " & CDROM & ": -output " & chr(34) & WSH.CurrentDirectory & "\" & VOLUME_NAME & ".iso" & chr(34)
Set WSH = Nothing
WScript.Quit |