Non c'e' molto da dire ...

Crei l'oggetto WScript.Shell con

codice:
  Dim WshShell As Object
  Set WshShell = CreateObject("WScript.Shell")
e scrivi nel registro con

codice:
  WshShell.RegWrite "HKLM\Software\Test\Valore", 1234, "REG_DWORD"
Ovviamente la chiave che ho scelto e' un esempio ...

Tu dovrai usare le chiavi corrette, magari con piu' di una scrittura con la RegWrite ...

Detto questo, non dovresti avere piu' problemi ... in ogni caso, fai delle ricerche e risolvi ...