check open ports???

[lnd]

i need to check open ports.
here is the link to the code but the code dont work way???

http://www.indigorose.com/forums/showthread.php?t=14060&highlight=ports&page=2


sServer = "127.0.0.1";
nPort = "80";
nTimeOut = 1;

if HTTP.TestConnection(sServer, nTimeOut, nPort, nil, nil) then
Dialog.Message("Server/Port Check", "Succesfully connected to " .. sServer .. " on port " .. nPort, MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1)
else
Dialog.Message("Server/Port Check", "Falied to connect to " .. sServer .. " on port " .. nPort, MB_OK, MB_ICONEXCLAMATION, MB_DEFBUTTON1)
end