Script to Display Locked Files on a Server

The following is a handy VB Script that will output all the open file information on a server.
I intend to use this to create a help desk tool that will show who has a file locked, as this is
a common Help Desk. I will post the full util code once i get it written

Set objContainer = Getobject("WinNT://domain/server/LanmanServer")
For Each objResource in objContainer.Resources
wscript.echo objResource.user & vbtab & objResource.lockcount & vbtab & objResource.path
Next