Re: VPN using Cisco software
- From: rdean@xxxxxxxxxxxxxxxx
- To: isalist@xxxxxxxxxxxxx
- Date: Thu, 22 Jan 2004 18:41:50 -0700
This is a script I modified to create the protocols needed to use Cisco
VPN through a ISA Server. Client running as NAT. Find the spave "server
name here and replace with your server name.
rem 1 --- send UDP
rem 0 --- recieve UDP
rem 2 --- Recieve Send UDP
rem 3 --- Send Recieve UDP
rem 1 --- Outbound TCP
rem 2 --- Inbound TCP
Const ERROR_ALREADY_EXISTS = 183
Sub CheckError()
On Error Resume Next
If (Err.Number <> 0) And (Err.Number <> ERROR_ALREADY_EXISTS) Then
MsgBox "An error has occured:" & vbCrLf & Err.Description & Err.Number
WScript.Quit Err.Number
End If
End Sub
On Error Resume Next
Set ISA = CreateObject("FPC.Root")
ISA.Refresh
Set Elements = ISA.Arrays("Server name here").PolicyElements
Set APolicy = ISA.Arrays("Server name here").ArrayPolicy
Set Publishing = ISA.Arrays("Server name here").Publishing
'-------------------------------------------------------
Set Protocols = Elements.Protocoldefinitions
Set NewDefinition = Protocols.AddUDP ("Cisco VPN UDP 4500",3,4500)
CheckError
NewDefinition.Description = "Cisco VPN UDP 4500"
Set NewDefinition = Protocols.AddUDP ("Cisco VPN UDP 500",3,500)
CheckError
NewDefinition.Description = "Cisco VPN UDP 500"
Protocols.Save
CheckError
MsgBox "Cisco VPN Setup finished succesfully. It is recommended that you
restart ISA services after importing."
Other related posts:
