事件查看器中批量出现审核失败的日志。

xiao421624 2015-06-06 11:03:09

最近，win2003系统服务器事件查看器中批量出现审核失败的日志，集中来自于局域网中的3台电脑上，检查过这3台电脑，未见中毒迹象，补丁也打完了。感觉像是在用system用户穷举登录服务器，但每次登录都失败。请问各位大神，这种情况要怎么应对呀？？

...全文

1153 7 打赏收藏转发到动态举报

写回复

用AI写文章

7 条回复

切换为时间正序

请发表友善的回复…

发表回复

xiao421624 2015-06-12

打赏
举报

引用 5 楼 Runnerchin 的回复:

加完策略需要对策略进行维护，目的不是阻止别人的登陆，而是阻止猜密码流程是：发现有人来猜密码 -> 加入策略 -> 无法继续猜密码

感谢回复。想知道对策略进行维护的具体操作方法是怎样的。楼主是新人，还请指教，谢谢。

X-i-n 2015-06-12

打赏
举报

引用 6 楼 xiao421624 的回复:

[quote=引用 5 楼 Runnerchin 的回复:] 加完策略需要对策略进行维护，目的不是阻止别人的登陆，而是阻止猜密码流程是：发现有人来猜密码 -> 加入策略 -> 无法继续猜密码

感谢回复。想知道对策略进行维护的具体操作方法是怎样的。楼主是新人，还请指教，谢谢。[/quote] 可以参考一下这个：

    Private Sub btnRead_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRead.Click
        Dim ComputerLogs() As Diagnostics.EventLog = EventLog.GetEventLogs
        For Each aLog As Diagnostics.EventLog In ComputerLogs
            If aLog.Log = "Security" Then
                Dim cnt As Integer = aLog.Entries.Count, idx As Integer = 0
                For Each itm As EventLogEntry In aLog.Entries
                    idx += 1
                    Me.Text = idx & "/" & cnt
                    If itm.InstanceId = 4625 Then
                        txtIPList.AppendText(itm.TimeGenerated & vbTab & itm.ReplacementStrings(5) & vbTab & itm.ReplacementStrings(19) & vbCrLf)
                    End If
                Next
                Exit For
            End If
        Next
        Me.Text = "EventReader"
    End Sub

    Private Sub btnFW_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFW.Click
        Dim plcObj As NetFwTypeLib.INetFwPolicy2 = CreateObject("HNetCfg.FwPolicy2"), rule As NetFwTypeLib.INetFwRule
        Dim CurrentProfiles As Integer = plcObj.CurrentProfileTypes()
            For Each rule In plcObj.Rules
            If rule.Profiles And CurrentProfiles Then
                If rule.Name = "DENY_LOGIN_ATTEMPT" Then
                    MsgBox(rule.RemoteAddresses)
                    rule.RemoteAddresses &= "," & txtIPList.Text.Replace(vbCrLf, ",")
                    txtResult.Text = rule.RemoteAddresses.Replace(",", vbCrLf).Replace("255.255.255.255", "32")
                    Exit For
                End If
            End If
        Next
    End Sub