Set objShell = WScript.CreateObject("WScript.Shell") objShell.RegWrite "HKLM\SOFTWARE\Wow6432Node\Hewlett-Packard\HP Capacitive Sound\WaveFile1", "C:\Program Files (x86)\Hewlett-Packard\HP QuickTouch\vol3.wav" objShell.RegWrite "HKLM\SOFTWARE\Wow6432Node\Hewlett-Packard\HP Capacitive Sound\WaveFile2", "C:\Program Files (x86)\Hewlett-Packard\HP QuickTouch\low_tone_2.wav" objShell.RegWrite "HKLM\SOFTWARE\Wow6432Node\Hewlett-Packard\HP Capacitive Sound\WaveFile3", "C:\Program Files (x86)\Hewlett-Packard\HP QuickTouch\click1_3.wav" objShell.RegWrite "HKLM\SOFTWARE\Wow6432Node\Hewlett-Packard\HP Capacitive Sound\AeroNativeDialogOn", 0, "REG_DWORD" objShell.RegWrite "HKLM\SOFTWARE\Wow6432Node\Hewlett-Packard\HP Capacitive Sound\CurrentWaveFile", 0, "REG_DWORD" objShell.RegWrite "HKLM\SOFTWARE\Wow6432Node\Hewlett-Packard\HP Capacitive Sound\NonAeroDialogFadeOutSpeed", 5, "REG_DWORD" objShell.RegWrite "HKLM\SOFTWARE\Wow6432Node\Hewlett-Packard\HP Capacitive Sound\TransparentLevel", 75, "REG_DWORD" objShell.RegWrite "HKLM\SOFTWARE\Wow6432Node\Hewlett-Packard\HP Quick Launch Buttons\VolumeLocation", "C:\Program Files (x86)\Hewlett-Packard\HP QuickTouch\vol3.wav"