Set args = WScript.Arguments
Dim kickstartInstallationId, securityKey, completeKickstartInstallationUrl

' Make sure we have the 3 arguments

If args.Count >= 3 Then
	kickstartInstallationId = args(0)
	securityKey = args(1)
	completeKickstartInstallationUrl = args(2)
Else
    WScript.Echo "Missing arguments"
	WScript.Quit
End If

Dim Temp

' HKEY_CURRENT_USER = HKCU
' HKEY_LOCAL_MACHINE = HKLM
' HKEY_CLASSES_ROOT = HKCR
' HKEY_USERS = HKEY_USERS
' HKEY_CURRENT_CONFIG = HKEY_CURRENT_CONFIG

Temp = WriteReg("HKCU\VBSriptAdmin\Teststring","Success!","REG_SZ")
Temp = ReadReg("HKCU\VBSriptAdmin\Teststring")
WScript.Echo Temp

Function WriteReg(RegPath, Value, RegType)
      ' Regtype should be “REG_SZ” for string, “REG_DWORD” for a integer,…
      ' ”REG_BINARY” for a binary or boolean, and “REG_EXPAND_SZ” for an expandable string
      Dim objRegistry, Key
      Set objRegistry = CreateObject(“Wscript.shell”)

      Key = objRegistry.RegWrite(RegPath, Value, RegType)
      WriteReg = Key
End Function
Function ReadReg(RegPath)
      Dim objRegistry, Key
      Set objRegistry = CreateObject(“Wscript.shell”)

      Key = objRegistry.RegRead(RegPath)
      ReadReg = Key
End Function