On Error Resume Next 
strComputer = "." 
Set objWMIService = GetObject("winmgmts:\\"  strComputer  "\root\cimv2") 
Set colItems = objWMIService.ExecQuery("Select * from Win32_NetworkConnection") 
For Each objItem in colItems 
    Wscript.Echo "Access Mask: "  objItem.AccessMask 
    Wscript.Echo "Caption: "  objItem.Caption 
    Wscript.Echo "Connection State: "  objItem.ConnectionState 
    Wscript.Echo "Connection Type: "  objItem.ConnectionType 
    Wscript.Echo "Description: "  objItem.Description 
    Wscript.Echo "Display Type: "  objItem.DisplayType 
    Wscript.Echo "Local Name: "  objItem.LocalName 
    Wscript.Echo "Name: "  objItem.Name 
    Wscript.Echo "Persistent: "  objItem.Persistent 
    Wscript.Echo "Provider Name: "  objItem.ProviderName 
    Wscript.Echo "Remote Name: "  objItem.RemoteName 
    Wscript.Echo "Remote Path: "  objItem.RemotePath 
    Wscript.Echo "Resource Type: "  objItem.ResourceType 
    Wscript.Echo "User Name: "  objItem.UserName 
    Wscript.Echo 
Next