'*** 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