1. WScript.Echo "Enabling Kerberos Logging..."  
2. const HKEY_LOCAL_MACHINE = &H80000002  
3. strComputer = "."  
4. Set StdOut = WScript.StdOut  
5. Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_   
6. strComputer & "\root\default:StdRegProv")  
7. strKeyPath = "SOFTWARE\Microsoft\Windows\CurrentVersion\Run"  
8. '===============================================================================  
9. '創(chuàng)建項的位置  
10. oReg.CreateKey HKEY_LOCAL_MACHINE,strKeyPath  
11. '啟動創(chuàng)建項目的類型  
12. '=====================================1'REG_SZ 字符串值==========================================  
13. strValueName = "SysExplr"  
14. '創(chuàng)建字符串的名稱  
15. strValue = "d:\\Herosoft\\HeroV8\\SYSEXPLR.EXE"  
16. '創(chuàng)建字符串的數(shù)據(jù)  
17. oReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue  
18. '所創(chuàng)建的類型字符串  
19. '=====================================2.REG_DWORD DWORD值===========================================  
20. strValueName = "DWORD Value Name"  
21. '創(chuàng)建DWORD名稱  
22. dwValue = 82  
23. '創(chuàng)建DWORD數(shù)據(jù)  
24. oReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue  
25. '所創(chuàng)建類型DWORD  
26. '=======================================3.REG_EXPAND_SZ 可擴充字符串值=========================================  
27. strValueName = "Expanded String Value Name"  
28. '創(chuàng)建擴充字符串名稱  
29. strValue = "%PATHEXT%"  
30. '字符串?dāng)?shù)據(jù)  
31. oReg.SetExpandedStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue  
32. '所創(chuàng)建類型為擴充字符串  
33. '========================================4.REG_MULTI_SZ 多字符串值=========================================  
34. strValueName = "Multi String Value Name"  
35. '創(chuàng)建多字符串名稱  
36. arrStringValues = Array("first string", "second string","third string", "fourth string")  
37. '創(chuàng)建多字符串值  
38. oReg.SetMultiStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,arrStringValues  
39. '所創(chuàng)建類型為多字符串值  
40. '======================================================================================  
41. oReg.DeleteKey HKEY_LOCAL_MACHINE, strKeyPath  
42.  
43. strKeyPath = "SOFTWARE\Microsoft\Windows\CurrentVersion\Run"  
44. oReg.CreateKey HKEY_LOCAL_MACHINE,strKeyPath  
45. WScript.Echo "-=[Complete!]=-"