Commande WMI de VBScript vers VB.NET

Bonjour,

J'ai cet commande fonctionnel en VBScript :

Code:

1
2
3
4
5
6
7
8
9
10
11
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strNextLine & "\root\default:StdRegProv")
oReg.GetMultiStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,arrValues
 
For Each strValue In arrValues
 if (right(strvalue,1)) = 1 then
  strRegInfo = "Primaire"
  (left(strValue,30))
 else
  strRegInfo = "Secondaire"
 end if
Next

J'essaie de trouvé une équivalence en VB.NET mais je n'arrive pas à trouvé.
Merci de votre aide!