HKEY_CURRENT_USER = &H80000001 strComputer = "." Set objReg = GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv") strKeyPath = "Control Panel\Desktop" objReg.CreateKey HKEY_CURRENT_USER, strKeyPath ValueName = "WallpaperStyle" strValue = "2" objReg.SetStringValue HKEY_CURRENT_USER, strKeyPath, ValueName, strValue