VB.NET을 사용하여 서비스를 다시 시작하는 방법은 무엇입니까?

Question

이제 VB.NET을 처음 사용하고 사용자에게 서버 이름을 묻는 메시지를 작성한 다음 해당 컴퓨터에서 IIS를 다시 시작하는 프로그램을 작성하려고합니다.

문제 1) 네임 스페이스 System.ServiceProcess이 인식되지 않습니다.
문제 2) 코드에 도움이 필요하며 servername을 sub로 전달해야합니다.

Imports System 
Imports System.ServiceProcess 
Imports System.IO 
Imports System.Threading 

Class RestartIIS 
    Shared Sub Main() 
     Run() 
    End Sub 

    Public Sub Run() 
     Console.WriteLine("Please enter the Server Name: ") 
     Dim ServerName As String = Console.ReadLine() 

     Dim sc As ServiceController = New ServiceController("W3SVC") 

     sc.Stop() 
     Thread.Sleep(2000) 
     sc.Start() 

     Console.Write("Press Enter to Exit") 
     Console.ReadLine() 
    End Sub 
End Class 

프로젝트를 클릭하고 참조 추가를 마우스 오른쪽 버튼으로 클릭하여 System.ServiceProcess 어셈블리에 대한 참조를 추가 ...이 같은 Main 방법에 전달 된 명령 행 인수 받아야

Answer 1

:

Imports System 
Imports System.ServiceProcess 
Imports System.IO 
Imports System.Threading 

Class RestartIIS 
    Shared Sub Main(ByVal commandLineArgs() as String) 
     Run(commandLineArgs(0)) 
    End Sub 

    Public Sub Run(ByVal machineName as String) 
     Console.WriteLine("Please enter the Server Name: ") 
     Dim ServerName As String = Console.ReadLine() 

     Dim sc As ServiceController = New ServiceController("W3SVC", machineName) 

     sc.Stop() 
     Thread.Sleep(2000) 
     sc.Start() 

     Console.Write("Press Enter to Exit") 
     Console.ReadLine() 
    End Sub 
End Class 

Answer 2

ServiceControl.Stop() 
Do 
    ServiceControl.Refresh() 
    If ServiceControl.Status = ServiceControllerStatus.Stopped Then 
     ServiceControl.Start() 
     Exit Do 
    End If 
Loop