通过脚本禁用域内XP自带防火墙（附收集报告功能）

自从XP有了SP2之后，域内的网络管理就引来了诸多不便，总是受到防火墙的阻扰。对于XP我们可以禁用之，但是2000没得罪你，犯不着受到牵连。可以采用组策略的wmi筛选功能只对xp有效，也可以在脚本里进行OS判断，本文采用后者。

复制以下脚本命名为Firewall-disable.vbs，通过组策略指派到计算机的开机脚本中。

'Script Start
On Error Resume Next
'==Get OS==
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colOperatingSystems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem")
For Each objOperatingSystem in colOperatingSystems
'Wscript.Echo objOperatingSystem.Caption
strOS = objOperatingSystem.Caption
Next
'If OS=XP then disable firewall
If InStr(strOS, "XP") Then
Set objFirewall = CreateObject("HNetCfg.FwMgr")
Set objPolicy = objFirewall.LocalPolicy.CurrentProfile
objPolicy.FirewallEnabled = FALSE
Else
Wscript.Quit
End If
'==Get computer name==
Set objNet = createobject("Wscript.Network")
strPCName = objNet.Computername
'==Get current Date & Time==
strYear = Year(Date)
strMonth = Month(Date)
If strMonth < 10 Then strMonth = 0 & strMonth
strDay = Day(Date)
If strDay < 10 Then strDay = 0 & strDay
strDate = strYear & strMonth & strDay
Dim MyTime, MyHour, MyMin
MyTime = Now
MyHour = Hour(MyTime)
If MyHour < 10 Then MyHour = 0 & MyHour
MyMin = Minute(Now)
If MyMin < 10 Then MyMin = 0 & MyMin
strTime = MyHour & ":" & MyMin
'==Create report==
Const ForReading=1
Const ForWriting=2
Const ForAppending=8
Const OverwriteExisting = True
Dim fso, ts
Set fso = CreateObject("Scripting.FileSystemObject")
strPath = "\\FileSrv\GPreport\FW_Report\"
If fso.FileExists(strPath & strPCName & ".txt") Then
Set ts = fso.OpenTextFile(strPath & strPCName & ".txt", ForAppending)
ts.WriteLine strPCName & " firewall has been disabled on " & strDate & "." & strtime & VbCrlf
ts.Close
Else
Set ts = fso.CreateTextFile(strPath & strPCName & ".txt", true)
ts.WriteLine strPCName & " firewall has been disabled on " & strDate & "." & strtime & VbCrlf
ts.Close
End If
'Script End

本文转自yangye1985 51CTO博客，原文链接：http://blog.51cto.com/yangye/200450，如需转载请自行联系原作者

通过脚本禁用域内XP自带防火墙（附收集报告功能）相关推荐

脚本修改域内本地管理员密码
一台一台的修改域内计算机本地管理员密码不太现实,在没有Configuration manager这些工具的情况下,使用脚本来修改本地密码也颇为方便: 'Script for change the lo ...
显示域用户登录的ip或计算机名,如何在使用PowerShell脚本或者VBS脚本，查看域内正在登录的域用户名、主机名和主机IP地址...
域管理员希望能通过PowerShell或者VBS脚本,查看当前域内正在登录的账号名称.客户端主机名称和客户端主机IP地址.以前看过论坛中的一个帖子是说通过VBS脚本来查看,但是只能看到主机名和登录账号 ...
第5章域内横向移动分析及防御
目录第5章域内横向移动分析及防御 5.1 常用Windows远程连接和相关命令 5.1.1 IPC 5.1.2使用Windows自带的工具获取远程主机信息 5.1.3计划任务 5.2Windows系 ...
《内网安全攻防：渗透测试实战指南》读书笔记（五）：域内横向移动分析及防御
目录前言一.常用Windows远程连接和命令 1.IPC (1)利用条件 (2)连接失败的原因 2.Windows自带工具 (1)dir (2)tasklist 3.计划任务 (1)at (2)s ...
windows 2008 域删除不活动计算机账号,如何删除域内非活动计算机账号？
域内管理很多用户和计算机,但是常常有无用的用户和计算机没有退出域,而浪费域内的资源.如何删除一段时间内没有登录域非活动计算机账号呢?下文给出了详细的描述. 命令:dsquery http://tech ...
域内操作主机角色一向让很多人很头痛，我归纳总结一下，希望对大家有帮助...
操作主机角色 1 林范围内: 架构主机域命名主机 2 域范围内: 域控制器仿真主机相对ID主机基础结构主机 3 添加架构主机管理工具架构主机的管理 ...
利用BAT脚本加入域和退出域的代码
加入域的脚本: @echo off netdom join %computername% /domain:test.com /UserD:user /PasswordD:pass /REBoot:5 ...
内网渗透测试：域内权限维持思路总结
我的Freebuf:https://www.freebuf.com/author/MrAnonymous 我的博客:https://whoamianony.top/ 文章目录 Windows 操作系统 ...
域内计算机本地管理员密码管理
随着互联网技术的不断发现,信息安全在企业中的受重视度也越来越高,终端管理是信息安全中至关重要的一环,不可能要求终端用户和服务器管理员有着一样的安全隐患意识和技术水平,因此在终端管理员层如何制定完善终端 ...

通过脚本禁用域内XP自带防火墙（附收集报告功能）

通过脚本禁用域内XP自带防火墙（附收集报告功能）相关推荐

最新文章

热门文章