Ветеран
Сообщения: 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
|