Как адаптировать код WMI под код Visual Studio 2010?

strComputer = "." 
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root
 
\CIMV2") 
Set colItems = objWMIService.ExecQuery( _
    "SELECT * FROM Win32_BaseBoard",,48) 
For Each objItem in colItems 
    Wscript.Echo "-----------------------------------"
    Wscript.Echo "Win32_BaseBoard instance"
    Wscript.Echo "-----------------------------------"
    Wscript.Echo "Product: " & objItem.Product
Next

Dim objWMIService As Object = GetObject("winmgmts:\\.\root\CIMV2").ExecQuery("SELECT * FROM Win32_BaseBoard")
        For Each objItem In objWMIService
            Debug.Print("-----------------------------------")
            Debug.Print("Win32_BaseBoard instance")
            Debug.Print("-----------------------------------")
            Debug.Print("Product: " & objItem.Product)
        Next

Dim objWMIService As Object = GetObject("winmgmts:\\.\root\CIMV2").ExecQuery("SELECT * FROM Win32_BaseBoard")
Dim cnt as integer = 0
        For Each objItem In objWMIService
         if objItem.Product <> "" then
             cnt += 1
            Label1.text &= "Планка" & cnt & ": " & objItem.Product & vbcrlf
         End if           
        Next