How to get Network Connection names

[mixim]

#Include <process.au3>
#include <GuiConstants.au3>

Dim $i, $base, $key, $name
$base = "HKLM\SYSTEM\ControlSet001\Control\Network\{4D36E972-E325-11CE-BFC1-08002BE10318}"

 $key = RegEnumKey($base, $i)
 $name = RegRead($base & "\" & $key & "\Connection", "Name")
 RunWait(@SystemDir & '\netsh interface set interface name="Network Connection Names" admin=DISABLED"')

I found these codes from another source.  How to write "Network Connection Names" automatic

i sorry for my english, i hope to tell my problem   thanks

 

Edited August 24, 2017 by mixim

[mixim]

I did it at the end 

I found it in ACalcutt friend's archive. Thanks him

Edited August 24, 2017 by mixim