Discussion :

[Kropernic]

Hello,

Dans le cadre d'une application, j'ai besoin de savoir où se trouve l'utilisateur qui utilise l'application en question.

Suivant leur localisations, les utilisateurs passent via l'un ou l'autre serveur.
Je peux le savoir en récupérant le nom du serveur qui se cache derrière le drive U: du user mais je n'arrive précisément pas à récupérer le nom de ce serveur.

Pour avoir le U, pas de problème mais le nom complet, je sèche totalement.

Quelqu'un aurait-il une idée?

Merci d'avance.

Griftou.

[tomlev]

WMI à la rescousse

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Imports System.Management
 
...
    Private Function GetServerName(ByVal driveName As String) As String
        Dim scope As ManagementScope = New ManagementScope("root\cimv2")
        Dim query As ObjectQuery = New ObjectQuery(String.Format("SELECT * FROM Win32_LogicalDisk WHERE Name = '{0}'", driveName))
        Dim searcher As ManagementObjectSearcher = New ManagementObjectSearcher(scope, query)
        For Each obj As ManagementObject In searcher.[Get]()
            Return TryCast(obj("ProviderName"), String)
        Next
        Return Nothing
    End Function

[Kropernic]

Mon VS2005 ne veut pas de ton Imports System.Management

EDIT : ça marche tout de suite mieux quand on l'ajoute dans les références

EDIT : Testé et approuvé !!! Un tout grand merci !