Main()
Sub Main()
 const HKEY_LOCAL_MACHINE = &H80000002 
 strComputer = "."    

 Set oReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
 
 strKeyPath = "SYSTEM\CurrentControlSet\Services\Tcpip\Linkage"
 strValueName = "Bind"          
 oReg.GetMultiStringValue HKEY_LOCAL_MACHINE, strKeyPath, strValueName, arrValues
 
 Dim colNewVals           
 Set colNewVals = CreateObject("Scripting.Dictionary")   
 
 flag = false
 For Each strValue In arrValues
  If strValue = "\Device\NdisWanIp" Then
   colNewVals.Add 0, strValue
   flag = true
   Exit For
  End If     
 Next
 
 If flag = false Then
  Exit Sub
 End If
  
 i = 1
 For Each strValue In arrValues
  If strValue <> "\Device\NdisWanIp" Then
   colNewVals.Add i, strValue  
   i = i + 1
  End If     
 Next
 
 oReg.SetMultiStringValue HKEY_LOCAL_MACHINE, strKeyPath, strValueName,colNewVals.Items
 
End Sub