Open-AudIT

''''''''''''''''''''''''''''''''
'     GetDataBack FAT          '
''''''''''''''''''''''''''''''''
strKeyPath = "SOFTWARE\Runtime Software\GetDataBack\License"

  name_xp = "Get Data Back FAT"
  release_type = ""
  edition_type = ""
  path = strKeyPath
  subKey = "Name"
  oReg.GetStringValue HKEY_LOCAL_MACHINE, Path, subKey, key1
  subKey = "Key"
  oReg.GetStringValue HKEY_LOCAL_MACHINE, Path, subKey, key2
  key = key1 & "-" & key2
  if IsNull(key) then
  else
    strOffXPRUKey = key
    form_input = "ms_keys^^^" & name_xp       & "^^^" _
                              & strOffXPRUKey & "^^^" _
                              & release_type  & "^^^" _
                              & edition_type  & "^^^" _
                              & "GetDataBackFAT" & "^^^"
    entry form_input,comment,objTextFile,oAdd,oComment
    strOffXPRUKey = ""
    release_type = ""
    edition_type = ""
    form_input = ""
  end if

''''''''''''''''''''''''''''''''
'     GetDataBack NTFS         '
''''''''''''''''''''''''''''''''
strKeyPath = "SOFTWARE\Runtime Software\GetDataBackNT\License"

  name_xp = "Get Data Back NTFS"
  release_type = ""
  edition_type = ""
  path = strKeyPath
  subKey = "Name"
  oReg.GetStringValue HKEY_LOCAL_MACHINE, Path, subKey, key1
  subKey = "Key"
  oReg.GetStringValue HKEY_LOCAL_MACHINE, Path, subKey, key2
  key = key1 & "-" & key2
  if IsNull(key) then
  else
    strOffXPRUKey = key
    form_input = "ms_keys^^^" & name_xp       & "^^^" _
                              & strOffXPRUKey & "^^^" _
                              & release_type  & "^^^" _
                              & edition_type  & "^^^" _
                              & "GetDataBackNTFS" & "^^^"
    entry form_input,comment,objTextFile,oAdd,oComment
    strOffXPRUKey = ""
    release_type = ""
    edition_type = ""
    form_input = ""
  end if