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

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

2013-10-21T11:47:35Z

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

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

2013-10-18T13:49:07Z

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

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

2013-10-18T12:38:09Z


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"

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

2013-10-18T11:48:17Z

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