WMI

• Cengiz Han / Mart 24, 2005
• 0 yorum

WMI sınıfları ile ilgili referans için MSDN'den şu adresi kontrol edebilirsiniz.

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/wmisdk/wmi/win32_classes.asp

WMI'dan bahsedip örnek kod yazamdan olmaz.

Sistemdeki paylaşımları listeleyen ve paylaşımı kaldırabilen, sisteme kayıtlı printerların isimlerini veren kod parçası:

        Imports System.Management

        'sistemdeki paylaşımları listele ve kaldır

        Dim x As New Management.ManagementObjectSearcher("SELECT * FROM Win32_Share")

        For Each obj As ManagementObject In x.Get

            MsgBox(obj("name"))

            If Not obj.Properties("Path").Value = "" Then 'IPC$ da hata vermemesi için

                obj.Delete() 'paylaşımı kaldır

            End If

        Next

        'printer listesi

        Dim x As New Management.ManagementObjectSearcher("SELECT * FROM Win32_Printer")

        For Each obj As ManagementObject In x.Get

            MsgBox(obj("name"))

        Next