>>366
net useの結果を加工すればいいけど、vbsで組んだほうが簡単かも。
スレ違いごめん。

on error resume next

strComputer = "."
set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
set colItems = objWMIService.ExecQuery("Select * from Win32_NetworkConnection",,48)

for each objitem in colItems
if objItem.LocalName <> "" then
Wscript.Echo objItem.LocalName
end if
next