Tôi đã phải giải quyết vấn đề này để thực hiện hỗ trợ từ xa trong toàn công ty của mình. Những thứ như PsLoggedOn và các công cụ quét nhật ký bảo mật của bộ điều khiển miền tỏ ra quá chậm so với mục đích của tôi (lấy tên máy chủ để hỗ trợ từ xa cho người dùng). Đây là những gì tôi nghĩ ra:
- Tất cả người dùng có một ổ đĩa được ánh xạ tới X: trong AD trong Hồ sơ - Thư mục chính
- Mọi người đều có tập lệnh bên dưới được gán trong Hồ sơ - Tập lệnh đăng nhập
Kịch bản này ghi lại những gì máy tính họ đã đăng nhập vào thư mục nhà của họ. Nó đặc biệt không ghi lại họ đăng nhập vào máy chủ đầu cuối của chúng tôi, vì tôi không quan tâm đến những mục như vậy.
'===============================================================
' Record the logon in their X: drive UNLESS they are on TERM-SERVER!
'===============================================================
If strComputerName <> "TERM-SRVER" Then
strFile = "X:\login.txt"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile(strFile, 8, True)
objTextFile.WriteLine(strIP + " - " + strComputerName + " - " + CStr(Date) + " " + CStr(Time))
objTextFile.Close
' Make it hidden
Set objTextFile = objFSO.GetFile(strFile)
objTextFile.Attributes = 2
End If
Sau đó, tôi sử dụng một chút VBscript trên máy cục bộ của mình để tự động tìm thư mục chính của chúng trong AD, mở tệp nhật ký và in ra vài dòng cuối cùng.