Відповіді:
не GUI, але:
for /L %x in (2,1,254) do psloggedon \\172.21.0.%x
зробить сканування з 172.21.0.2-254. Ви також можете гніздо:
for /L %z in (16,1,31) do for /L %x in (1,1,254) do psloggedon \\172.21.%y.%x
Це сканує підмережі 172.21. {16-31} .x.
Я знайшов цей сценарій . Він сканує цілий домен і дає хороший вихід (ім'я комп'ютера та ім’я користувача).
whoisloggedinwhere.bat> users.txt
@echo off сетлокальні для / f "Токени = 1" %% c in ('чистий перегляд / домен: "% USERDOMAIN%" ^ | Findstr / L / C: "\\"') do ( для / f "Tokens = *" %% u in ('PsLoggedOn -L %% c ^ | find / i "% USERDOMAIN% \"') do ( виклик: доповідь %% c "%% u" ) ) ендокалі goto: EOF : доповідь встановити роботу =% 1 встановити комп =% робота: ~ 2% встановити користувача =% 2 set user =% user: "=% користувач набору викликів = %% користувач: *% USERDOMAIN% \ = %% @echo% comp%% user%
Цей сценарій використовує PsLoggedOn .
Спробуйте nbtstat -a <computername>
Я записую ім’я користувача у властивість опису комп'ютера за допомогою сценарію входу, який дозволяє мені бачити все в AD Users & Computers, здійснювати пошук по ньому тощо. Дуже зручно.
Якщо сервери виконують служби Terminal Services, ви можете використовувати Terminal Services Manager для перегляду серверів у домені та тих, хто в них увійшов. Це графічний інтерфейс і його можна знайти в розділі
Start -> Administrative Tools -> Terminal Services Manager
Ви можете виявити, що користувач локально ввійшов на робочу станцію, запитуючи WMI за допомогою наступного сценарію PowerShell. Він повертає ім’я того, хто зареєстрований локально або порожній рядок.
function logged_in($host_name) {
(get-wmiobject -class Win32_ComputerSystem -computername $host_name `
-namespace "root\CIMV2").UserName
}
Я не впевнений, де я його взяв, але у мене є цей код, який показує користувачів на машині. Ви можете обернути це для кожного циклу, щоб сканувати купу машин. Я б сказав, що якщо ви хочете знати, хто ввійшов у систему, найпростіший спосіб - увімкнути аудит входу та подивитися (або запитувати) журнал безпеки. Ось код, щоб побачити, хто працює у будь-який момент:
' PARAMETERS
'
strComputer = "machineName" ' use "." for local computer
strUser = "domain\user" ' comment this line for current user
strPassword = "password" ' comment this line for current user
' CONSTANTS
'
wbemImpersonationLevelImpersonate = 3
wbemAuthenticationLevelPktPrivacy = 6
'=======================================================================
' MAIN
'=======================================================================
' Connect to machine
'
If Not strUser = "" Then
' Connect using user and password
'
Set objLocator = CreateObject("WbemScripting.SWbemLocator")
Set objWMI = objLocator.ConnectServer _
(strComputer, "root\cimv2", strUser, strPassword)
objWMI.Security_.ImpersonationLevel = wbemImpersonationLevelImpersonate
objWMI.Security_.AuthenticationLevel = wbemAuthenticationLevelPktPrivacy
Else
' Connect using current user
'
Set objWMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
End If
' Get OS name
'
Set colOS = objWMI.InstancesOf ("Win32_OperatingSystem")
For Each objOS in colOS
strName = objOS.Name
Next
If Instr(strName, "Windows 2000") > 0 Then
'-------------------------------------------------------------------
' Code for Windows 2000
'-------------------------------------------------------------------
' Get user name
'
Set colComputer = objWMI.ExecQuery("Select * from Win32_ComputerSystem")
For Each objComputer in colComputer
Wscript.Echo "User: " & objComputer.UserName
Next
' ------------------------------------------------------------------
Else
' ------------------------------------------------------------------
' Code for Windows XP or later
' ------------------------------------------------------------------
' Get interactive session
'
Set colSessions = objWMI.ExecQuery _
("Select * from Win32_LogonSession Where LogonType = 2")
If colSessions.Count = 0 Then
' No interactive session found
'
Wscript.Echo "No interactive user found"
Else
'Interactive session found
'
For Each objSession in colSessions
Set colList = objWMI.ExecQuery("Associators of " _
& "{Win32_LogonSession.LogonId=" & objSession.LogonId & "} " _
& "Where AssocClass=Win32_LoggedOnUser Role=Dependent" )
' Show user info
'
For Each objItem in colList
WScript.Echo "User: " & objItem.Name
WScript.Echo "FullName: " & objItem.FullName
WScript.Echo "Domain: " & objItem.Domain
Next
' Show session start time
'
Wscript.Echo "Start Time: " & objSession.StartTime
Next
End If
' ------------------------------------------------------------------
End If
'=======================================================================
Я здивований, поки ніхто не згадав loggedon2, яким я користуюся вже досить багато років. Програма GUI, яку ви попросили, доступна тут .