Ru-Board.club
← Вернуться в раздел «Microsoft Windows»

» Инфо о пользователях подключенных к термин.серверу Win2003

Автор: FANTAzeRus
Дата сообщения: 21.05.2004 07:56
Где хранится информация о поьзователях подключенных к терминальному серверу Win2003??? Стандартные средства диагностики не предлагать!!! Нужен как раз первоисточник, есть подозрения что личо реестр, либо в файле ...
Автор: Xel
Дата сообщения: 21.05.2004 10:05
Если имеется в виду настройки и т.п., то как обычно:
HKEY_Users и Documents And Settings
Это ж такие же пользователи, просто не с несколко иными правами!

Если я правильно понял вопрос!
Автор: FANTAzeRus
Дата сообщения: 24.05.2004 15:15
Мне нужно промониторить Активных(Подключенных пользователей) к терминальному серверу минуя стандартные утилиты! А вот откуда инфу брать?
Автор: Xel
Дата сообщения: 25.05.2004 06:58

Цитата:
А вот откуда инфу брать?

Такое не пойдет?

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_LogonSession",,48)
For Each objItem in colItems
WScript.Echo "AuthenticationPackage: " & objItem.AuthenticationPackage
WScript.Echo "Caption: " & objItem.Caption
WScript.Echo "Description: " & objItem.Description
WScript.Echo "InstallDate: " & objItem.InstallDate
WScript.Echo "LogonId: " & objItem.LogonId
WScript.Echo "LogonType: " & objItem.LogonType
WScript.Echo "Name: " & objItem.Name
WScript.Echo "StartTime: " & objItem.StartTime
WScript.Echo "Status: " & objItem.Status
Next
Или

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_ServerConnection",,48)
For Each objItem in colItems
WScript.Echo "ActiveTime: " & objItem.ActiveTime
WScript.Echo "Caption: " & objItem.Caption
WScript.Echo "ComputerName: " & objItem.ComputerName
WScript.Echo "ConnectionID: " & objItem.ConnectionID
WScript.Echo "Description: " & objItem.Description
WScript.Echo "InstallDate: " & objItem.InstallDate
WScript.Echo "Name: " & objItem.Name
WScript.Echo "NumberOfFiles: " & objItem.NumberOfFiles
WScript.Echo "NumberOfUsers: " & objItem.NumberOfUsers
WScript.Echo "ShareName: " & objItem.ShareName
WScript.Echo "Status: " & objItem.Status
WScript.Echo "UserName: " & objItem.UserName
Next

ИЛИ

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_ServerSession",,48)
For Each objItem in colItems
WScript.Echo "ActiveTime: " & objItem.ActiveTime
WScript.Echo "Caption: " & objItem.Caption
WScript.Echo "ClientType: " & objItem.ClientType
WScript.Echo "ComputerName: " & objItem.ComputerName
WScript.Echo "Description: " & objItem.Description
WScript.Echo "IdleTime: " & objItem.IdleTime
WScript.Echo "InstallDate: " & objItem.InstallDate
WScript.Echo "Name: " & objItem.Name
WScript.Echo "ResourcesOpened: " & objItem.ResourcesOpened
WScript.Echo "SessionType: " & objItem.SessionType
WScript.Echo "Status: " & objItem.Status
WScript.Echo "TransportName: " & objItem.TransportName
WScript.Echo "UserName: " & objItem.UserName
Next

ИЛИ

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_Terminal",,48)
For Each objItem in colItems
WScript.Echo "Caption: " & objItem.Caption
WScript.Echo "Description: " & objItem.Description
WScript.Echo "fEnableTerminal: " & objItem.fEnableTerminal
WScript.Echo "InstallDate: " & objItem.InstallDate
WScript.Echo "Name: " & objItem.Name
WScript.Echo "Status: " & objItem.Status
WScript.Echo "TerminalName: " & objItem.TerminalName
Next

Страницы: 1

Предыдущая тема: Софт модем на Linux не встает


Форум Ru-Board.club — поднят 15-09-2016 числа. Цель - сохранить наследие старого Ru-Board, истории становления российского интернета. Сделано для людей.