Comments:
'---------------------------------------------------------------------------*/
function KillInstallerProcessIfC3()
Const HKLM = &H80000002 'HKEY_LOCAL_MACHINE
Const strKeyC3 = "SOFTWARE\STAR DIAGNOSE\COMPACT3\"
Const strKeyC3W = "SOFTWARE\STAR DIAGNOSE\WLANMiniPCI\"
Const strComputer = "."
Dim killInstallerProcess
Dim arrSubKeys
Dim oReg: Set oReg = GetObject("winmgmts:!root/default:StdRegProv")
If oReg.EnumKey(HKLM, strKeyC3, arrSubKeys) = 0 Then
'Registry key for COMPACT3 exists
If oReg.EnumKey(HKLM, strKeyC3W, arrSubKeys) = 0 Then
'Registry key for COMPACT3W exists
killInstallerProcess = False
Else
'Registry key for COMPACT3W exists not
'The device is a SD COMPACT3
'Kill the installer process
killInstallerProcess = true
End If
Else
killInstallerProcess = False
End If
'Kill the installer process, if it is a SD COMPACT3 device
If killInstallerProcess = true then
Dim objWMIService
Dim colProcessList
Это кусочек из скрипта установочного диска для убедительности
__________________
Тупо стираю ошибки .
Для просмотра ссылок или изображений в подписях, у Вас должно быть не менее 10 сообщение(ий). Сейчас у Вас 0 сообщение(ий).
Дистанционная установка DAS XENTRY. АктивацияOpenShell . Длинный ключ . Установка WIS станделоне на последние версии . Лицензия Veidiamo
|