win7怎么加载注册表run启动项

win7如何加载注册表run启动项
const HKEY_LOCAL_MACHINE = &H80000002  
 Set oReg=GetObject("winmgmts:\\.\root\default:StdRegProv")  
 strKeyPath = "Software\Microsoft\Windows\CurrentVersion\Run"  
 strValueName = "test"  
 strValue = "c:\Programdata\1.vbs"  
 oReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue  

‘能在xp注册表中加入，但不能在win7中加入，为什么呢？
[解决办法]
Google搜素关闭UAC