One Hat Cyber Team
Your IP :
216.73.216.115
Server IP :
194.44.31.54
Server :
Linux zen.imath.kiev.ua 4.18.0-553.77.1.el8_10.x86_64 #1 SMP Fri Oct 3 14:30:23 UTC 2025 x86_64
Server Software :
Apache/2.4.37 (Rocky Linux) OpenSSL/1.1.1k
PHP Version :
5.6.40
Buat File
|
Buat Folder
Eksekusi
Dir :
~
/
usr
/
share
/
doc
/
perl-Sys-Virt
/
examples
/
Edit File:
dhcp-leases.pl
#!/usr/bin/perl use Sys::Virt; my $c = Sys::Virt->new(uri => "qemu:///system", readonly => 1); $n = $c->get_network_by_name("default"); foreach my $lease ($n->get_dhcp_leases()) { print "Interface ", $lease->{iface}, "\n"; print " MAC: ", $lease->{mac}, "\n"; print " IP: ", $lease->{ipaddr}, "\n"; print " Host: ", $lease->{hostname}, "\n" if $lease->{hostname}; print "\n"; }
Simpan