Interrogation réseau via WMI

Version imprimable

12/06/2008, 11h15
RomainDotNet

Interrogation réseau via WMI

Bonjour à tous,
Je developpe une application en VB.NET et j'aurais besoin d'interroger des périphérique sur mon réseau pour savoir si le service SNMP est installé sur ceux-ci.
Je pense que c'est faisable via WMI, auriez vous des piste SVP?
Merci d'avance pour votre aide

WMI

OUI c'est fesable via WMI cherche sur Google autour de "Scriptomatic"

un Exemple de code WMI:

Code:

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 oq As System.Management.ObjectQuery
        Dim query As System.Management.ManagementObjectSearcher
        Dim ms As System.Management.ManagementScope
        Dim queryCollection As System.Management.ManagementObjectCollection
 
        Dim MonMO As System.Management.ManagementObject
        Dim OccupationDisk As Double = 0
        Dim co As New System.Management.ConnectionOptions()
        co.Impersonation = Management.ImpersonationLevel.Impersonate
 
   Try
            ms = New System.Management.ManagementScope("\\.\root\cimv2", co)
            oq = New System.Management.ObjectQuery("SELECT * FROM Win32_LogicalDisk WHEREDeviceID=""I:""")
 
            query = New System.Management.ManagementObjectSearcher(ms, oq)
            queryCollection = query.Get()
            For Each MonMO In queryCollection
                Dim prop As System.Management.PropertyData
 
                For Each prop In MonMO.Properties
 
                    Console.WriteLine(prop.Name & " ::::" & prop.Value)
                Next
            Next
        Catch ex As Exception
        Finally
        End Try

Ensuite dans Scriptomatic tu a plus qu'a chercher process et dans process tu cherche ton service SNMP.

20/06/2008, 10h26
Dr_shaman

corection

Désoler en faite c'est dans Win32_Service et pas dans Win32_process

et pour choisire le serveur change AdresseDuServeur par l'IP de ton serveur dans scriptomatic :
Set objWMIService = GetObject(AdresseDuServeur "\root\CIMV2")
et le . par par l'IP de ton serveur dans le code
ms = New System.Management.ManagementScope("\\.\root\cimv2", co)

Si au niveau de la connexion, tu nécessites une identification :

Code:

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
29
 
Dim myConnectionOptions As New ConnectionOptions
With myConnectionOptions
       .Username = "monNomdAdministrateur"
       .Password = "monPassword"
End With
Dim myManagementScope As ManagementScope
myManagementScope = New ManagementScope("\\MONPC\root\cimv2", myConnectionOptions)
 myManagementScope.Connect()
 If myManagementScope.IsConnected = True Then
'on est connecte, on peut faire les requetes WMI à souhaits
Dim QueryServices As ObjectQuery = New System.Management.ObjectQuery("select * from Win32_Service Where Name='SNMP'")
Dim ServicesObjectSearcher As ManagementObjectSearcher = New ManagementObjectSearcher(myManagementScope, QueryServices)
Dim ServicesObjectCollection As ManagementObjectCollection = ServicesObjectSearcher.Get()
Dim objServices As ManagementObject
Dim sNomService As String
Dim nAllume
For Each objServices In ServicesObjectCollection
   For Each oService In tListeServicesATester
       If UCase(objServices("Name")) = "SNMP" Then
            nAllume = Int(objServices("Started"))
       End If
   Next
Next
If nAllume = 1 Then
    MessageBox.Shox("Allumé")
Else
    MessageBox.Sho("Eteind")
End If

20/06/2008, 14h42
RomainDotNet

Merci à tous d'avoir pris la peine de regarder,
Je vais me pencher sur les idées que vous m'avez fourni,
je vous tiens au courant,
merci,
Bonne aprem'