Random Project

French Language

Good plugin, rewrited for French language (special chars …) :

‘ No. of Addresses in use
strLine = objStdOut.ReadLine
mTab = Split(strLine, “=”)
mTab2 = Split(mTab(1), ” “)
mTab3 = Split(mTab2(1), “.”)
IPsUso = mTab3(0)

‘ No. of free Addresses
strLine = objStdOut.ReadLine
mTab = Split(strLine, “=”)
mTab2 = Split(mTab(1), ” “)
mTab3 = Split(mTab2(1), “.”)
IPsLibres = mTab3(0)