generator324
Advanced Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
Dim WSHShell
Set WSHShell = WScript.CreateObject("WScript.Shell")
Dim dc, d
Set dc = fso.Drives
Dim LCDROM
LCDROM = ""
For Each d in dc
If d.IsReady Then
If fso.FileExists(d.DriveLetter & ":\xxx.12345") Then 'это маркер для определения CDROM
LCDROM = d.DriveLetter
Exit For
End If
End If
Next
' Проверка, что CDROM обнаружен. Если нет, то сообщение и конец работы
If LCDROM="" Then
d=MsgBox("Не обнаружен CDROM", VbExclamation, "OPT_1")
Else
wscript.echo "%windir%\regedit.exe /s " & """LCDROM" & ":\PROG\Soft\Tune Up On The Friday\settings.reg"""
End If
|
