Information Technology Reference
In-Depth Information
arrBlobValues(16) = &HFF
arrBlobValues(17) = &HFF
arrBlobValues(18) = &HFF
arrBlobValues(19) = &H7F
' next insert the 4 octets of the IP address into
' array index 20 - 23
arrIP = Split(strAlternateIP, ".")
index = 20
For Each octet in arrIP
arrBlobValues(index) = CInt(octet)
index = index + 1
Next
' the next 20 values of the blob are fixed
arrBlobValues(24) = &H01
arrBlobValues(25) = &H00
arrBlobValues(26) = &H00
arrBlobValues(27) = &H00
arrBlobValues(28) = &H00
arrBlobValues(29) = &H00
arrBlobValues(30) = &H00
arrBlobValues(31) = &H00
arrBlobValues(32) = &H04
arrBlobValues(33) = &H00
arrBlobValues(34) = &H00
arrBlobValues(35) = &H00
arrBlobValues(36) = &H00
arrBlobValues(37) = &H00
arrBlobValues(38) = &H00
arrBlobValues(39) = &H00
arrBlobValues(40) = &HFF
arrBlobValues(41) = &HFF
arrBlobValues(42) = &HFF
arrBlobValues(43) = &H7F
' now insert the 4 octets of the subnet mask
' into array index 44 - 47
arrIP = Split(strAlternateMask, ".")
index = 44
For Each octet in arrIP
arrBlobValues(index) = CInt(octet)
index = index + 1
Next
