VB.NET ManagementObject 帮助

Question

我正在尝试创建一个函数来将映射的驱动器路径转换为 ​​UNC 路径。我做了一些谷歌搜索，发现severaldifferentpages就此事。我对第一个最感兴趣，但我似乎无法让代码配合。由于原始帖子是用 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。