I just mashed this together using Kixomatic. See if it will get you going.
Break On
$strComputer = "."
$objWMIService = GetObject("winmgmts:\\" + $strComputer + "\root\cimv2")
$colItems = $objWMIService.ExecQuery("Select * from Win32_NetworkConnection",,48)
For each $objItem in $colItems
  if $objItem.Persistent
   "AccessMask: " + $objItem.AccessMask ?
   "Caption: " + $objItem.Caption ?
   "Comment: " + $objItem.Comment ?
   "ConnectionState: " + $objItem.ConnectionState ?
   "ConnectionType: " + $objItem.ConnectionType ?
   "Description: " + $objItem.Description ?
   "DisplayType: " + $objItem.DisplayType ?
   "InstallDate: " + $objItem.InstallDate ?
   "LocalName: " + $objItem.LocalName ?
   "Name: " + $objItem.Name ?
   "Persistent: " + $objItem.Persistent ?
   "ProviderName: " + $objItem.ProviderName ?
   "RemoteName: " + $objItem.RemoteName ?
   "RemotePath: " + $objItem.RemotePath ?
   "ResourceType: " + $objItem.ResourceType ?
   "Status: " + $objItem.Status ?
   "UserName: " + $objItem.UserName ?
   ?
  endif
Next
_________________________
(... better days ahead)