Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Ветеран


Сообщения: 628
Благодарности: 51

Профиль | Отправить PM | Цитировать


Давно-давно делал vbs, для установки, может кому-то понравится. Устанавливается в Program Files\Radmin
создает ярлыки:
Remote Administrator v2.2\Radmin Viewer
Remote Administrator v2.2\Settings for Radmin Server
Remote Administrator v2.2\Radmin Server - start
Remote Administrator v2.2\Radmin Server - stop
после установки стартует сервер с паролем 11111111

radmin.vbs
Код: Выделить весь код
'vbs-скрипт положить в папку, в этой папке создать подпапку Files, в кот. 
'записать файлы r_server.exe, raddrv.dll, radmin.exe (radmin.exe я использую от 3 бэты).
'Синтаксис запуска: "radmin.vbs s" или "radmin /s" или "radmin -s" или "radmin (/-)
'silent". Если запускать без ключей, то после окончания будет выведено окно 
'сообщающее об окончании процесса установки, его. надо будет закрыть, 
'удобно при отдельной установке.

Dim WshShell, fso, objArgs, spath, pf, sysr, dir

Set WshShell = WScript.CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
On Error Resume Next

'Expand Environment
pf = WshShell.ExpandEnvironmentStrings("%Programfiles%")
sysr = WshShell.ExpandEnvironmentStrings("%SystemRoot%")
' Read AllUsersPrograms path using WshSpecialFolders object
spath = WshShell.SpecialFolders("AllUsersPrograms")
' Path to current vbs folder to successfully launch script in WPI
dir = fso.GetParentFolderName(WScript.ScriptFullName)

fso.CopyFolder dir & "\files", pf & "\Radmin"
fso.CreateFolder(spath & "\Remote Administrator v2.2")

' Создание шоткатов
Set Rview = WshShell.CreateShortcut(spath & "\Remote Administrator v2.2\Radmin Viewer.lnk")
Rview.TargetPath = pf & "\Radmin\radmin.exe"
Rview.WorkingDirectory = pf & "\Radmin"
Rview.Save

Set RServSet = WshShell.CreateShortcut(spath & "\Remote Administrator v2.2\Settings for Radmin Server.lnk")
RServSet.TargetPath = (pf & "\Radmin\r_server.exe")
RServSet.Arguments = "/setup"
RServSet.WorkingDirectory = pf & "\Radmin"
RServSet.Save

Set RServStart = WshShell.CreateShortcut(spath & "\Remote Administrator v2.2\Radmin Server - start.lnk")
RServStart.TargetPath = (pf & "\Radmin\r_server.exe")
RServStart.Arguments = "/start"
RServStart.WorkingDirectory = pf & "\Radmin"
RServStart.Save

Set RServStop = WshShell.CreateShortcut(spath & "\Remote Administrator v2.2\Radmin Server - stop.lnk")
RServStop.TargetPath = (pf & "\Radmin\r_server.exe")
RServStop.Arguments = "/stop"
RServStop.WorkingDirectory = pf & "\Radmin"
RServStop.Save

'Create sets.reg
Set f1 = fso.CreateTextFile(sysr & "\sets.reg", True)
f1.WriteLine "REGEDIT4"
f1.WriteBlankLines(1)
f1.WriteLine "[HKEY_LOCAL_MACHINE\SYSTEM\RAdmin\v2.0\Server\NtUsers]"
f1.WriteLine """1""=hex:"
f1.WriteBlankLines(1)
f1.WriteLine "[HKEY_LOCAL_MACHINE\SYSTEM\RAdmin\v2.0\Server\Parameters]"
f1.WriteLine """NTAuthEnabled""=hex:00,00,00,00"
f1.WriteLine """Parameter""=hex:c3,32,c5,82,f1,0e,c8,50,b7,3c,20,f7,23,27,16,14"
f1.WriteBlankLines(1)
f1.WriteLine "[HKEY_LOCAL_MACHINE\SOFTWARE\RAdmin\v1.01\ViewType]"
f1.WriteLine """Data""=hex:35,e3,db,da,7c,ef,32,ad,2c,a5,b8,1a,4b,e2,b2,47,7b,1d,eb,05,4c,36,\"
f1.WriteLine "0e,65,8a,ff,ec,aa,7d,63,a1,47,50,db,f2,0a,c5,a7,1d,dd,08,6b,7f,02,90,2b,b8,\"
f1.WriteLine "6c,da,7a,96,cb,dc,c9,e2,1a,8c,4d,25,39,57,f8,ee,83"
f1.Close

WshShell.Run ("regedit /s " & sysr & "\sets.reg"), 1, true
fso.DeleteFile(sysr & "\sets.reg"), true

WshShell.Run ("""" & pf & "\Radmin\r_server.exe""" & " /install /silence"), 1, true

Set objArgs = WScript.Arguments
If objArgs.Count = 0 Then
    msgbox "Remote Administrator Installation complete"
End if

Wscript.Quit

Отправлено: 07:44, 26-09-2005 | #5