YNY
Full Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
'On Error Resume Next
Dim adsinfo, ThisComp, oUser
Set adsinfo = CreateObject("adsysteminfo")
Set ThisComp = GetObject("LDAP://" & adsinfo.ComputerName)
Set oUser = GetObject("LDAP://" & adsinfo.UserName)
'msgbox mid(ThisComp.Name,instr(ThisComp.Name,"=")+1)
'если IP не определили, то ничего не делаем
if getHip(mid(ThisComp.Name,instr(ThisComp.Name,"=")+1))<>"" then
'msgbox getHip(mid(ThisComp.Name,instr(ThisComp.Name,"=")+1))
Thiscomp.put "description", "Logged on: " &_
oUser.cn & " " & CStr(Now) & " c IP = " &_
getHip(mid(ThisComp.Name,instr(ThisComp.Name,"=")+1))
ThisComp.Setinfo
end if
Function getHip(CompName)
getHip=""
Set objWMIService = GetObject( _
"winmgmts:\\" & CompName & "\root\cimv2")
Set IPConfigSet = objWMIService.ExecQuery _
("Select IPAddress from Win32_NetworkAdapterConfiguration ")
For Each IPConfig in IPConfigSet
If Not IsNull(IPConfig.IPAddress) Then
For i=LBound(IPConfig.IPAddress) _
to UBound(IPConfig.IPAddress)
'WScript.Echo IPConfig.IPAddress(i)
getHip=(IPConfig.IPAddress(i))
'предпологается что у хоста одна сетевуха активна!!!
exit function
Next
End If
Next
End Function
|
Всего записей: 476 | Зарегистр. 18-05-2006 | Отправлено: 14:30 16-12-2010 | Исправлено: YNY, 14:40 16-12-2010 |
|
