mirror of
https://github.com/jakobadam/RDSFactor.git
synced 2025-06-05 12:07:14 +02:00
48 lines
2 KiB
VB.net
48 lines
2 KiB
VB.net
<System.ComponentModel.RunInstaller(True)> Partial Class ProjectInstaller
|
|
Inherits System.Configuration.Install.Installer
|
|
|
|
'Installer overrides dispose to clean up the component list.
|
|
<System.Diagnostics.DebuggerNonUserCode()> _
|
|
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
|
Try
|
|
If disposing AndAlso components IsNot Nothing Then
|
|
components.Dispose()
|
|
End If
|
|
Finally
|
|
MyBase.Dispose(disposing)
|
|
End Try
|
|
End Sub
|
|
|
|
'Required by the Component Designer
|
|
Private components As System.ComponentModel.IContainer
|
|
|
|
'NOTE: The following procedure is required by the Component Designer
|
|
'It can be modified using the Component Designer.
|
|
'Do not modify it using the code editor.
|
|
<System.Diagnostics.DebuggerStepThrough()> _
|
|
Private Sub InitializeComponent()
|
|
Me.ServiceProcessInstaller1 = New System.ServiceProcess.ServiceProcessInstaller()
|
|
Me.ServiceInstaller1 = New System.ServiceProcess.ServiceInstaller()
|
|
'
|
|
'ServiceProcessInstaller1
|
|
'
|
|
Me.ServiceProcessInstaller1.Account = System.ServiceProcess.ServiceAccount.LocalSystem
|
|
Me.ServiceProcessInstaller1.Password = Nothing
|
|
Me.ServiceProcessInstaller1.Username = Nothing
|
|
'
|
|
'ServiceInstaller1
|
|
'
|
|
Me.ServiceInstaller1.Description = "RDSFactor Radius Server"
|
|
Me.ServiceInstaller1.DisplayName = "RDSFactor Radius Server"
|
|
Me.ServiceInstaller1.ServiceName = "RDSFactor"
|
|
Me.ServiceInstaller1.StartType = System.ServiceProcess.ServiceStartMode.Automatic
|
|
'
|
|
'ProjectInstaller
|
|
'
|
|
Me.Installers.AddRange(New System.Configuration.Install.Installer() {Me.ServiceProcessInstaller1, Me.ServiceInstaller1})
|
|
|
|
End Sub
|
|
Friend WithEvents ServiceProcessInstaller1 As System.ServiceProcess.ServiceProcessInstaller
|
|
Friend WithEvents ServiceInstaller1 As System.ServiceProcess.ServiceInstaller
|
|
|
|
End Class
|