Beyler ben biliyorsunuz system ınformation ustunde calisiyorum.Ama sabah bir baktim pcinfo.vb adli bir class'da bir fonksiyon yanlis calisiyor ve generic failure diyor.Aksam bir sorun yoktu.Sorun ney olabilir...

Kodlar :

Public Function printers() As Hashtable
Dim yaziciHash As New Hashtable
Dim printerSinif As New Management.ManagementClass("Win32_Printer")
Dim printerKoleksiyon As Management.ManagementObjectCollection = printerSinif.GetInstances
Dim printerNesne As Management.ManagementObject
Dim printerSayac As Integer = 0
For Each printerNesne In printerKoleksiyon
yaziciHash.Add(printerSayac, printerNesne("Name"))
printerSayac += 1

Next printerNesne
Return yaziciHash
End Function
__________________