Jula0071, Дело не в брендмауере :)
Надо было в офисной сети прописать ответный маршрут до сети клиентов VPN!!!
добавляем на любой машине в локальной сети за vpn маршрут и всё работает на ура, пингуется туда и обратно.
В моём случае он выглядит так:
route add 192.168.11.0 mask 255.255.255.0 192.168.1.1 (192.168.1.1 <- локальный адрес VPN сервера)
Надо теперь как-то сделать, что бы автоматом всем в офисной сети этот маршрут прописывался О-)
UPD: Если кто-то из гугла сюда доберётся и озадачится вопросом, как раздать статический маршрут по DHCP, то ему может показаться это интересным
VBA скрипт, который генерирует HEX строку с маршрутом ;)
Const HexChar = ":"
Const HexGroup = 0
Const HexUpper = True
Dim res, i
If WScript.Arguments.Unnamed.Count = 0 Then
DisplayUsage
Else
Set res = ParseData()
If Not (res Is Nothing) Then
For Each i In res.Keys
WScript.Echo "option " & i & " hex " & res.Item(i)
Next
End If
End If
Function ByteHex(Value)
ByteHex = Right("00" & Hex(CByte(Value)), 2)
End Function
Function ParseData()
Set ParseData = Nothing
Dim res, l
Dim i, net, mask, gw
Set res = CreateObject("Scripting.Dictionary")
res.Add 121, ""
res.Add 249, ""
c = 0
For i = 0 To WScript.Arguments.Unnamed.Count-1 Step 2
net = WScript.Arguments.Unnamed(i)
If InStr(net,"/") = 0 Then
mask = "24"
Else
mask = Mid(net, InStr(net,"/")+1)
net = Left(net, InStr(net,"/")-1)
End If
If InStr(mask,".") > 0 Then mask = CalcNetMask(mask)
gw = WScript.Arguments.Unnamed(i+1)
If CByte(mask) = 0 Then
l = 0
Else
l = 1 + (CByte(l)-1) \ 8
End If
res.Item(121) = res.Item(121) & ByteHex(mask) & Left(Ip2Hex(net), 2*l) & Ip2Hex(gw)
res.Item(249) = res.Item(249) & ByteHex(mask) & Left(Ip2Hex(net), 2*l) & Ip2Hex(gw)
Next
For Each i In res.Keys
l = res.Item(i)
Select Case i
Case 121
l = "79" & ByteHex(Len(l)\2) & l
End Select
res.Item(i) = FormatHexData(l)
Next
Set ParseData = res
End Function
Function CalcNetMask(MaskOctets)
Dim b, c, i
b = Split(MaskOctets,".")
c = 0
For i = 0 To 3
b(i) = CByte(b(i))
Select Case True
Case (b(i) = &hFF): c = c + 8
Case (b(i) = &hFE): c = c + 7
Case (b(i) = &hFC): c = c + 6
Case (b(i) = &hF8): c = c + 5
Case (b(i) = &hF0): c = c + 4
Case (b(i) = &hE0): c = c + 3
Case (b(i) = &hC0): c = c + 2
Case (b(i) = &h80): c = c + 1
Case (b(i) = &h00): c = c + 0
Case Else
WScript.Echo "! Invalid mask " & MaskOctets
Exit Function
End Select
Next
CalcNetMask = c
End Function
Function Ip2Hex(Value)
Dim b
b = Split(Value,".")
Ip2Hex = ByteHex(b(0)) & ByteHex(b(1)) & ByteHex(b(2)) & ByteHex(b(3))
End Function
Function FormatHexData(Data)
Dim ret, i, c
If Len(HexChar) = 0 Or HexGroup = 0 Then
ret = Data
Else
ret = ""
c = 0
For i = 1 To Len(Data) Step 2
ret = ret & Mid(Data, i, 2)
c = c + 1
If c*2 = HexGroup Then
If i+2 < Len(Data) Then
ret = ret & HexChar
End If
c = 0
End If
Next
End If
If HexUpper Then
FormatHexData = UCase(ret)
Else
FormatHexData = LCase(ret)
End If
End Function
Sub DisplayUsage()
WScript.Echo "dhcproutes [network/mask gateway], ..."
WScript.Echo " network - IP-address for network (192.168.0.0 or 192.168)"
WScript.Echo " mask - network mask in IP or CIDR format, default /24 (255.255.255.0)"
WScript.Echo " gateway - IP-address for gateway (192.168.1.250)"
WScript.Echo ""
WScript.Echo "Alibek Bolatov <alibek*********>"
WScript.Quit
End Sub