Aide de VB.NET ManagementObject

Question

J'essaie de créer une fonction pour convertir un chemin de lecteur mappé en un chemin UNC. J'ai fait un peu de googling et trouvé severaldifferentpages sur le sujet. Je suis très intéressé par le premier, mais je n'arrive pas à obtenir le code pour coopérer. Depuis le poste d'origine était en C#, voici ma conversion 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 

J'ai importé System.Management, mais VS2008 dit ManagementObjectSearcher et ManagementObject ne sont pas définis. Quelqu'un peut-il me pousser dans la bonne direction?

Answer 1

Vous devez également ajouter System.Management dans vos références.