Архив форумов ЦИТФорума

[ased]

Как только не как, а не выходит каменный цветок, подскажите, ежели кто знает

Const HKEY_LOCAL_MACHINE = &H80000002
strComputer = "."
Set objReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _
strComputer & "\root\default:StdRegProv")
strKeyPath = "SOFTWARE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\OfficeScanNT Monitor"
objReg.DeleteKey HKEY_LOCAL_MACHINE, strKeyPath

и

Const HKEY_LOCAL_MACHINE = &H80000002
strComputer = "."
Set objReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _
strComputer & "\root\default:StdRegProv")
strKeyPath = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run"
strStringValueName = "OfficeScanNT Monitor"
objReg.DeleteValue HKEY_LOCAL_MACHINE,strKeyPath,strStringValueName

Всё отрабатывает, но ни какого результата

а сама ветка такая:
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run
Имя:
OfficeScanNT Monitor
Тип:
REG_SZ
Значение:
"C:\OfficeScan NT\pccntmon.exe" -HideWindow