如何知道網域中某一台電腦的登錄用戶名? 為了資安管控,必須隨時了解网域中某一臺電腦的當前登錄用戶的用戶名是什麼.各位能知道嗎?很難吧. 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 >>很難吧有點難!1,可能通過遠程聯接到對方Pc註冊表, 讀出來!!2, 如果對方有裝 snmp client, 可用smnp協議得到! 如果可以Telnet到需要监控的电脑,可以用命令query session 得到当前登录计算的用户名function GUserName: String;var pcUser : PChar; dwUSize : DWORD;begin dwUSize := 21; result:=''; GetMem( pcUser, dwUSize ); try if Windows.GetUserName( pcUser, dwUSize ) then Result := pcUser finally FreeMem( pcUser ); end;end; 没个机子上装一套 insert2003(高级打字员)说的那样的程序然后再加上端口通讯的功能,给每个机子发消息,每个机子收到该消息后,都自动调用上面的代码返回自己的登陆用户,然后再通过端口通讯的方法返回给主机该 登陆用户名即可 窗体间的控件控制? 请问 现在对word的控制比较强的有哪些组件? 打印模板设计 请问怎么在程序中判断Excel中最大坐标不为空的单元格的位置? ActiveForm,,,,如何在页面调用Activeform中的自己定义的函数呢??? 一个使用TCustomControl做控件的问题 如何使用DELPHI编写WIN级的[系统服务程序]最好是[注入系统]的 UserName和PassWord的問題 关于ADO?急!! 请问这样的查询应该如何做 送分!20 如何中断一个在开始的FindFirst?
有點難!1,可能通過遠程聯接到對方Pc註冊表, 讀出來!!
2, 如果對方有裝 snmp client, 可用smnp協議得到!
var
pcUser : PChar;
dwUSize : DWORD;
begin
dwUSize := 21;
result:='';
GetMem( pcUser, dwUSize );
try
if Windows.GetUserName( pcUser, dwUSize ) then
Result := pcUser
finally
FreeMem( pcUser );
end;
end;
然后再加上端口通讯的功能,给每个机子发消息,每个机子收到该消息后,都自动调用上面的代码返回自己的登陆用户,然后再通过端口通讯的方法返回给主机该 登陆用户名
即可