Bonjour.
Bon je ne m y connait pas fortement en VBS ou en VB alors j'ai chercher sur le net et trouvé ce code:

Public Shared Function IPToLong(ByVal ipAddress As String) As Long

    Try
        Dim ip As System.Net.IPAddress = Net.IPAddress.Parse(ipAddress) 
        Return (CLng(ip.GetAddressBytes(0)) << 24) Or (CInt(ip.GetAddressBytes(1)) << 16) Or (CInt(ip.GetAddressBytes(2)) << 8) Or ip.GetAddressBytes(3)
    Catch ex As Exception 
        Return 0 
    End Try


End Function



Public Shared Function LongToIP(ByVal ipAddress As Long) As String

    Try
        Dim tmpIP As New Net.IPAddress(ipAddress)
        Dim bytes() As Byte = tmpIP.GetAddressBytes() 
        Array.Reverse(bytes)
        Dim addr As Long = CLng(BitConverter.ToUInt32(bytes, 0))
        Return New Net.IPAddress(addr).ToString() 
    Catch ex As Exception

        Return ex.Message 
    End Try

End Function

'Exemple d'utilisation

Dim IPFromLong As Long = IPToLong("127.0.0.1") ' Retournera 2130706433

Dim IPFromString As String = LongToIP(2130706433) ' Retournera "127.0.0.1"

simplement cela ne fonctione pas sous VBS, l'un d entre vous pourrai eventuellement m'indiqué la marche a suivre pour que ce code fonctionne en *.vbs? merci bien