And just for the fun of translating:
 Code:
$objConnection = GetObject("WinNT://" + "." + "/LanmanServer")
$colSessions = $objConnection.Sessions
$colResources = $objConnection.Resources

For Each $objResource in $colResources
  ? $objResource.Name
Next

For Each $objSession in $colSessions
  ? $objSession
Next