Public Class BaseBoard
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_BaseBoard")
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 Manufacturer()
For Each getnow As ManagementObject In queryCollection
Manufacturer = getnow("Manufacturer")
Next
End Function
Public Function Version()
For Each getnow As ManagementObject In queryCollection
Version = getnow("Version")
Next
End Function
Public Function HostingBoard()
For Each getnow As ManagementObject In queryCollection
HostingBoard = getnow("HostingBoard")
Next
End Function
Public Function Product()
For Each getnow As ManagementObject In queryCollection
Product = getnow("Product")
Next
End Function
Public Function SerialNumber()
For Each getnow As ManagementObject In queryCollection
SerialNumber = getnow("SerialNumber")
Next
End Function
Public Function PoweredOn()
For Each getnow As ManagementObject In queryCollection
PoweredOn = getnow("PoweredOn")
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_BaseBoard")
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 Manufacturer()
For Each getnow As ManagementObject In queryCollection
Manufacturer = getnow("Manufacturer")
Next
End Function
Public Function Version()
For Each getnow As ManagementObject In queryCollection
Version = getnow("Version")
Next
End Function
Public Function HostingBoard()
For Each getnow As ManagementObject In queryCollection
HostingBoard = getnow("HostingBoard")
Next
End Function
Public Function Product()
For Each getnow As ManagementObject In queryCollection
Product = getnow("Product")
Next
End Function
Public Function SerialNumber()
For Each getnow As ManagementObject In queryCollection
SerialNumber = getnow("SerialNumber")
Next
End Function
Public Function PoweredOn()
For Each getnow As ManagementObject In queryCollection
PoweredOn = getnow("PoweredOn")
Next
End Function
End Class
Please SUBSCRIBE to get new articles directly into your Email inbox!
تعليقات
إرسال تعليق