Discussion :

[witch]

Bonjour,

Voilà je cherche toujours s'il y a un moyen pour récupérer la langue utilisée sur une machine dont je connais le nom, et dont j'ai l'accès bien évidemment...
je connais le moyen pour faire ça en local, mais ça ne répond pas à mon besoin, j'ai essayé de voir si c'est possible de faire ça via AD et je cherche toujours, on m'a proposé de faire via la base de registre, mais j'ignore comment aussi

++

[witch]

J'ai fouillé un peu du coté WMI et j'ai trouvé un lien intéressant :
http://msdn.microsoft.com/en-us/library/ms186138.aspx
j'aimerai bien voir un exemple pour récupérer les info d'une machine distante...

[witch]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
 Dim servername As String = "."
        Dim scope As ManagementScope
        scope = New ManagementScope( _
            "\\" & servername & "\root\cimv2")
        scope.Connect()
 
        ' Query system for Operating System information
        Dim str As String = ""
        Dim query As ObjectQuery
        query = New ObjectQuery( _
            "SELECT * FROM Win32_OperatingSystem")
        Dim searcher As ManagementObjectSearcher
        searcher = _
            New ManagementObjectSearcher(scope, query)
 
        Dim queryCollection As ManagementObjectCollection
        queryCollection = searcher.Get()
 
        Dim m As ManagementObject
        For Each m In queryCollection
            ' Display the remote computer information
            str = "Computer Name : " & m("csname") & vbCr
            str += "Windows Directory : " & m("WindowsDirectory") & vbCr
            str += "Operating System: " & m("Caption") & vbCr
            str += "Version:  " & m("Version") & vbCr
            str += "Manufacturer : " & m("Manufacturer") & vbCr
            str += "Language  : " & m("OSLanguage") & vbCr
        Next

résolu