Dim objWMI, objCollection
Dim strComputer, strSharedRes, strTemp
strComputer = "." 'компьютер, на котором запущен сценарий
Set objWMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set objCollection = objWMI.ExecQuery("SELECT * FROM Win32_Share")
If objCollection.Count > 0 Then
For Each objItem In objCollection
strTemp = objItem.Name
If Right(strTemp, 1) <> "$" Then
strSharedRes = strSharedRes & strTemp & " <=> " & objItem.Path & vbCr
End If
Next
End If
If Len(strSharedRes) > 0 Then
Wscript.Echo strSharedRes
Else
Wscript.Echo "Ресурсов общего доступа не найдено."
End If
Set objCollection = Nothing
Set objWMI = Nothing
VBS: Пара вопросов.
1) Можно ли как-нибуть мониторить создаваемые tcp\ip сессии с сервером? (Возможно совместно с WMI...)
2) Как проверить есть ли какие-нибуть вообще шары на компе, вот если определенную- то просто, а как вообще проверить шары...
2) Как проверить есть ли какие-нибуть вообще шары на компе, вот если определенную- то просто, а как вообще проверить шары...
Цитата: quasitron
... Как проверить есть ли какие-нибуть вообще шары на компе, вот если определенную- то просто, а как вообще проверить шары...
Например, так:
Код:
[color=blue]Примечания.
- для работы этого сценария нужны права администратора на проверяемой станции;
- для работы с удалённой станцией укажите в качестве значения переменной strComputer соответствующее DNS-имя.
[/color]
Хм, вообще я имел в виду что-то вроде сканера, вот если дял определенной шары, можно к примеру просто читать её по сети с нужных хостов- так можно узнать есть ли такая шара... Просто доступа к хостам на которых нужно проверить- нет.