[orphan]

Подскажите пожалуйста где можно скачать winrecab.rar и msretime.rar.
По ссылкам скачать не получается, архивы битые.

[vlastan]

Кто-нибудь может выложить утилитку CDEject.exe? В этой теме аттач битый, а в инете натыкался только на шараварные подобные проги.

[qeraser]

vlastan
Пожалуйста

[vlastan]

qeraser, спасибо, но у меня она почему-то не срабатывает...запускал на компе из командной строки...перепробовал все команды. У кого-нибудь была подобная проблема?

[amel27]

vlastan

в инете натыкался только на шараварные подобные проги

AutoIT скрипт устроит?... Легко скомпилировать в EXE или изменить функциональность по желанию:

Код:

; Читаем параметр командной строки и если обнаружен вызываем функцию,
; переменная окружения ERRORLEVEL устанавливается равной количеству ошибок
; (привод может быть заблокирован Nero или другой программой)

$LastParm = $CmdLine[$CmdLine[0]]
If $LastParm Then
    _CDEject ($LastParm)
    Exit (@error)
EndIf

; Функция выброса трея CD/DVD привода
; в качестве параметра принимается буква диска или порядковый номер (по алфавиту),
; для обработки всех найденных приводов достаточно передать -1,
; по умолчанию применяется к первому найденному приводу.
;
; Возвращает количество успешно обработанных приводов,
; значение @error устанавливается равным количеству неудач,
; суммарное значение равно количеству обнаруженных приводов.

Func _CDEject ($drive = 1)
    Local $i = 1, $err = 0, $aDrives = DriveGetDrive ("CDROM")
    If IsArray ($aDrives) Then
        For $i = 1 To $aDrives [0]
            If ($drive = -1) OR ($drive = $i) OR ($drive & ':' = $aDrives [$i]) Then
                If CDTray ($aDrives [$i], "open") =0 Then $err = $err +1
            EndIf
        Next
    EndIf
    SetError ($err)
    Return $i - $err -1
EndFunc

[qeraser]

vlastan
На msfn натыкался на CD_DVD_Switcher, попробуйте.
Вот первоисточник

Вариант от amel27 прост и легок. Я бы остановился на нем.

[TombAlex]

Чтение структуры подкаталогов для создания значения ключа OemPnPDriversPath в winnt.sif.
Надоело значение этого ключа руками переделывать (ошибаюсь часто).
Написал скрипт для этого, не знаю межет кто и делал что-то подобное.

Вот текст vb-скрипта.

Код:

'Чтение аргумента коммандной строки
Set objArgs = WScript.Arguments
call readcatname (objArgs(0))
Function readcatname (folderspec)
  Dim fso, f, f1, s, sf
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set f = fso.GetFolder(folderspec)
  Set sf = f.SubFolders
  For Each f1 in sf
'Проверка каталога на наличие файлов
  Dim fsofol, fl, fo
  Set fsofol = CreateObject("Scripting.FileSystemObject")
  Set fl = fsofol.GetFolder(f1.path)
  Set fo = fl.Files
  if fo.Count = 0 Then
  else
'Проверка существования лога 
    Set fsoLogO = CreateObject("Scripting.FileSystemObject")
    if (fsoLogO.FileExists("folders.txt")) Then
    else
      fsoLogO.CreateTextFile "folders.txt"
    end if
'Запись имени каталога в файл
    Set fsoLog = fsoLogO.GetFile("folders.txt")
    Set ts = fsoLog.OpenAsTextStream(8,0)
    ts.Write f1 & ";"
    ts.Close
   end if
'Рекурсивный вызов функции
    	call readcatname (f1.path)
  Next
End function

Эта программа тупо сканирует структуру подкаталогов и пишет их имена последовательно в файл folders.txt в качестве аргумента в коммандной строке необходимо указать подкаталог который необходимо просканировать (в моем случае E:\Distrib\WiXPSP2$OEM$\$1\drivers\), а потом в блокноте с помощью поиска и замены удалить часть путей подкаталогов у меня это выглядит так E:\Distrib\WiXPSP2$OEM$\$1\ заменяем на ничего (не смог я поиск регулярных выражений корректно написать).
Внимание: программа тупая она не понимает сколько символов в названии каталога, так что проверяйте это сами.

