1 Тема от grizzlynet

  • grizzlynet
  • Участник
  • Неактивен

Тема: VBScript: Закрытие сетевых соединений NET SESSIONS

Привет всем! Ищу информацию по закрытию соединений утелиты net sessions,  средствами vbs.

2 Ответ от Xameleon

  • Xameleon
  • Разработчик
  • Неактивен

Re: VBScript: Закрытие сетевых соединений NET SESSIONS


Option Explicit
Dim objConnection, colSessions, objSession, tmpStr
Set objConnection = GetObject("WinNT://./LanmanServer")
Set colSessions = objConnection.Sessions
For Each objSession in colSessions
    tmpStr = tmpStr &   "Computer: " & objSession.Computer & vbCrlf &_
                        "Connected Time: " & objSession.ConnectTime & vbCrlf &_
                        "Idle Time: " & objSession.IdleTime & vbCrlf &_
                        "Name: " & objSession.Name & vbCrlf &_
                        "User: " & objSession.User & vbCrlf &_
                        String(30,"-") & vbCrlf
    colSessions.Remove objSession.Name
Next

MsgBox "Следующие соединения были закрыты:" & String(2,vbCrlf) & tmpStr, vbInformation, "WMI Sample"
Передумал переделывать мир. Пашет и так, ну и ладно. Сделаю лучше свой !

3 Ответ от Rom5

  • Rom5
  • Участник
  • Неактивен

Re: VBScript: Закрытие сетевых соединений NET SESSIONS

Offtop
Когда-то давно - ещё на WinXP приходилось периодически (когда народу сообщалось об обновлении данных на шаре) запускать следующий батник для того, чтобы закрывать соединения, по которым не было открытых файлов. Когда повсеместно контора перешла на Win7, то о такой проблеме забыли, а в древние времена батник был актуален:

net_sess.bat

+ открыть спойлер

:: Крутится в непрерывном цикле и закрывает сетевые соединение, которые без открытых файлов

:CHEK_SESSION
@Echo.
@Echo ------------
@Echo.
::@ time /t
@Echo.|time|find "is:"

:: формируем файл со списком подключеных машин
@net session | find "Windows 2002 Serv     0 00:0" > net_sess.txt
@FOR /F "tokens=1" %%i in (net_sess.txt) do @Goto DEL_SESSION
@GOTO WAITING

:DEL_SESSION
:: Показываем весь список и удаляем подключенных без открытых файлов
NET SESSION

@FOR /F "tokens=1" %%i in (net_sess.txt) do ECHO N | NET SESSION %%i /D
@Echo.
NET SESSION

@Echo.
@Echo.|time|find "is:"

:WAITING
@Echo Waiting ~90 sec ......
@ping -n 90 127.0.0.1>nul
@goto CHEK_SESSION


:THE_END
WBR. Roman

4 Ответ от grizzlynet (изменено: grizzlynet, 2013-10-21 15:49:48)

  • grizzlynet
  • Участник
  • Неактивен

Re: VBScript: Закрытие сетевых соединений NET SESSIONS

Xameleon, то что надо спасибо, и у Вас Rom5 тоже интересный скрипт.
Да и ещё, возможно ли закрывать  файлы, открытые  по сети (fsmgmt.msc)?
По видимому, пока пользователь не закроет файл открытый по сети он будет активный...