Modifying WMI Settings By Using VBScript

Topic Last Modified: 2009-02-12

You can use the following sample script written in the Microsoft Visual Basic Scripting Edition (VBScript) language to modify the WMI settings that you want to change.

Sub CommitChange

  Dim objLocator
  Dim objService
  Dim objInstances
  Dim objInstance

  Wscript.Echo "Connecting to local WMI store..."

  Set objLocator = CreateObject("WbemScripting.SWbemLocator")
  Set objService = objLocator.ConnectServer(".", "root\cimv2")

  Wscript.Echo "select * from MSFT_SIPAddressBookSetting"
  Set objInstances = objService.ExecQuery("select * from MSFT_SIPAddressBookSetting")

  If IsNull(objInstances) Or (objInstances.Count = 0) Then
    Wscript.Echo "Error: No instance"

  Else

    For Each objInstance in objInstances

      objInstance.Properties_.Item("MaxDeltaFileSizePercentage").Value = 1500
      objInstance.Properties_.Item("RunTime").Value = 200
      objInstance.Properties_.Item("OutputLocation").Value = \\server\ABServer"
      objInstance.Properties_.Item("SynchronizePollingIntervalSecs").Value = 500
      objInstance.Properties_.Item("UseNormalizationRules").Value = "True"
      objInstance.Put_
      wscript.Echo "Done"
    Exit For
    Next

  End If

  Wscript.Echo ""
End Sub