Try this:
use Win32; my $name = Win32::NodeName(); my $domain = Win32::DomainName(); my $filesystem = scalar Win32::FsType(); my $architecture = Win32::GetArchName(); my $cpu = Win32::GetChipName(); my $os = Win32::GetOSName(); my ($servicepack, $major, $minor, $build, $id) = Win32::GetOSVersion(); Mit freundlichen Gruessen / Best regards Armin Geyer Project Manager Technical IT Isola GmbH Tel. ++49 (0) 2421 808 306 [EMAIL PROTECTED] _______________________________________________ ActivePerl mailing list [email protected] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
