{"id":588,"date":"2009-04-27T01:59:29","date_gmt":"2009-04-27T07:59:29","guid":{"rendered":"http:\/\/gregsowell.com\/?p=588"},"modified":"2009-12-02T13:09:24","modified_gmt":"2009-12-02T19:09:24","slug":"cisco-ata-186-setting-static-vlan-tool-to-calculate-vlan-value","status":"publish","type":"post","link":"https:\/\/gregsowell.com\/?p=588","title":{"rendered":"Cisco ATA 186 Setting Static VLAN – Tool to Calculate VLAN Value"},"content":{"rendered":"

If you are going to setup an ATA in a network that is non Cisco(sans voice vlan on switches), then you will need to manually configure your ATA to support the Voice VLAN. The easiest way is to let you ATA pull DHCP and configure it via the web interface:<\/p>\n

http:\/\/192.168.1.100\/dev<\/code><\/pre>\n
If you want to set an alternate VLAN for the voice traffic on the ATA, you need to change the OpFlag value to 0\u00d700000052.<\/p>\n
You then have to set the VLAN field to hex representation of what VLAN you want, though the method you have to go about it is somewhat convoluted…or well, really convoluted hehe.  I’m not going to explain the complicated process, because someone has already gone through the trouble, here<\/a>.<\/p>\n
What I did, was to write an Autoit script that will do all the work for you!  All you have to do is type in the VLAN ID you want to convert and click a button.  The prog will display the crazy hex number and also copy it to the clipboard.<\/p>\n
\"ATA
ATA Voice VLAN Prog...oh so pretty.<\/figcaption><\/figure>\n
You can download the compiled program 
\n\n\tATA Voice Vlan\t(2528 downloads\t)\n<\/a>\n<\/div>\n, or use the code below:<\/p>\n
#include <EditConstants.au3>\r\n#include <GUIConstantsEx.au3>\r\n#include <StaticConstants.au3>\r\n#include <WindowsConstants.au3>\r\n\r\n#Region ### START Koda GUI section ### Form=C:\\Documents and Settings\\gsowell\\Desktop\\autoit\\ata voice vlan\\ata voice vlan.kxf\r\n$Form1_1 = GUICreate("GregSowell.com", 165, 152, 193, 115)\r\n$Input1 = GUICtrlCreateInput("", 16, 24, 49, 21)\r\n$Label1 = GUICtrlCreateLabel("VLAN ID", 16, 8, 46, 17)\r\n$Label2 = GUICtrlCreateLabel("ATA Voice VLAN in Hex", 16, 56, 119, 17)\r\n$Input2 = GUICtrlCreateInput("", 16, 72, 121, 21)\r\n$Button1 = GUICtrlCreateButton("calc + clipboard", 72, 24, 83, 25, 0)\r\n$Label3 = GUICtrlCreateLabel("Remember to set OpFlag to", 16, 104, 133, 17)\r\n$Input3 = GUICtrlCreateInput("0\u00d700000052", 16, 120, 73, 21)\r\nGUISetState(@SW_SHOW)\r\n#EndRegion ### END Koda GUI section ###\r\n\r\nWhile 1\r\n\t$nMsg = GUIGetMsg()\r\n\tSwitch $nMsg\r\n\t\tCase $GUI_EVENT_CLOSE\r\n\t\t\tExit\r\n\t\tcase $Button1\r\n\t\t\t_rockIt()\r\n\tEndSwitch\r\n\tsleep(20)\r\nWEnd\r\n\r\nFunc _rockIt()\r\n\t$converted = ""\r\n\tGUICtrlSetData($Input2,$converted)\r\n\tif GUICtrlRead($Input1) <> "" Then\r\n\t\t;calc it and producte the hex\r\n\t\t;0000 0000 0000 0000 0000 0000 0010 1011\r\n\t\t;00 [00 0000 0000 00] 00 0000 0000 0010 1011\r\n\r\n\t\t$converted = _DecToBinary(GUICtrlRead($Input1))\r\n\t\tif StringLen($converted) == 4 Then\r\n\t\t\t;need to append 8 zeros first\r\n\t\t\t$converted = "00000000" & $converted\r\n\t\tElseif StringLen($converted) == 8 Then\r\n\t\t\t;need to append 4\r\n\t\t\t$converted = "0000" & $converted\r\n\t\tEndIf\r\n\t\t;append the proper amount of zeroes\r\n\t\t$converted = "00" & $converted & "00"\r\n\t\t;ToolTip($converted,0,0)\r\n\t\t$converted = "0x" & _BinaryToHexString(StringLeft($converted, 4)) & _BinaryToHexString(StringMid($converted, 5,4)) & _BinaryToHexString(StringMid($converted, 9,4)) & _BinaryToHexString(StringRight($converted, 4)) & "002b"\r\n\t\tGUICtrlSetData($Input2,$converted)\r\n\t\tClipPut($converted)\r\n\t\t\r\n\tEndIf\r\nEndFunc\r\n\r\n; Decimal To Binary\r\nFunc _DecToBinary($iDec)\r\nLocal $i, $sBinChar = ""\r\n\r\nIf StringRegExp($iDec,'[[:digit:]]') then\r\n$i = 1\r\n\r\nDo\r\n $x = 16^$i\r\n $i +=1 \r\n ; Determine the Octets\r\nUntil $iDec < $x\r\n \r\nFor $n = 4*($i-1) To 1 Step -1\r\n    If BitAND(2 ^ ($n-1), $iDec) Then\r\n        $sBinChar &= "1"\r\n    Else\r\n        $sBinChar &= "0"\r\n    EndIf\r\nNext\r\n Return $sBinChar\r\nElse\r\n    MsgBox(0,"Error","Wrong input, try again ...")\r\n    Return\r\nEndIf   \r\nEndFunc\r\n\r\n\r\n; Binary To Hex\r\nFunc _BinaryToHexString($BinaryValue)\r\n    Local $test, $Result = '',$numbytes,$nb\r\n\r\nIf StringRegExp($BinaryValue,'[0-1]') then\r\n    \r\n    if $BinaryValue = '' Then\r\n        SetError(-2)\r\n        Return\r\n    endif\r\n\r\n    Local $bits = "0000|0001|0010|0011|0100|0101|0110|0111|1000|1001|1010|1011|1100|1101|1110|1111"\r\n    $bits = stringsplit($bits,'|')\r\n    #region check string is binary\r\n\r\n    $test = stringreplace($BinaryValue,'1','')\r\n    $test = stringreplace($test,'0','')\r\n    if $test <> '' Then\r\n        SetError(-1);non binary character detected\r\n        Return\r\n    endif\r\n    #endregion check string is binary\r\n\r\n    #region make binary string an integral multiple of 4 characters\r\n    While 1\r\n        $nb = Mod(StringLen($BinaryValue),4)\r\n        if $nb = 0 then exitloop\r\n        $BinaryValue = '0' & $BinaryValue\r\n    WEnd\r\n    #endregion make binary string an integral multiple of 4 characters\r\n\r\n    $numbytes = Int(StringLen($BinaryValue)\/4);the number of bytes\r\n\r\n    Dim $bytes[$numbytes],$Deci[$numbytes]\r\n    For $j = 0 to $numbytes - 1;for each byte\r\n    ;extract the next byte\r\n        $bytes[$j] = StringMid($BinaryValue,1+4*$j,4)\r\n\r\n    ;find what the dec value of the byte is\r\n        for $k = 0 to 15;for all the 16 possible hex values\r\n            if $bytes[$j] = $bits[$k+1] Then\r\n                $Deci[$j] = $k\r\n                ExitLoop\r\n            EndIf\r\n        next\r\n    Next\r\n    \r\n;now we have the decimal value for each byte, so stitch the string together again\r\n    $Result = ''\r\n    for $l = 0 to $numbytes - 1\r\n        $Result &= Hex($Deci[$l],1)\r\n    Next\r\n    return $Result\r\nElse\r\n    MsgBox(0,"Error","Wrong input, try again ...")\r\n    Return\r\nEndIf   \r\nEndFunc<\/code><\/pre>\n
If you need to reset your ATA to default, plug in a handset and hit the button on top.  Then type in 322873738#.  To check ATA IP, type in 80#.  This and more can be found in the ATA Basic Config Guide<\/a>.<\/p>\n","protected":false},"excerpt":{"rendered":"
If you are going to setup an ATA in a network that is non Cisco(sans voice vlan on switches), then you will need to\u2026<\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[12,16],"tags":[],"class_list":["post-588","post","type-post","status-publish","format-standard","hentry","category-autoit","category-cisco"],"_links":{"self":[{"href":"https:\/\/gregsowell.com\/index.php?rest_route=\/wp\/v2\/posts\/588","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/gregsowell.com\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/gregsowell.com\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/gregsowell.com\/index.php?rest_route=\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/gregsowell.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=588"}],"version-history":[{"count":9,"href":"https:\/\/gregsowell.com\/index.php?rest_route=\/wp\/v2\/posts\/588\/revisions"}],"predecessor-version":[{"id":1185,"href":"https:\/\/gregsowell.com\/index.php?rest_route=\/wp\/v2\/posts\/588\/revisions\/1185"}],"wp:attachment":[{"href":"https:\/\/gregsowell.com\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=588"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/gregsowell.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=588"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/gregsowell.com\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=588"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}