1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
#!/usr/bin/env newlisp
(net-ipv 6)
;(println "net-ping -> " (or (net-ping "officemacmini.local" 1000) (net-error)))
;(println "net-ping -> " (or (net-ping "lutzmacmini.local" 1000) (net-error)))
;;;;
(net-ipv 6)
(set 'domains '(
"altavista.ipv6.digital.com"
"ipv6.research.microsoft.com"
"www.ipv6forum.com"
"ipv6.google.com"
"www.google.com"
"www.cisco.com"
))
(dolist (dm domains)
(set 'ip (net-lookup dm))
(println dm " -> " ip " -> " (or (net-lookup (string ip)) (last (net-error))) )
)
(exit)
|
