| Quote |
|---|
Eugene Idzikovsky wrote:
v3.0 -> shared -> parameters -> xferparam -> 1 |
Thank you for the reply; I was able to find that with some digging. Somewhat curious that it was decided to leave the license key in the registry even after an uninstall. An uninstall should remove all elements of an application from the system; I shouldn't have to be rooting through the registry to find it's leavings.
Anyway, I decided to go a slightly different rout with what I am doing. We have a number of PCs that are imaged and have RAdmin pre-installed. Because the image is built on one machine and distributed to others with different hardware, the software reverts back to demo mode and requires activation after 30 days (even though it still has the valid key).
So, its either, a) have our NOC activate each one as they come up, b) distribute the license key to the field, or c) build a script. I've attached it in case anyone has run into the same issue as us.
' ----------------------------------------------------------------------------'
' RAdmin_Update.vbs
'
' This script deletes the current RAdmin license key, and applies and
' activates one provided in the script.
'
' Created - March 2010
' ----------------------------------------------------------------------------'
Option Explicit
' ----------------------------------------------------
' -- Declare and set objects and variables --
' ----------------------------------------------------
Dim strRegKey, strLicenseKey, strActivCmd
Dim counter
Dim objShell
' RAdmin license key
strLicenseKey = "xxxxxxxx-xxxxxxxx-xxxxxxxx-xxxxxxxx-xxxxxxxx"
strRegKey = "HKEY_LOCAL_MACHINE\SOFTWARE\RAdmin\v3.0\Shared\Parameters\XferParam\"
strActivCmd = "C:\WINDOWS\system32\rserver30\rserver3.exe /activate /key:" & strLicenseKey
Set objShell = CreateObject("WScript.Shell")
' -----------------------
' -- Process --
' -----------------------
' Delete the registry keys that hold license information (There is the possibility of having more
' than one key installed so this removes up to 5 keys; expand as needed)
for counter = 1 to 5
On Error Resume Next
objShell.RegDelete strRegKey & counter & "\"
On Error Goto 0
Next
' Run the command that adds and activates the provided key
objShell.Run (strActivCmd)
Wscript.Echo "RAdmin Server 3.4 license updated and activated"
' -------------------------
' -- Cleanup --
' -------------------------
Set strRegKey = Nothing
Set strLicenseKey = Nothing
Set strActivCmd = Nothing
Set counter = Nothing
Set objShell = Nothing
Wscript.quit