rundll32.exe devmgr.dll, DeviceManager_Execute

    Shell_Net("rundll32.exe", "devmgr.dll, DeviceManager_Execute", ProcessWindowStyle.Normal)


  Public Sub Shell_Net(ByVal PathName As String, _
                       Optional ByVal Parameters As String = vbNullString, _
                       Optional ByVal Style As ProcessWindowStyle = ProcessWindowStyle.Normal)
    Dim ExecInfo As New ProcessStartInfo
    With ExecInfo
      .FileName = PathName
      .Arguments = Parameters
      .WindowStyle = Style
    End With
    Process.Start(ExecInfo)
  End Sub

    Shell("rundll32.exe devmgr.dll, DeviceManager_Execute", AppWinStyle.NormalFocus)

    Shell("cmd /c rundll32.exe devmgr.dll, DeviceManager_Execute", AppWinStyle.NormalFocus)

    'закрываем Диспетчер Устройств
    Shell_Net("cmd", "/c taskkill.exe /f /im mmc.exe", ProcessWindowStyle.Hidden)

    'открываем Диспетчер Устройств
    If sys_WinXP Or sys_Win2003 Then
      Try : Shell_Net("mmc.exe", "devmgmt.msc", ProcessWindowStyle.Normal) : Catch : End Try
    Else
      If sys_Win10 And Environment.OSVersion.Version.Build > 16298 Then ' 16299 == 1709 == Fall Creator Update
        Try : Shell_Net("mmc.exe", "devmgmt.msc", ProcessWindowStyle.Normal) : Catch : End Try
      Else
        Try : Shell_Net("rundll32.exe", "devmgr.dll, DeviceManager_Execute", ProcessWindowStyle.Normal) : Catch : End Try
      End If
    End If