[amel27]

...тогда вот еще CMD-вариант решения проблемы построения OemPnPDriversPath:

Код:

@Echo Off
SetLocal EnableDelayedExpansion
:: Путь к каталогу с драйверами:
Set ROOT=E:\Distrib\WiXPSP2\$OEM$\$1\OEMDRV

PUSHD %ROOT%
For %%i In ("%ROOT%") Do If Exist %%i (Set ROOT=%%~si&Set $R=%%~nxsi) Else Exit
For /F "Delims=" %%i In ('DIR /B/S/A:D *') DO (
   Set $D=%%~si
   If Exist !$D!\*.inf Set OemPnPDriversPath=!OemPnPDriversPath!;!$R!!$D:%ROOT%=!
)

Echo %OemPnPDriversPath:~1%

[TombAlex]

Доделаный скрипт для построения OemPnPDriversPath
Теперь выдает готовую строку в файл folders.txt (переделывать ни чего не надо)
Также выполняет проверку соответствия имен каталогов формату 8.3, если не соответствует сообщит где ошибка.

Код:

Set objArgs = WScript.Arguments
If objArgs.length = 0 Then
  MsgBox "Не задан каталог", 16, "Выполнение прервано"
  WScript.Quit
End If
Set fso = CreateObject("Scripting.FileSystemObject")
If  Not fso.FolderExists(objArgs(0)) Then
  MsgBox "Каталог не существует", 16, "Выполнение прервано"
  WScript.Quit
End If
    Set fsoLogO = CreateObject("Scripting.FileSystemObject")
    if (fsoLogO.FileExists("folders.txt")) Then
      Set fsoLog = fsoLogO.GetFile("folders.txt")
      fsoLog.Delete
      fsoLogO.CreateTextFile "folders.txt"
    else
      fsoLogO.CreateTextFile "folders.txt"
    end if  
Dim pfso, pf, psf, regEx
Set pfso = CreateObject("Scripting.FileSystemObject")
Set pf = pfso.GetFolder(objArgs(0))
Set psf = pf.Parentfolder
Set regEx = New RegExp
regEx.Pattern = "\\"
regEx.IgnoreCase = True
regEx.Global = True
rpatrn = regEx.Replace(psf.path, "\\")
regEx.Pattern = "\$"
rpatrn = regEx.Replace(rpatrn, "\S")
cn=0   
call readcatname (objArgs(0), rpatrn)

Function readcatname (folderspec, rpatrn)
  Dim fso, f, f1, s, sf, regEx
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set f = fso.GetFolder(folderspec)
  Set sf = f.SubFolders   
  For Each f1 in sf
  If UCase(f1.Name) <> UCase(f1.ShortName) Then 
  MsgBox "Имя каталога не соответствует формату 8.3" & Chr(13) & f1.Path & Chr(13) & f1.Name,_
  16, "Выполнение прервано"
  WScript.Quit
  End If
  Dim fsofol, fl, fo
  Set fsofol = CreateObject("Scripting.FileSystemObject")
  Set fl = fsofol.GetFolder(f1.path)
  Set fo = fl.Files
  if fo.Count = 0 Then
  else
    Set fsoLogO = CreateObject("Scripting.FileSystemObject")
    Set fsoLog = fsoLogO.GetFile("folders.txt")
    Set ts = fsoLog.OpenAsTextStream(8,0)
    Set regEx = New RegExp   
    regEx.Pattern = rpatrn & "\\"
    regEx.IgnoreCase = True
    sname = regEx.Replace(f1 , "")
    if cn = 0 Then 
      cn = 1
    else
      ts.Write ";"
    End If
    ts.Write sname
    ts.Close
    End if
  call readcatname (f1.path, rpatrn)
  Next
End function

[VitRom]

amel27

Rem Выделенные для приводов буквы SET DRV_FREE=X Y Z

Где-то когда-то на Майкрософте в КБ было, что, мол, буковка Z используется при выполнении батников ("скриптов входа") при сетевом логоне...
Правда, не помню, к каким версиям Виндов применимо...