使用VB.NET扫描系统服务

在大中型企业信息系统中，对客户端PC的管理，往往是容易出现问题的环节。因此，很多大公司引入了各种分布式的管理系统，例如防病毒方面的Norton AntiVirus，BlackICE防火墙，微软的 SMS (System Management Server)，等等，这些系统都会在客户端的系统安装相应的客户端软件，一般都是以服务的形式出现，但是由于种种原因，这些服务会停止运行或者该客户机根本没有安装这些客户端服务，这样管理系统就出现了疏漏，有可能造成问题，如因无法防御病毒而成为病毒源，无法为该客户端发布软件，无法管理客户PC等等。在此，我们提供一个方案，可以定时按照IP地址扫描网络，报告出那些系统的特定的服务的状态。

　　这个方案使用了Microsoft.NET技术，同时也用到了.NET Framework中的，ADO.NET ，WMI management，XML。其核心是一个由VB.NET写的程序以及它的两个配置文件，配置文件为XML格式，该程序按IP扫描网络，得到每个系统的服务 的状态，如果IP地址没有对应系统，则忽略该IP，针对没有安装服务或服务停止的系统我们在另一个线程中运行NBTSTAT命令，得到其机器名，用户名，MAC地址域等信息，以便我们找到机器解决问题。其次为了保存扫描的结果，我们需要一个很小的数据库MS-Access或MS-SQL server都可以，本文使用SQL2000 。最后为了呈现出扫描的结果，以便我们采取行动，这里我们使用网页的形式把数据库中的结果展现出来。

　　1． VB.NET程序

　　该程序使用两个XML格式的配置文件，当程序启动时会读入这些配置。其中一个文件定义了需要扫描的网段，包括排除在外的地址段。另一个文件定义了连接数据库的信息，以及数据表的定义。这两个文件的内容如下：

＜IPLIST＞

＜IP LANID="192.168.100." ＞＜EXP L=”1” H=”30”/＞＜/IP＞

＜IP LANID="192.168.101." /＞

＜IP LANID="192.168.102." /＞

＜IP LANID="192.168.103." /＞

＜IP LANID="192.168.104." ＞＜EXP L=”1” H=”40”/＞＜/IP＞

＜/IPLIST＞

　　该文件定义将要扫描5个网段，其中两个网段有些地址需要排除在外（分配给打印机等设备），对于192.168.100段，我们排除从1到30，对于192.168.104段我们排除1到40。

＜DBINFO＞

＜SERVER＞DBServer＜/SERVER＞

＜DATABASE＞DB＜/DATABASE＞

＜UID＞REPORT＜/UID＞

＜PWD＞REPORT＜/PWD＞

＜SERVICE TABLE=”SERVICE”＞SERVICE＜/SERVICE＞

＜/DBINFO＞

　　该文件定义了连接数据库所需的信息。

　　TAG
　　Meaning

　　＜SERVER＞
　　SCANSERVICE数据库的服务器名

　　＜DATABASE＞
　　SCANSERVICE数据库名

　　＜UID＞
　　用于更新SCANSERVICE数据库的数据库用户名

　　＜PWD＞
　　用于更新SCANSERVICE数据库的数据库用户的密码

　　＜SERVICE＞
　　该TAG的 inner 定义了我们希望扫描的Service的名字，这里我们假定希望扫描服务名为SERVICE

　　该TAG的属性定义了数据库中表名，该表用于保存扫描结果。