runas /user:Administrator@domain.org "cmd /K \"cscript d:\files.vbs\""
OPTION EXPLICIT Dim DateiDienst 'IADsFileService Dim GeoeffenteRessource 'IADsResource Set DateiDienst = GetObject("WinNT://srvfs01/lanmanserver,fileservice") For Each GeoeffenteRessource In DateiDienst.Resources WScript.Echo "Geöffenete Datei .:" & vbTab & GeoeffenteRessource.Path WScript.Echo "Zugriff durch ....:" & vbTab & GeoeffenteRessource.User WScript.Echo "Anzahl Sperren ...:" & vbTab & GeoeffenteRessource.LockCount WScript.Echo "-------------------------------------" Next |