Немного от слов к делу к коду
Дмитрий77предлагать ввод пользователя... с подстановкой текущего пользователя
Тек. пользователь в нужной форме записи вроде так корректно вычисляется
1.
System.Security.Principal.WindowsIdentity.GetCurrent().Name
Для меня вычисляет D\Dmitry
На всяк. случай поигрался-почитал доки,
для SYSTEM надо тупо писать "LocalSystem"
для Network Service надо тупо писать "NT AUTHORITY\NetworkService"
(этих двоих оно в этом написании корректно съест вне зависимости от локализации)
hVosttДмитрий77Использовать API, а не sc - иначе хрен отследишь что процедура установки прошла корректно.Почему хрен отследишь, запускаем команду, смотрим код возврата. Но можно и через API.
Ну, м.б. и отследишь, но ИМХО это извращение, когда знаешь как сделать по нормальному.
Короче накатал пока ф-цию начерно.
Каюсь, воспользовался ServiceController sc.WaitForStatus(ServiceControllerStatus в чисто API-шном коде да еще и "между строк".
(API заразы при старте-стопе сервиса сразу возвращают, WaitForStatus очевидно какой-нибудь Do..Loop делает, да и хрен бы с ним)
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
Public Function SetServiceUserAccount(ByRef err_text As String, _
ByVal ServiceName As String, Optional ByVal ServiceStartName As String = vbNullString, _
Optional ByVal Password As String = vbNullString) As Boolean
SetServiceUserAccount = True
Dim sc As New ServiceController(ServiceName)
' Get a handle to the SCM database.
Dim schSCManager As IntPtr = OpenSCManager(vbNullString, vbNullString, SC_MANAGER_ALL_ACCESS)
If schSCManager = IntPtr.Zero Then
SetServiceUserAccount = False
err_text = "OpenSCManager Error " & RaiseAPIError()
GoTo ToExit
End If
' Get a handle to the service.
Dim schService As IntPtr = OpenService(schSCManager, ServiceName, SERVICE_ALL_ACCESS) ' SERVICE_CHANGE_CONFIG
If schService = IntPtr.Zero Then
SetServiceUserAccount = False
err_text = "OpenService Error " & RaiseAPIError()
GoTo ToExit
End If
' надо б остановить если запущен, потом же проверять придется
Dim Status As SERVICE_STATUS
' Query Service Status
If QueryServiceStatus(schService, Status) = False Then
SetServiceUserAccount = False
err_text = "QueryServiceStatus Error " & RaiseAPIError()
GoTo ToExit
End If
If Status.dwCurrentState <> SERVICE_STOPPED Then
' Stop the service
If ControlService(schService, SERVICE_CONTROL_STOP, Status) = False Then
SetServiceUserAccount = False
err_text = "ControlService Error " & RaiseAPIError()
GoTo ToExit
End If
sc.WaitForStatus(ServiceControllerStatus.Stopped, New TimeSpan(0, 0, 10))
End If
' Change the service account name
If ChangeServiceConfig(schService, SERVICE_NO_CHANGE, SERVICE_NO_CHANGE, SERVICE_NO_CHANGE, _
, , , , ServiceStartName, Password, ) = False Then
SetServiceUserAccount = False
err_text = "ChangeServiceConfig Error " & RaiseAPIError()
GoTo ToExit
End If
' Надо б проверить, а вдруг с паролем ошиблись?
' Start the service
If StartService(schService, 0, IntPtr.Zero) = False Then
SetServiceUserAccount = False
err_text = "StartService Error " & RaiseAPIError()
GoTo ToExit
End If
sc.WaitForStatus(ServiceControllerStatus.Running, New TimeSpan(0, 0, 10))
' Stop the service
If ControlService(schService, SERVICE_CONTROL_STOP, Status) = False Then
SetServiceUserAccount = False
err_text = "ControlService Error " & RaiseAPIError()
GoTo ToExit
End If
sc.WaitForStatus(ServiceControllerStatus.Stopped, New TimeSpan(0, 0, 10))
ToExit:
If schService <> IntPtr.Zero Then CloseServiceHandle(schService)
If schSCManager <> IntPtr.Zero Then CloseServiceHandle(schSCManager)
End Function
Допиливать видимо придется, когда имплементиовать буду, но принципиально оно чего надо делает.
