创建名称服务器 DNS 记录
本文摘自：http://www.microsoft.com/china/technet/community/scriptcenter/network/scrnet153.mspx
在 DNS 服务器上创建名称服务器 (NS) 记录。 有关在这段代码中使用的 CreateInstanceFromPropertyData 方法的更多信息，请单击此处。
|
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
备份和清除大型事件日志
描述
如果事件日志文件的大小大于 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
