istvan_kope
asked on
How track IP modifications on Windows 2000/XP
Do you know how can I track if the IP of a Windows workstation has been changed? Is it saved in the event log?
Thank you!
Thank you!
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER
If the security audit is not enabled there is no way other log which can tell that the IP was changed? Is there a service which is restarted when the IP is changed?
[HKEY_LOCAL_MACHINE\SYSTEM \ControlSe t001\Servi ces\{C5019 ABF-2C77-4 0E0-B7E0-9 1A85C63A83 1}\Paramet ers\Tcpip]
"IPAddress"=hex(7):30,00,2 e,00,30,00 ,2e,00,30, 00,2e,00,3 0,00,00,00 ,00,00
"IPAddress"=hex(7):30,00,2
... and a lot more - search after your own ip-address in registry
Your DHCP server will log what machines have what, on any given day. You'd need to save it's log's pretty regularly, probably daily. That is if your dhcp program supports logging, most do. Instead of a big long VBscript, you could issue a call to a batch file that ran "ipconfig" ... and save that to a text file. And as mentioned, the registry will keep that info handy, however it won't keep previous IP's logged anywhere.
-rich
-rich
ASKER
I don't want to know the IP address I just want to track if it was changed. So can you tell me which services are restarted when the IP is changed?
SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER
Can you tell me how can I enable the security audit from the domain server on every workstation?
Set the policy on the domain controller in the Organisational Unit, where the computers are
:o) Glad we could help you - thank you for the points
:o) Glad we could help you - thank you for the points
Option Explicit
On Error Resume Next
Dim wshNetwork, oLocator, oService, sSql, oEnum, Item, i, sGetIpAddress, sComputerName, fso, fh, sLogFile
Set wshNetwork = wScript.CreateObject("WScr
sComputerName = wshNetwork.ComputerName
Set fso = CreateObject("Scripting.Fi
Set oLocator = WScript.CreateObject("Wbem
Set oService = oLocator.ConnectServer(sCo
sSql = "Select IPAddress from Win32_NetworkAdapterConfig
On Error Resume Next
Set oEnum = oService.ExecQuery(sSql)
For Each Item in oEnum
If Not IsNull(Item.IPAddress) Then
For i=LBound(Item.IPAddress) to UBound(Item.IPAddress)
sGetIpAddress = Item.IPAddress(i)
Next
End If
Next
sLogFile="\\YourServerName
On Error Resume Next
Set fh = fso.OpenTextFile(sLogFile,
fh.Write Now & " ----> " & sGetIpAddress & vbCrLf
fh.Close
Set wshNetwork = Nothing
Set fso = Nothing
Set fh = Nothing
Set oLocator = Nothing
Set oService = Nothing
Set oEnum = Nothing