atobia
(Just in Town)
2008-04-25 04:53 PM
Convert this VBS script to KIX

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

AllenAdministrator
(KiX Supporter)
2008-04-25 04:57 PM
Re: Convert this VBS script to KIX

Look in the manual for Readvalue and Writevalue.

Kdyer
(KiX Supporter)
2008-05-28 12:58 AM
Re: Convert this VBS script to KIX

atobia,

Here is what this looks like in KiX..
 Code:
$regkey='HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\VisualEffects'

IF READVALUE($regkey,'VisualFXSetting')<>2
   $RC=WRITEVALUE($regkey,'VisualFXSetting',2,'REG_DWORD')
ENDIF

;IF READVALUE($regkey,'String Name')<>"String Value"
;   $RC=WRITEVALUE($regkey,'String Name',"String Value",'REG_SZ')
;ENDIF


HTH,

Kent