gOxiA=苏繁=SuFan Blog

描述

备份和清除应用程序事件日志。

脚本代码
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
   & "{ impersonationLevel=impersonate,(Backup) }!\\" & _
       strComputer & "\root\cimv2")
Set colLogFiles = objWMIService.ExecQuery _
   ("Select * from Win32_NTEventLogFile where LogFileName='Application'")
For Each objLogfile in colLogFiles
   errBackupLog = objLogFile.BackupEventLog("c:\scripts\application.evt")
   If errBackupLog <> 0 Then        
       Wscript.Echo "The Application event log could not be backed up."
   Else
       objLogFile.ClearEventLog()
   End If
Next

描述

将计算机的 IP 地址设置为 192.168.1.141，并将 IP 网关设置为 192.168.1.100。

脚本代码
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colNetAdapters = objWMIService.ExecQuery _
   ("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
strIPAddress = Array("192.168.1.141")
strSubnetMask = Array("255.255.255.0")
strGateway = Array("192.168.1.100")
strGatewayMetric = Array(1)
For Each objNetAdapter in colNetAdapters
   errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)
   errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric)
   If errEnable = 0 Then
       WScript.Echo "The IP address has been changed."
   Else
       WScript.Echo "The IP address could not be changed."
   End If
Next