Const HKEY_LOCAL_MACHINE = &H80000002
strComputer = "."
 
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _ 
    strComputer & "\root\default:StdRegProv")
 
strKeyPath = "SOFTWARE\Microsoft\Windows\CurrentVersion\WindowsUpdate"

strStringValueName = "SusClientId"
 

oReg.DeleteValue HKEY_LOCAL_MACHINE,strKeyPath,strStringValueName