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
[/code]
|