Script (audit.vbs) for find serial keys to Runtime GetDataBack (FAT & NTFS):
Code:
''''''''''''''''''''''''''''''''
' 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