Aus Windows den Hostname und DNS-Suffix auslesen: Sys::Hostname und ? - #74363 (Allgemeines zu Perl)

wiederlader

2007-02-27 16:51

User since
2007-01-03
36 Artikel
BenutzerIn
[default_avatar]

[quote=GwenDragon,16.02.2007, 13:40]Du kannst auch über die Registry die Daten auslesen.
Das geht mit CPAN:

Win32::TieRegistry
Die Domain wohl liegt unter
HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters
Schlüssel DHCPDomain
bzw. bei den einzelnen Interfaces unter
HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Interfaces
Schlüssel DHCPDomain
und Domain

Ist es das, was du brauchst?[/quote]
Hallo GwenDragon,

sorry für die späte Antwort. Ich komme leider nur gelegentlich zum programmieren.

Ja, so komme ich auch mit einem Standard-Modul zum gewünschten Ergebnis

Code: (dl )

use strict;

use Win32::TieRegistry (Delimiter=> "/");

my $Hostname = $Registry->{"HKEY_LOCAL_MACHINE/SYSTEM/CurrentControlSet/Services/Tcpip/Parameters/Hostname"};
print "\n$Hostname\n";
print "---------------------------------------\n\n";
#Dhcp Domain Name auslesen
my $Domain = $Registry->{"HKEY_LOCAL_MACHINE/SYSTEM/CurrentControlSet/Services/Tcpip/Parameters/DhcpDomain"};
print "\n$Domain\n";
print "---------------------------------------\n\n";

my $Host_Domain_Name = "$Hostname.$Domain";
print "\n$Host_Domain_Name\n";
print "---------------------------------------\n\n";

Danke, Gruß Markus