http://dieseyer.de • all rights reserved • © 2011 v11.4

'*** v9.A *** www.dieseyer.de ******************************
'
' Datei: offenedateien.vbs
' Autor: dieseyer@gmx.de
' Auf: www.dieseyer.de
'
'
'***********************************************************

Option Explicit ' Siehe http://dieseyer.de/dse-wsh-lernen.html#OptionExpl

Dim Txt
Dim DateiDienst 'IADsFileService
Dim GeoeffenteRessource 'IADsResource

Dim PC
PC = "."


Set DateiDienst = GetObject("WinNT://" & PC & "/lanmanserver,fileservice")
Txt = ""
For Each GeoeffenteRessource In DateiDienst.Resources
Txt = Txt & vbCRLF & vbCRLF & GeoeffenteRessource.Path & vbTab & GeoeffenteRessource.User & vbTab & GeoeffenteRessource.LockCount
Next

MsgBox Txt, , "26 :: " & WScript.Quit

http://dieseyer.de • all rights reserved • © 2011 v11.4