创建名称服务器 DNS 记录

[ 2006/03/30 18:51 | by gOxiA ]

本文摘自:http://www.microsoft.com/china/technet/community/scriptcenter/network/scrnet153.mspx


描述

在 DNS 服务器上创建名称服务器 (NS) 记录。

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

修改系统安装序列号

[ 2005/07/30 12:47 | by gOxiA ]
ON ERROR RESUME NEXT

Dim VOL_PROD_KEY
if Wscript.arguments.count<1 then
   VOL_PROD_KEY=InputBox("换号脚本"&vbCr&vbCr&"    本程序将自动替换你当前 Windows 的序列号,通过微软验证完全正版。"&vbCr&vbCr&"序列号(OEM版无效,默认版本为 XP VLK):","Windows XP序列号自动更换器","XXXXX-XXXXX-XXXXX-XXXXX-XXXXX")
   if VOL_PROD_KEY="" then
     Wscript.quit
   end if
else
   VOL_PROD_KEY = Wscript.arguments.Item(0)
end if

VOL_PROD_KEY = Replace(VOL_PROD_KEY,"-","") 'remove hyphens if any

for each Obj in GetObject("winmgmts:{ impersonationLevel=impersonate }").InstancesOf ("win32_WindowsProductActivation")

   result = Obj.SetProductKey (VOL_PROD_KEY)

   if err = 0 then
      Wscript.echo "完成更换,请重新进行正版验证"
   end if

   if err <> 0 then
      Wscript.echo "替换失败!输入的 CD-KEY 与当前的版本不匹配。"
      Err.Clear
   end if

Next

备份和清除大型事件日志

[ 2005/07/09 10:02 | by gOxiA ]

描述

如果事件日志文件的大小大于 20 MB,就将其备份和清除。


脚本代码
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
   & "{ impersonationLevel=impersonate, (Backup, Security) }!\\" _
       & strComputer & "\root\cimv2")
Set colLogFiles = objWMIService.ExecQuery _
   ("Select * from Win32_NTEventLogFile")
For each objLogfile in colLogFiles
   If objLogFile.FileSize > 100000 Then
      strBackupLog = objLogFile.BackupEventLog _
          ("c:\scripts\" & objLogFile.LogFileName & ".evt")
      objLogFile.ClearEventLog()
   End If
Next

分页: 4/11 第一页 上页 1 2 3 4 5 6 7 8 9 10 下页 最后页 [ 显示模式: 摘要 | 列表 ]