vbs删除注册表项的代码

1. WScript.Echo "Enabling Kerberos Logging..."  
2. const HKEY_LOCAL_MACHINE = &H80000002  
3. strComputer = "."  
4. Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_   
5. strComputer & "\root\default:StdRegProv")  
6. strKeyPath = "SOFTWARE\999"  
7. strDWORDValueName = "DWORD Value Name"  
8. strExpandedStringValueName = "Expanded String Value Name"  
9. strMultiStringValueName = "Multi String Value Name"  
10. strStringValueName = "String Value Name"  
11. strValueName = "strValueName"  
12. oReg.DeleteValue HKEY_LOCAL_MACHINE,strKeyPath,strDWORDValueName  
13. oReg.DeleteValue HKEY_LOCAL_MACHINE,strKeyPath,strExpandedStringValueName  
14. oReg.DeleteValue HKEY_LOCAL_MACHINE,strKeyPath,strMultiStringValueName  
15. oReg.DeleteValue HKEY_LOCAL_MACHINE,strKeyPath,StringValueName  
16. oReg.DeleteValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName  
17. WScript.Echo "-=[Complete!]=-"