创建邮件交换器 (MX) DNS 记录
描述
在 DNS 服务器上创建邮件交换器 (MX) DNS 记录。
有关在这段代码中使用的 CreateInstanceFromPropertyData 方法的更多信息,请单击此处。
支持平台
Windows Server 2003 | 是 |
Windows XP | 否(然而,可以在 Windows XP 计算机上对远程 DNS 服务器运行脚本) |
Windows 2000 | 是,需要安装 DNS WMI 提供程序 |
Windows NT 4.0 | 否 |
脚本代码
strDNSServer = "atl-dc-03.fabrikam.com"
strContainer = "fabrikam.com"
strOwner = "atl-srv-01.fabrikam.com"
intRecordClass = 1
intTTL = 600
intPreference = 0
strMailExchanger = "mailexchanger.fabrikam.com"
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\MicrosoftDNS")
Set objItem = objWMIService.Get("MicrosoftDNS_MXType")
errResult = objItem.CreateInstanceFromPropertyData _
(strDNSServer, strContainer, strOwner, intRecordClass, intTTL, intPreference, strMailExchanger)
创建主要 DNS 区域
描述
在 DNS 服务器上创建名为 accounting.fabrikam.com 的主要 DNS 区域。
有关在这段代码中使用的 CreateZone 方法的更多信息,请单击此处。
支持平台
Windows Server 2003 | 是 |
Windows XP | 否(然而,可以在 Windows XP 计算机上对远程 DNS 服务器运行脚本) |
Windows 2000 | 是,需要安装 DNS WMI 提供程序 |
Windows NT 4.0 | 否 |
脚本代码
strZoneName = "accounting.fabrikam.com"
intPrimaryZone = 1
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\MicrosoftDNS")
Set objItem = objWMIService.Get("MicrosoftDNS_Zone")
errResult = objItem.CreateZone(strZoneName, intPrimaryZone)
启用网络适配器上的 IPSec
描述
启用网络适配器的 IP 安全性。在此脚本中,所有的l TCP 和 UDP 端口以及所有的l IP 协议都是允许的;因此在每种情况下都传送值 0。如果只允许特定的端口或协议,则应该以数组的形式发送这些值。
有关在这段代码中使用的 EnableIPSec 方法的更多信息,请单击 此处。
支持平台
Windows Server 2003 | 是 |
Windows XP | 是 |
Windows 2000 | 是 |
Windows NT 4.0 | Yes, with WMI installed |
脚本代码
On Error Resume Next
Const ALLOW_ALL = 0
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colNetCards = objWMIService.ExecQuery _
("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True")
For Each objNetCard in colNetCards
arrPermittedTCPPorts = Array(ALLOW_ALL)
arrPermittedUDPPorts = Array(ALLOW_ALL)
arrPermittedIPProtocols = Array(ALLOW_ALL)
objNetCard.EnableIPSec arrPermittedTCPPorts, arrPermittedUDPPorts, arrPermittedIPProtocols
Next
EnableIPSec Method of the Win32_NetworkAdapterConfiguration Class:
uint32 EnableIPSec(
string IPSecPermitTCPPorts[],
string IPSecPermitUDPPorts[],
string IPSecPermitIPProtocols[]
);