Dim objReg, strComputer, strKeyPath
Const HKCU = &H80000001
strKeyPath = "Software\Microsoft\Windows\CurrentVersion\Explorer"
strComputer = "."
Set objReg = GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv")
objReg.SetDWORDValue HKCU, strKeyPath, "EnableAutoTray", "0"