【发布时间】:2014-08-15 07:05:38
【问题描述】:
是否可以获取连接到 IIS 服务器的客户端的 IP 地址并向所有连接到 IIS 的用户发送警告消息
我试试这个:
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery _
("Select * from Win32_NetworkLoginProfile")
For Each objItem in colItems
dtmWMIDate = objItem.AccountExpires
strReturn = WMIDateStringToDate(dtmWMIDate)
Wscript.Echo "Account Expires: " & strReturn
Wscript.Echo "Full Name: " & objItem.FullName
Wscript.Echo "Name: " & objItem.Name
Next
这给了我关于我的计算机的信息,而不是所有连接到 IIS 的用户
【问题讨论】:
标签: vba iis vbscript active-directory iis-6