Radmin Auto Install

[Giorgi]

Hello Great Ppl

Here is what I am trying to do. I am admin on some little network and I need to install radmin server on all computers and I want to do it easy way.

I WANT TO PUT CD AND REST MUST BE DONE BY AUTORUN

1. i need radmin server to be copied in system32 folder and silently registered there, and than run them, those files are:

r_server.exe

raddrv.dll

2. i need some *.reg file to run, for settings costumisation

3. i need to add r_server.exe into the WinXP firewall exceptions list and also in Norton AVP 2005 integrated firewall exceptions list.

so, I asked my friend and he wrote this:

Dim fso, d

Set fso = CreateObject("Scripting.FileSystemObject")

Set shell = CreateObject("WScript.Shell")

source_1 = GetCD & ":\install\radmin\r_server.exe"

source_2 = GetCD & ":\install\radmin\raddrv.dll"

dest_1 = shell.ExpandEnvironmentStrings("%WINDIR%") & "\system32\r_server.exe"

dest_2 = shell.ExpandEnvironmentStrings("%WINDIR%") & "\system32\raddrv.dll"

fso.CopyFile source_1, dest_1

fso.CopyFile source_2, dest_2

If fso.FileExists (dest_1) Then

shell.Run dest_1 & " /install /silence", , True

regFile = GetCD & ":\install\settings1.reg"

shell.Run "REGEDIT /s " & regFile, , True

OpenProgramInFirewall dest_1, "RAdmin"

WScript.Echo "Finished!"

End If

Function GetCD()

For Each d in fso.Drives

If 4 = d.DriveType Then

GetCD = d.DriveLetter

Exit Function

End If

Next

GetCD = ""

End Function

Sub OpenProgramInFirewall (appPath, appName)

Dim fwMgr

Set fwMgr = CreateObject("HNetCfg.FwMgr")

Dim profile

Set profile = fwMgr.LocalPolicy.CurrentProfile

Dim app

Set app = CreateObject("HNetCfg.FwAuthorizedApplication")

app.ProcessImageFileName = appPath

app.Name = appName

app.Scope = 0

app.IpVersion = 2

app.Enabled = True

profile.AuthorizedApplications.Add app

End Sub

and when I try to run it it says: FILE PATH NOT FOUND,

1. what could be problem?

2. and how can i add script automaticely in autorized scripts and exceptions list for Norton AVP 2005?

TNX IN ADVANCE

[Giorgi]

I have Bat Version Also:

copy "E:\r_server.exe" "%windir%\system32\r_server.exe" 

copy "E:\raddrv.dll" "%windir%\system32\raddrv.dll" 

%windir%\system32\r_server.exe /install /silence 

regedit.exe /s E:\settings.reg 

%windir%\system32\r_server.exe /start 

netsh firewall add portopening TCP 4899 Radmin

CANT FIGURE OUT WHAT TO DO WITH NORTON AVP 2005. It keeps saying it's malicious code, and blocks with firewall as well.

[redfive19]

Here is what I would do.....

I do not know VB but I am assuming that top script is VBS? If I coded this in say auto it (your batch script is a good example too) I would do a regsnap before and after manually adding it to your test box. Norton and WinXP MIGHT write these values to the registry or an ini file (I am just guessing). If they write them to registry, you can either export these files or have a script write the exceptions to registry. Is this what is being done?

If you tell me the registry settings, I can script it for you through autoit.

-redfive