Background
Like everyone else took a boat load of CISCO Networking classes. Took night classes at the local community college.
Forgot about it.
But, then last week a Network Engineer asked me what is my network address and I just did not know.
Yes, I know how to issue ipconfig and get my IP Address and Subnet mask.
Or on Linux, issue ifconfig.
But, to think one step ahead and get the Network Address and CIDR, my mind just did not want to go down that step.
Code
Opportunity to code…
VBScript
REM *********************************************************************************************
' 1a) http://chris.wastedhalo.com/2014/05/more-binarybitwise-functions-for-vbscript/
' 2a) http://www.robvanderwoude.com/vbstech_network_ip.php
' 3a) http://powerasp.net/content/new/vbscript-constants.asp
REM *********************************************************************************************
option explicit
Dim strLog
Dim strIPAddress
Dim strIPSubnet
Dim strCIDR
Dim strNetworkAddress
Dim strAguments
Dim objAguments
Dim iNumberofArgs
Const CHAR_PERIOD = "."
function getIPAddress
REM *****************************************************************************
REM Rob van der Woude's Scripting Page
REM Win32_NetworkAdapterConfiguration
REM http://www.robvanderwoude.com/vbstech_network_ip.php
REM *****************************************************************************
Const strQueryNAC = "select * from Win32_NetworkAdapterConfiguration where MACAddress > ''"
Const WMISERVICE = "winmgmts://./root/CIMV2"
Dim objWMISvc
Dim objRS
set objWMISvc = GetObject(WMISERVICE)
if objWMISvc is Nothing then
strLog = "Unable to Get Object " & WMISERVICE
WScript.Echo strLog
WScript.Quit (-1)
end if
Set objRS = objWMISvc.ExecQuery( strQueryNAC, "WQL", 48 )
Dim objItem
For Each objItem In objRS
'IP Address
If IsArray( objItem.IPAddress ) Then
If UBound( objItem.IPAddress ) = 0 Then
strIPAddress = objItem.IPAddress(0)
Else
strIPAddress = Join( objItem.IPAddress, "," )
End If
End If
'IP Subnet
If IsArray( objItem.IPSubnet ) Then
If UBound( objItem.IPSubnet ) = 0 Then
strIPSubnet = objItem.IPSubnet(0)
Else
strIPSubnet = Join( objItem.IPSubnet, "," )
End If
End If
Next
end function
'*******************************************************************************
'* bitMask(BitNumber)
'* Returns a number with all bits set to 0 except for the specified bit
'* http://chris.wastedhalo.com/2014/05/more-binarybitwise-functions-for-vbscript/
'*******************************************************************************
Function bitMask(pBit)
If pBit < 32 Then
bitMask = 2 ^ (pBit - 1)
Else
bitMask = "&H80000000"
End If
End Function
Function Dec2Bin(pValue)
'*************************************************************************************
'* Dec2Bin(AnyNumber)
'* Returns a string representing the number in binary.
'* http://chris.wastedhalo.com/2014/05/more-binarybitwise-functions-for-vbscript/
'*************************************************************************************
Dim TotalBits, i
strLog = VarType(pValue)
Select Case VarType(pValue)
Case vbLong:
TotalBits = 32
Case vbString:
TotalBits = 32
Case vbInteger:
TotalBits = 16
Case vbByte:
TotalBits = 8
Case Else:
strLog = "In Function Dec2Bin:: Value passed is " & pValue & vbCrLf
strLog = strLog + "VarType(pValue) :- " & CSTR(VarType(pValue)) & vbCrLf
Wscript.Echo strLog
Err.Raise 13 ' Not a supported type
WScript.Quit
End Select
For i = TotalBits to 1 Step -1
If pValue And bitMask(i) Then
Dec2Bin = Dec2Bin + "1"
Else
Dec2Bin = Dec2Bin + "0"
End if
Next
End Function
Function countSpecficChar( strText, chChar)
Dim iPos
Dim iLen
Dim iCharFound
Dim iCount
Dim chCharAtPos
iPos = 1
iCount = 0
iLen = len(strText)
for iPos = 1 to ILen
'Get character at position
chCharAtPos = mid(strText, iPos, 1)
if (chCharAtPos = chChar) then
iCount = iCount + 1
end if
Next
countSpecficChar = iCount
End Function
function getCIDR(strIPSubnet)
Dim objArr
Dim strNumber
Dim iNumber
Dim strNumberBin
Dim iNumberofOnes
Dim iNumberofOnesTotal
objArr = Split(strIPSubnet, ".")
iNumberofOnesTotal = 0
for each strNumber in objArr
iNumber = CInt(strNumber)
strNumberBin = Dec2Bin(iNumber)
iNumberofOnes = countSpecficChar(strNumberBin, "1")
iNumberofOnesTotal = iNumberofOnesTotal + iNumberofOnes
next
getCIDR = iNumberofOnesTotal
end function
function getNetworkAddress(strIPAddress, strIPSubnet)
Dim objArrIPAddress
Dim objArrIPSubnet
Dim iIPAddress
Dim iIPSubnet
Dim strNetworkAddress
Dim id
Dim idLowerBound
Dim idUpperBound
Dim strLogicalAND
strNetworkAddress = ""
'Split Numbers into Array
objArrIPAddress = Split(strIPAddress, CHAR_PERIOD)
objArrIPSubnet = Split(strIPSubnet, CHAR_PERIOD)
id = 0
'Get Number of Octets
idLowerBound = LBOUND(objArrIPAddress)
idUpperBound = UBOUND(objArrIPAddress)
'Transverse Numbers
for id = idLowerBound to idUpperBound
iIPAddress = CInt(objArrIPAddress(id))
iIPSubnet = CInt(objArrIPSubnet(id))
strLogicalAND = ( iIPAddress AND iIPSubnet )
'If this is not the first number then add delimeter
if (strNetworkAddress <> "") Then
strNetworkAddress = strNetworkAddress + CHAR_PERIOD
end if
strNetworkAddress = strNetworkAddress + CSTR(strLogicalAND)
next
getNetworkAddress = strNetworkAddress
end function
'Get List of Arguments
set objAguments = WScript.Arguments
iNumberofArgs = objAguments.Count
if (iNumberofArgs >0) and (iNumberofArgs <> 2) Then
set objAguments = Nothing
Wscript.Echo "Expected two arguments IP Address & Subnet Mask"
Wscript.Quit
elseif (iNumberofArgs =2) Then
strIPAddress = objAguments(0)
strIPSubnet = objAguments(1)
else
call getIPAddress
end if
set objAguments = Nothing
strNetworkAddress = getNetworkAddress(strIPAddress, strIPSubnet)
strCIDR = getCIDR(strIPSubnet)
WScript.Echo "IP Address :- " & strIPAddress
WScript.Echo "IP Subnet :- " & strIPSubnet
WScript.Echo "Network Address :- " & CSTR(strNetworkAddress)
WScript.Echo "CIDR :- " & CSTR(strCIDR)
Invocation
There are two type of invocation.
The first one is to pass along the IP Address and Subnet mask.
And, the other is not pass in any arguments and have the script query the system for its IP Address and subnet mask.
Automatic
cscript networkAddress.vbs
Manual
set _IPAddress=10.0.4.101 set _IPSubnet=255.255.255.128 cscript networkAddress.vbs %_IPAddress% %_IPSubnet%
Output
