创建主机地址 (A) DNS 记录

[ 2005/07/09 09:59 | by gOxiA ]

描述

在 DNS 服务器上创建主机地址 (A) 记录。

有关在这段代码中使用的 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 = "workstation5.fabrikam.com"
intRecordClass = 1
intTTL = 600
strIPAddress = "192.168.1.100"
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\MicrosoftDNS")
Set objItem = objWMIService.Get("MicrosoftDNS_AType")
errResult = objItem.CreateInstanceFromPropertyData _
   (strDNSServer, strContainer, strOwner, intRecordClass, intTTL, strIPAddress)

创建邮件交换器 (MX) DNS 记录

[ 2005/07/09 09:58 | by gOxiA ]

描述

在 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 区域

[ 2005/07/09 09:57 | by gOxiA ]

描述

在 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)

分页: 440/474 第一页 上页 435 436 437 438 439 440 441 442 443 444 下页 最后页 [ 显示模式: 摘要 | 列表 ]