Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ' http://support.microsoft.com/kb/2592929/en-us
- set curArray = CreateObject("FPC.Root").GetContainingArray()
- Const SE_VPS_GUID = "{143F5698-103B-12D4-FF34-1F34767DEabc}"
- Const SE_VPS_NAME = "LogUsernameForFailedAuthentication"
- ' ON
- Const SE_VPS_VALUE = 1
- ' OFF (Default)
- ' Const SE_VPS_VALUE = 0
- Sub SetValue()
- ' 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
- ' Obtain references to the array object
- ' and the network rules collection.
- Set array = curArray
- Set VendorSets = array.VendorParametersSets
- On Error Resume Next
- Set VendorSet = VendorSets.Item( SE_VPS_GUID )
- If Err.Number <> 0 Then
- Err.Clear
- ' Add the item
- Set VendorSet = VendorSets.Add( SE_VPS_GUID )
- CheckError
- WScript.Echo "New VendorSet added... " & VendorSet.Name
- Else
- WScript.Echo "Existing VendorSet found... value- " & VendorSet.Value(SE_VPS_NAME)
- End If
- if VendorSet.Value(SE_VPS_NAME) <> SE_VPS_VALUE Then
- Err.Clear
- VendorSet.Value(SE_VPS_NAME) = SE_VPS_VALUE
- If Err.Number <> 0 Then
- CheckError
- Else
- VendorSets.Save false, true
- CheckError
- If Err.Number = 0 Then
- WScript.Echo "Done with " & SE_VPS_NAME & ", saved!"
- End If
- End If
- Else
- WScript.Echo "Done with " & SE_VPS_NAME & ", no change!"
- 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
- SetValue
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement