'########################################################
'### Creates a key/value in NT/W2k Registry           ###
'###                                                  ###
'### (c) Dirk Pelzer 2002                             ###
'########################################################
Option Explicit
Dim iRet

iRet = CreateReg("HKLM\SOFTWARE\DPC","CreateReg","Success","REG_SZ")
wscript.echo "Error Code: " & iRet

Function CreateReg (strKey, strName, strValue, strType)
' Returns 0 on success and 1 on error

   Dim WshShell
   Set WshShell = WScript.CreateObject("WScript.Shell")
   On error resume next
   WshShell.RegWrite strKey & "\" & strName, strValue, strType

   If err.number <> 0 Then
      CreateReg = 1		' Could not create Registry entry
   Else
      CreateReg = 0		' Registry entry created successfully
   End If

   On error goto 0

End Function