VB.NET ManagementObject帮助

Question

我正在尝试创建一个函数，将映射的驱动器路径转换为UNC路径。 我进行了一次谷歌搜索，发现了关于此事的不同 页面 。 我对第一个最感兴趣，但是我似乎无法获得合作的代码。 由于原始帖子使用C＃，因此这是我的VB.NET转换：

Public Shared Function GetUniversalName(ByVal sFilePath As String) As String
    If sFilePath = String.Empty OrElse sFilePath.IndexOf(":") Then
        Return sFilePath
    End If
    If sFilePath.StartsWith("\") Then
        Return (New Uri(sFilePath)).ToString()
    End If

    Dim searcher As New ManagementObjectSearcher("SELECT RemoteName FROM win32_NetworkConnection WHERE LocalName = '" + sFilePath.Substring(0, 2) + "'")
    For Each managementObject As ManagementObject In searcher.[Get]()
        Dim sRemoteName As String = TryCast(managementObject("RemoteName"), String)
        sRemoteName += sFilePath.Substring(2)
        Return (New Uri(sRemoteName)).ToString()
    Next
    Return sFilePath
End Function

我已经导入了System.Management ，但是VS2008表示未定义ManagementObjectSearcher和ManagementObject 。 谁能将我推向正确的方向？

Answer 1

您还需要在引用中添加System.Management。