Page 1 of 1 1
Topic Options
#187313 - 2008-04-25 04:53 PM Convert this VBS script to KIX
atobia Offline
Just in Town

Registered: 2008-04-25
Posts: 1
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

Top
#187314 - 2008-04-25 04:57 PM Re: Convert this VBS script to KIX [Re: atobia]
Allen Administrator Offline
KiX Supporter
*****

Registered: 2003-04-19
Posts: 4545
Loc: USA
Look in the manual for Readvalue and Writevalue.
Top
#187904 - 2008-05-28 12:58 AM Re: Convert this VBS script to KIX [Re: Allen]
Kdyer Offline
KiX Supporter
*****

Registered: 2001-01-03
Posts: 6241
Loc: Tigard, OR
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
_________________________
Utilize these resources:
UDFs (Full List)
KiXtart FAQ & How to's

Top
Page 1 of 1 1


Moderator:  Jochen, Allen, Radimus, Glenn Barnas, ShaneEP, Ruud van Velsen, Arend_, Mart 
Hop to:
Shout Box

Who's Online
0 registered and 557 anonymous users online.
Newest Members
gespanntleuchten, DaveatAdvanced, Paulo_Alves, UsTaaa, xxJJxx
17864 Registered Users

Generated in 0.05 seconds in which 0.024 seconds were spent on a total of 13 queries. Zlib compression enabled.

Search the board with:
superb Board Search
or try with google:
Google
Web kixtart.org