Discussion :

[RomainDotNet]

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

[Dr_shaman]

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

un Exemple de code WMI:

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 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.

[Dr_shaman]

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)

[smerek]

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

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
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

[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'