[TOOL] mdmchk - detect modem drivers installed on NT systems
From: support@securiteam.comDate: 03/11/02
- Previous message: support@securiteam.com: "[NT] Buffer Overflows Found in SH39's MailServer"
- Messages sorted by: [ date ] [ thread ] [ subject ] [ author ] [ attachment ]
From: support@securiteam.com To: list@securiteam.com Date: Mon, 11 Mar 2002 09:41:41 +0100 (CET)
The following security advisory is sent to the securiteam mailing list, and can be found at the SecuriTeam web site: http://www.securiteam.com
- - promotion
When was the last time you checked your server's security?
How about a monthly report?
http://www.AutomatedScanning.com - Know that you're safe.
- - - - - - - - -
mdmchk - detect modem drivers installed on NT systems
------------------------------------------------------------------------
DETAILS
mdmchk is a perl script that connects to Windows NT's registry and
determines whether a modem is installed.
This is useful for detecting modem installations, even if the modem is not
currently active.
Tool Source:
#! c:\perl\bin\perl.exe
# mdmchk.pl
# Script to detect modem drivers installed on NT systems
#
# usage: perl mdmchk.pl [name]
#
# copyright 2000 H.Carvey
# for assistance, email keydet89@yahoo.com
use strict;
use Win32::TieRegistry(Delimiter=>"/");
my $server = shift || Win32::NodeName;
\&mdmchk($server);
sub mdmchk {
my($server) = @_;
my($remote);
my ($mdm);
my($modem) = 'SYSTEM/CurrentControlSet/Control/Class/'.
'{4D36E96D-E325-11CE-BFC1-08002BE10318}';
if ($remote = $Registry->{"//$server/LMachine"}) {
if ($mdm = $remote->{$modem}) {
my @vals = $mdm->SubKeyNames;
if ($#vals != -1) {
print "Modem detected on $server...\n";
foreach my $subkey (@vals) {
my $val = $mdm->{$subkey};
my $port = $val->GetValue("AttachedTo");
my $man = $val->GetValue("Manufacturer");
my $friend = $val->GetValue("FriendlyName");
print "\tPort:\t\t$port\n";
print "\tManufact:\t$man\n";
print "\tName:\t\t$friend\n";
}
}
else {
print "No modem driver entries.\n";
}
}
else {
my $err = Win32::FormatMessage Win32::GetLastError;
print "Could not connect to modem Registry key: $err\n";
}
}
else {
my $err = Win32::FormatMessage Win32::GetLastError;
print "Could not connect to $server Registry: $err\n";
}
}
ADDITIONAL INFORMATION
The information has been provided by <mailto:JSawyer@mail.ifas.ufl.edu>
Sawyer, John H.
The tool was written by <mailto:keydet89@yahoo.com> H.Carvey.
========================================
This bulletin is sent to members of the SecuriTeam mailing list.
To unsubscribe from the list, send mail with an empty subject line and body to: list-unsubscribe@securiteam.com
In order to subscribe to the mailing list, simply forward this email to: list-subscribe@securiteam.com
====================
====================
DISCLAIMER:
The information in this bulletin is provided "AS IS" without warranty of any kind.
In no event shall we be liable for any damages whatsoever including direct, indirect, incidental, consequential, loss of business profits or special damages.
- Previous message: support@securiteam.com: "[NT] Buffer Overflows Found in SH39's MailServer"
- Messages sorted by: [ date ] [ thread ] [ subject ] [ author ] [ attachment ]
Relevant Pages
|
