1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
|
Imports System.Management
Try
Dim searcher As New ManagementObjectSearcher( _
"root\CIMV2", _
"SELECT * FROM Win32_Share")
For Each queryObj As ManagementObject in searcher.Get()
Console.WriteLine("-----------------------------------")
Console.WriteLine("Instances dans Win32_Share ")
Console.WriteLine("-----------------------------------")
Console.WriteLine("Name: {0}", queryObj("Name"))
Next
Catch err As ManagementException
MessageBox.Show("Err WMI data: " & err.Message)
End Try |
Partager