Chris Domingo
New member
- Joined
- Aug 3, 2011
- Messages
- 1
- Location
- Houston, Texas, United States
- Programming Experience
- Beginner
I am having a problem figuring this out. The text that is bold is where the problem is. Any help would be appreciated.
Imports Microsoft.Win32
Console.WriteLine(WMILookup("Win32_Bios","SerialNumber"))
Private Function WMILookup(ByVal WMIClass as String,ByVal WMIItem as String) As String
Dim WMI As Object = GetObject("WinMgmts:")
Dim WMIReturn As String = ""
Dim WMIClassObject As Object = wmi.InstancesOf(WMIClass)
For Each WMIItems As Object In WMIClassObject
WMIReturn &= ", " & WMIItems.WMIItem
Next WMIItems
If WMIReturn.Length > 0 Then WMIReturn = WMIReturn.Substring(2)
Return WMIReturn
End Function
This function without the second argument works fine
Imports Microsoft.Win32
Console.WriteLine(WMILookup("Win32_Bios"))
Private Function WMILookup(ByVal WMIClass as String) As String
Dim WMI As Object = GetObject("WinMgmts:")
Dim WMIReturn As String = ""
Dim WMIClassObject As Object = wmi.InstancesOf(WMIClass)
For Each WMIItems As Object In WMIClassObject
WMIReturn &= ", " & WMIItems.SerialNumber
Next WMIItems
If WMIReturn.Length > 0 Then WMIReturn = WMIReturn.Substring(2)
Return WMIReturn
End Function
Imports Microsoft.Win32
Console.WriteLine(WMILookup("Win32_Bios","SerialNumber"))
Private Function WMILookup(ByVal WMIClass as String,ByVal WMIItem as String) As String
Dim WMI As Object = GetObject("WinMgmts:")
Dim WMIReturn As String = ""
Dim WMIClassObject As Object = wmi.InstancesOf(WMIClass)
For Each WMIItems As Object In WMIClassObject
WMIReturn &= ", " & WMIItems.WMIItem
Next WMIItems
If WMIReturn.Length > 0 Then WMIReturn = WMIReturn.Substring(2)
Return WMIReturn
End Function
This function without the second argument works fine
Imports Microsoft.Win32
Console.WriteLine(WMILookup("Win32_Bios"))
Private Function WMILookup(ByVal WMIClass as String) As String
Dim WMI As Object = GetObject("WinMgmts:")
Dim WMIReturn As String = ""
Dim WMIClassObject As Object = wmi.InstancesOf(WMIClass)
For Each WMIItems As Object In WMIClassObject
WMIReturn &= ", " & WMIItems.SerialNumber
Next WMIItems
If WMIReturn.Length > 0 Then WMIReturn = WMIReturn.Substring(2)
Return WMIReturn
End Function