skole
|
 Posted: Fri Jan 08, 2010 13:25 Post subject: |
 |
|
мои пять копеек в создание ISO-образа через UltraISO
Переделал свой скрипт cdimage, для работы меняем "\system\win32\ultraiso\ultraiso.exe" на свой путь... в параметрах ничего указывать не надо, скрипт сам ищет используемый привод и с него рисует образ в тот каталог, где находился курсор тотала в момент запуска скрипта
| Code: | 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 |
|
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
