Open-AudIT

What's on your network?
It is currently Wed Jan 17, 2018 1:53 am

All times are UTC + 10 hours




Forum locked This topic is locked, you cannot edit posts or make further replies.  [ 1 post ] 
Author Message
 Post subject: Runtime GetDataBack
PostPosted: Wed Apr 06, 2011 6:53 am 
Offline
Newbie

Joined: Tue Apr 05, 2011 7:35 pm
Posts: 1
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



Top
 Profile  
Reply with quote  
Display posts from previous:  Sort by  
Forum locked This topic is locked, you cannot edit posts or make further replies.  [ 1 post ] 

All times are UTC + 10 hours


Who is online

Users browsing this forum: No registered users and 2 guests


You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot post attachments in this forum

Search for:
Jump to:  
Powered by phpBB® Forum Software © phpBB Group