A VBScript equivalent of PHP’s long2ip

Function long2ip( proper_address )

    long2ip = false

    If isNumeric(proper_address) Then
        If proper_address >= 0 and proper_address <= 4294967295 Then

            long2ip = ( proper_address / pow(256,3) ) & "." & _
                      ( (proper_address Mod pow(256,3)) / pow(256,2) ) & "." & _
                      ( ((proper_address Mod pow(256,3)) / pow(256,2)) / pow(256,1) ) & "." & _
                      ( (((proper_address Mod pow(256,3)) / pow(256,2)) / pow(256,1)) / pow(256,0) )

        End If
    End If
End Function

• Raw function on GitHub

Please also note that php.vbs offers community built functions and goes by the McDonald’s Theory. We’ll put online functions that are far from perfect, in the hopes to spark better contributions. Do you have one? Then please just:

• Edit on GitHub