Support
Authorization

Newsletter

  Settings

wicha khunnam (All user's messages)

 

Forums list
New topics
Search
Rules
Help
Login: 
Register

All user's messages
Forum::
Added::Select date in calendarSelect date in calendar
 

Author's messages in topic: 1
Topic: «RAdmin 3.3 Automated Installation, VBS Script to install RAdmin Server 3.3» on forum: Network management general discussion
Posted:
11/17/2011 21:43:49
Go to
Quote
Andrew Nova wrote:
smile:idea:

I thought I might post this to help some of you out there who are trying to upgrade your clients to RAdmin Server 3.3. I openly admit that I am far from being any sort of developer, so please feel free to toss out suggestions for improving the VBScript code. The code below also cleans up any remnants from older versions, such as dead icons or folders.



The script below was used to uninstall older RAdmin Server clients from over 5,000 computers, which worked nicely. I have summarized how I did it below for anyone who might be interested.



Bon appetite.



1. Installed the RAdmin Activation Server, available on this web site.

2. Installed the RAdmin Deployment Tool, available on this site.

3. Created a new MSI package with my specific RAdmin Server settings.

4. Pointed the newly created MSI package at my RAdmin Activation server.

5. Created a RAdmin deployment services account in Active Directory.

6. Created a RAdmin deployment security group.

7. Added my service account to the RAdmin security group.

8. Created a Restricted Groups GPO and added my RAdmin security group and applied it to the Local Administrators group (http://www.windowsecurity.com/articles/Using-Restricted-Groups.html).

9. Bundled my VBscript into an executable, elevating the privileges for the installation, which used my service account (A sort of RunAs). I used the “Admin Script Editor” packaging tool to create this executable, which allowed me to update all nodes, regardless if they were “locked down” or not. (http://adminscripteditor.com/editor/scriptpackager).

10. Deployed the executable in a login script.



Note : For older RAdmin versions (i.e. 2.0, 2.2, etc) that were silently installed using a BAT file or VBScript, you can use the commands below to uninstall older versions. The reason is that when you silently install older RAdmin versions, it only installs services and DLL’s, so there is no uninstall string in the registry.



''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

BAT File to Silently Uninstall Older Versions that were Silently Installed (i.e. 2.0, 2.2)

@echo off

C:\windows\system32\r_server.exe /stop

C:\windows\system32\r_server.exe /unregister

C:\windows\system32\r_server.exe /uninstall /silence





VBScript to Uninstall Previous RAdmin Server Clients and Install RAdmin 3.3

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

''' Automated RAdmin Update Script to install RAdmin 3.3 Server

''' The script uninstalls all previous RAdmin Versions start at v2.

''' Written by Andrew Nova for HUB International, December 2008

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''



On Error Resume Next

strComputer = "."

Const HKEY_LOCAL_MACHINE = &H80000002

Const HKLM = &H80000002

Const OverwriteExisting = True

Const DeleteReadOnly = True



''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''



KeyExists = "0"

strKeyPath = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall"

MyFileServer = "\\YourFileServer\YourFolder\YourSUBfolder\"



Set objNetwork = CreateObject("Wscript.Network") 'get the current computer name

objComputerName = objNetwork.ComputerName



''' Get Windows Default Directory

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

Set colItems = objWMIService.ExecQuery("Select * From Win32_OperatingSystem")



For Each objItem In colItems

WinDir = objItem.WindowsDirectory

Next



''' Create Software Folder if it doesnt exist

Set objFSO = CreateObject("Scripting.FileSystemObject")

If Not objFSO.FolderExists("C:\RAdmin.Software") Then

Set objFolder = objFSO.CreateFolder("C:\RAdmin.Software")

End If





''' Create the version Array

Dim MyRVersion(6)

MyRVersion(0) = "Remote Administrator v2.0"

MyRVersion(1) = "Remote Administrator v2.1"

MyRVersion(2) = "Remote Administrator v2.2"

MyRVersion(3) = "Radmin Server 3.0"

MyRVersion(4) = "Radmin Server 3.1"

MyRVersion(5) = "Radmin Server 3.2"

MyRVersion(6) = "Radmin Server 3.3"



''' Loop through the Array to see what versions are installed.

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

For x = 0 To 6



Set objReg=GetObject("winmgmts:{impersonationLevel=impersonate}!" & "root\default:StdRegProv")

objReg.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, arrSubKeys



For Each subkey In arrSubKeys

objReg.GetStringValue HKEY_LOCAL_MACHINE, strKeyPath & "\" & subkey, "DisplayName", DisplayName



If DisplayName = MyRVersion(x) Then

objReg.GetStringValue HKEY_LOCAL_MACHINE, strKeyPath & "\" & subkey, "UninstallString", UninstallString



If DisplayName = "Radmin Server 3.3" Then

WScript.quit

End If



RAdminVersion = Left(DisplayName,20)



If RAdminVersion = "Remote Administrator" Then



Uninstallme = WinDir & "\system32\r_server.exe /uninstall /silence"

DelSFile = WinDir & "\system32\r_server.exe"

DelDLL = WinDir & "\system32\raddrv.dll"

MyRAFolder = "C:\Documents and Settings\All Users\Start Menu\Programs\" & DisplayName

RAFolder = "C:\Documents and Settings\All Users\Start Menu\Programs"



Set objFSO = CreateObject("Scripting.FileSystemObject")

objFSO.DeleteFile(MyRAFolder & "\*"), DeleteReadOnly



Set objFSO = CreateObject("Scripting.FileSystemObject")

objFSO.DeleteFolder(RAFolder & "\Remote Administrator*")



Set objReg = GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv")

strKeyPath = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\" & DisplayName

objReg.DeleteKey HKEY_LOCAL_MACHINE, strKeyPath



Set objShell = CreateObject("WScript.Shell")

objShell.Run Uninstallme, ,True

Set objFSO = CreateObject("Scripting.FileSystemObject")

objFSO.DeleteFile DelSFile,True

objFSO.DeleteFile DelDLL,True



Else



MyNewString = Replace(Uninstallstring,"MsiExec.exe /X","")

MyUnInstall = "MsiExec.exe /norestart /q/x" & MyNewString & " /L*V " & "C:\RAdmin.Software\RAdmin.Uninstall.log"



Set objShell = CreateObject("WScript.Shell")

objShell.Run MyUnInstall, ,True



End If

End If

Next

Next





''' Copy MSI file to the C drive.

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Set objFSO = CreateObject("Scripting.FileSystemObject")

objFSO.CopyFile MyFileServer & "RAdmin.3.3.Install.msi" , "C:\RAdmin.Software\", OverwriteExisting





''' Set the MSI Install Command and install package

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

RScommand = "C:\RAdmin.software\RAdmin.3.3.Install.msi" & " REBOOT=ReallySuppress /Quiet" & " /L*V " & _

"C:\RAdmin.Software\RAdmin.3.3.Install.log"



Set WshShell = WScript.CreateObject("WScript.Shell")

Set objShell = CreateObject("WScript.Shell")

objShell.Run RScommand, ,True



WScript.quit
Pages: 1

Radmin 3.5

Windows 8 Compatible

DOWNLOAD

Free for 30 days

BUY NOW

Only $49 per lifetime license
for  50 PCs - $29.8 per remote PC
for 100 PCs - $24.9 per remote PC
for 150 PCs - $23.3 per remote PC
from 200 PCs - $22 per remote PC
Follow us on Twitter
Famatech Corporation Copyright © 1999-2014 Famatech. All rights reserved.