Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Операционные системы » Microsoft Windows » Windows Preinstallation Environment(WinPE) и BartPE LiveCD 7

Модерирует : KLASS, IFkO

vu1tur (27-01-2012 03:24): следующая часть — http://forum.ru-board.com/topic.cgi?forum=62&topic=24098  Версия для печати • ПодписатьсяДобавить в закладки
На первую страницук этому сообщениюк последнему сообщению

   

AZJIO



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Код:
; Имя службы - имя файла
 
If not FileExists(@SystemDir&'\SRVANY.EXE') or not FileExists(@SystemDir&'\INSTSRV.EXE')  Then
    MsgBox(0, "Ошибка", "Проверте наличие  файлов INSTSRV.EXE и SRVANY.EXE в %SystemRoot%\system32")
    Exit
EndIf

;Добавление $sTarget позволило использовать скрипт в контекстном меню
If $CmdLine[0]=0 Then
    $SRV_FILE = FileOpenDialog("Выбор файла *.exe, который будет запущен как сервис.", @ScriptDir & "", "exe-файл (*.exe)", 1 + 4 )
    If @error Then Exit
Else

$SRV_FILE=$CmdLine[1]
EndIf
$srv_naim = StringRegExpReplace($SRV_FILE, "(^.*)\\(.*)\.(.*)$", '\2')
$process = $srv_naim
; диалог выбора имени службы, можно закомментировать, тогда по умолчанию по имени файла.
$srv_naim = InputBox("Имя службы", "Можете изменить имя службы, если это необходимо. Или отменить операцию", $srv_naim, "",260, 130)
If $srv_naim='' Then
MsgBox(0, "Состояние", 'Создание службы отменено.', 3)
Exit
EndIf

 
$srvn = RegRead('HKLM\SYSTEM\CurrentControlSet\Services\'&$srv_naim, '')
If @error=0 Then
MsgBox(0, "Ошибка", "Служба с таким именем уже существует")
Exit
EndIf

Run(@SystemDir&'\INSTSRV.EXE "'&$srv_naim&'" '&@SystemDir&'\SRVANY.EXE','',@SW_HIDE)
ProgressOn("Создание службы", $srv_naim, '',-1,-1,18)
ProgressSet( 50, "Запуск службы")
;RegWrite('HKLM\SYSTEM\CurrentControlSet\Services\'&$srv_naim,'Type','REG_DWORD','272')
RegWrite('HKLM\SYSTEM\CurrentControlSet\Services\'&$srv_naim&'\Parameters','Application','REG_SZ',$SRV_FILE)
RegDelete('HKLM\SYSTEM\CurrentControlSet\Services\'&$srv_naim&'\Security')
RunWait ( @Comspec&' /C NET START "'&$srv_naim&'"', '', @SW_HIDE )
ProgressOff()
If ProcessExists($process&'.exe') Then MsgBox(0, "Состояние", 'Процесс '&$process&' запущен.', 3)

Всего записей: 4407 | Зарегистр. 03-05-2006 | Отправлено: 21:19 28-04-2010
   

На первую страницук этому сообщениюк последнему сообщению

Компьютерный форум Ru.Board » Операционные системы » Microsoft Windows » Windows Preinstallation Environment(WinPE) и BartPE LiveCD 7
vu1tur (27-01-2012 03:24): следующая часть — http://forum.ru-board.com/topic.cgi?forum=62&topic=24098


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2024

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru