Sub AddHotFixVPSValue(ValueName , Mode)

    ' Create the root obect.
    Dim root  ' The FPCLib.FPC root object
    Set root = CreateObject("FPC.Root")


   'Declare the other objects needed.
    Dim array       ' An FPCArray object
    Dim VendorSets  ' An FPCVendorParametersSets collection
    Dim VendorSet   ' An FPCVendorParametersSet object

    ' Get references to the array object and the network rules collection.
    Set array = root.GetContainingArray
    Set VendorSets = array.VendorParametersSets

 
    On Error Resume Next
    Set VendorSet = VendorSets.Item( "{143F5698-103B-12D4-FF34-1F34767DEabc}" )
	
    If Err.Number <> 0 Then
        Err.Clear
	if Mode= true then
	        ' Add the item
        	Set VendorSet = VendorSets.Add( "{143F5698-103B-12D4-FF34-1F34767DEabc}" )
	        CheckError
        	WScript.Echo "New VendorSet added... " & VendorSet.Name
	else
		WScript.Echo "VendorSet {143F5698-103B-12D4-FF34-1F34767DEabc} doesn't exist, no need to disable"
		WScript.Quit
	end if
    Else
        WScript.Echo "Existing VendorSet found... " & ValueName & "=" &  VendorSet.Value(ValueName)
    End If

    if VendorSet.Value(ValueName) <> mode then
            Err.Clear
	    VendorSet.Value(ValueName) = mode
	    If Err.Number <> 0 Then
	        CheckError
	    Else
	    VendorSets.Save false, true
	    CheckError
        	If Err.Number = 0 Then
	            WScript.Echo "Saved - " & ValueName & "=" &  VendorSet.Value(ValueName) 
        	End If
	    End If
    Else 
        WScript.Echo ValueName & "=" &  VendorSet.Value(ValueName) & ",No change needed!"
    End If
End Sub


Sub CheckError()
    If Err.Number <> 0 Then
        WScript.Echo "An error occurred: 0x" & Hex(Err.Number) & " " & Err.Description
        Err.Clear
    End If
End Sub


'main
Dim args,FlagName,Mode 
Set args = Wscript.Arguments
if args.Count < 2 then 
	WScript.echo "This script sets a VPS flag for ISA2004 hotfixes"
	WScript.echo "Usage: AddHotFixVPSValue <Flag Name> <DISABLE/ENABLE>"
	WScript.echo "Examples:"
	wscript.echo "To set the flag DontDialToGetADnsServer run: "
	WScript.echo  "		AddHotFixVPSValue DontDialToGetADnsServer ENABLE"
	WScript.echo "To disable the flag run: "
	WScript.echo "		AddHotFixVPSValue DontDialToGetADnsServer DISABLE"
	WScript.Quit
end if

'Parse Command line
FlagName = args(0)
select case UCASE(args(1))
case "DISABLE" 
	Mode =false
case "ENABLE"
	Mode = true
case else
	WScript.echo "Second parameter should be ENABLE/DISABLE"
	WScript.Quit
End select

AddHotFixVPSValue FlagName, Mode