Public Class Sound
Dim con As ConnectionOptions = New ConnectionOptions
Dim machineName As String = System.Environment.MachineName
Dim mss As ManagementScope = New ManagementScope("\\" + machineName + "\root\cimv2", con)
Dim ob As ObjectQuery = New ObjectQuery("SELECT * FROM Win32_sounddevice")
Dim moss As ManagementObjectSearcher = New ManagementObjectSearcher(mss, ob)
Dim queryCollection As ManagementObjectCollection = moss.Get
Public Function Caption()
For Each getnow As ManagementObject In queryCollection
Caption = getnow("Caption")
Next
End Function
Public Function DeviceID()
For Each getnow As ManagementObject In queryCollection
DeviceID = getnow("DeviceID")
Next
End Function
End Class
Object In queryCollection
PrinterPortName.Add(getnow("PortName"))
Next
End Function
Public Function PrinterDeviceID() As System.Collections.ObjectModel.Collection(Of String)
PrinterDeviceID = New System.Collections.ObjectModel.Collection(Of String)
For Each getnow As ManagementObject In queryCollection
PrinterDeviceID.Add(getnow("DeviceID"))
Next
End Function
Public Function Hidden() As System.Collections.ObjectModel.Collection(Of String)
Hidden = New System.Collections.ObjectModel.Collection(Of String)
For Each getnow As ManagementObject In queryCollection
Hidden.Add(getnow("Hidden"))
Next
End Function
End Class
Please SUBSCRIBE to get new articles directly into your Email inbox!
Dim con As ConnectionOptions = New ConnectionOptions
Dim machineName As String = System.Environment.MachineName
Dim mss As ManagementScope = New ManagementScope("\\" + machineName + "\root\cimv2", con)
Dim ob As ObjectQuery = New ObjectQuery("SELECT * FROM Win32_sounddevice")
Dim moss As ManagementObjectSearcher = New ManagementObjectSearcher(mss, ob)
Dim queryCollection As ManagementObjectCollection = moss.Get
Public Function Caption()
For Each getnow As ManagementObject In queryCollection
Caption = getnow("Caption")
Next
End Function
Public Function DeviceID()
For Each getnow As ManagementObject In queryCollection
DeviceID = getnow("DeviceID")
Next
End Function
End Class
Object In queryCollection
PrinterPortName.Add(getnow("PortName"))
Next
End Function
Public Function PrinterDeviceID() As System.Collections.ObjectModel.Collection(Of String)
PrinterDeviceID = New System.Collections.ObjectModel.Collection(Of String)
For Each getnow As ManagementObject In queryCollection
PrinterDeviceID.Add(getnow("DeviceID"))
Next
End Function
Public Function Hidden() As System.Collections.ObjectModel.Collection(Of String)
Hidden = New System.Collections.ObjectModel.Collection(Of String)
For Each getnow As ManagementObject In queryCollection
Hidden.Add(getnow("Hidden"))
Next
End Function
End Class
Please SUBSCRIBE to get new articles directly into your Email inbox!
تعليقات
إرسال تعليق