Const HKEY_LOCAL_MACHINE = &H80000002

strComputer = "."
 
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _ 
    strComputer & "\root\default:StdRegProv")
 
strKeyPath = "SOFTWARE\Eset\Nod\CurrentVersion\Info"
strDWORDValueName = "View_CLSID"
 
strValueName = "DWORD Value Name"
dwValue = 1702542686
oReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strDWORDValueName,dwValue


