How would I convert this VBS script to KIX?? Any help is appreciated!
Script Begining Option Explicit Const HKEY_CURRENT_USER = &H80000001 Const HKEY_LOCAL_MACHINE = &H80000002
Dim strComputer, oReg, strKeyPath,strValueName, dwValue
strComputer = "."
Set oReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _ strComputer & "\root\default:StdRegProv") strKeyPath = "Software\Microsoft\Windows\CurrentVersion\Explorer\VisualEffects" ' Sets a DWORD value strValueName = "VisualFXSetting" dwValue = 00000002 oReg.SetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue
' Sets a string value 'strValueName = "String Name" 'strValue = "String Value" ' oReg.SetStringValue HKEY_CURRENT_USER,strKeyPath,strValueName,strValue ' End of script
|