Remember, modifying the registry incorrectly is a great way of crashing your system......

VB Code:
  1. Dim WshShell As Object
  2. Set WshShell = CreateObject("WScript.Shell")
  3.  
  4. 'To write to registry
  5. WshShell.RegWrite _
  6.       "HKEY_LOCAL_MACHINE\SOFTWARE\Symantec\pcAnywhere\Directory", _
  7.       "What ever you want", "REG_SZ"
  8.  
  9. 'to read from registry
  10. str = WshShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Symantec\pcAnywhere\DIR")
  11. Set WshShell = Nothing