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