vb.net - 如何使用 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 

Answer 1

您应该添加对 System.ServiceProcess 的引用通过右键单击项目并单击添加引用...并获取传递给 Main 的命令行参数来获取程序集像这样的方法:

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