имеем такой вот скрипт
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
et oADSIFileService = GetObject("WinNT://./LanManServer")
LastUser = ""
Folder = LCase("S:\DB\")
If IsEmpty(oADSIFileService) = False Then
Do
SessionWasDeleted = False
For Each adsResource In oADSIFileService.Resources
ResUser = LCase(adsResource.User)
ResPath = CStr(LCase(adsResource.Path))
If InStr( 1 , ResPath, Folder) <> 0 Then
For Each adsSession In oADSIFileService.Sessions
SessName = adsSession.Name
SessUser = LCase(adsSession.User)
If SessUser = ResUser Then
oADSIFileService.Sessions.Remove SessName
SessionWasDeleted = True
End If
Next
Exit For
End If
Next
Loop Until SessionWasDeleted = False
End If
он прекрасно работал, пока что-то не случилось.
теперь строка
For Each adsResource In oADSIFileService.Resources
выпадает с ошибкой, что данное свойство для объекта не доступно
что могло случиться? винда 2008 сервак
