On&nbs
p;Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" &
amp; strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select *
From Win32_NetworkConnection")
For
each ob
JITem in colItems
Wscript.Echo "Access 
;mask: " & objItem.AccessMask
Wscript.Echo "Caption: " & objItem.Caption
Wscript.Echo "Connection
state: " & objItem.ConnectionState
Wscript.Echo "Connection Ty
PE: " & objItem.ConnectionType
Wscript.Echo "Description: " & objItem.Description
Wscript.Echo "Dis
play 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