Archief - [PROG][VB.NET] WMI & Win32_Service

        Dim myConnectionOptions As New Management.ConnectionOptions
        With myConnectionOptions
            .Impersonation = Management.ImpersonationLevel.Impersonate
            .Authentication = Management.AuthenticationLevel.Packet
            '* Use next line for Win prior XP
            '*.Authentication = System.Management.AuthenticationLevel.Connect
        End With

        Dim myManagementScope As System.Management.ManagementScope
        myManagementScope = New System.Management.ManagementScope("root\cimv2", myConnectionOptions)
        myManagementScope.Connect()
        If myManagementScope.IsConnected = False Then
            MessageBox.Show("Could not connect to WMI namespace")

        Else
            Dim query As New Management.ObjectQuery("SELECT * FROM Win32_Service")
            Dim MySearcher As New Management.ManagementObjectSearcher(query)

            For Each Mgmt As Management.ManagementObject In MySearcher.Get()
                ListBox1.Items.Add(Mgmt("Caption").ToString)
                If Mgmt("Name").ToString = "MySQL" Then
                    MessageBox.Show("Hit")
                    Dim Parameters() As String = {"Manual"}
                    Dim ReturnValue As Object = Mgmt.InvokeMethod("ChangeStartMode", Parameters)
                    'displays return value, a "0" indicates success (see documentation link for all return values)
                    MessageBox.Show(ReturnValue.ToString)
                    Exit For
                End If
            Next
        End If