VB ʹÓÃWMI±à³Ì£¨Ò»£©
	
    
    
	  
Óɵ×ÖÁÉÏÊÇ£º
          • ÍйÜ×ÊÔ´ 
          • WMI »ù´¡½á¹¹ 
          • ʹÓÃÕß 
ÍйÜ×ÊÔ´
    ÍйÜ×ÊÔ´ÊÇÈÎÒâÂß¼»òÎïÀí×é¼þ£¬Í¨¹ýʹÓà WMI ½øÐй«¿ªºÍ¹ÜÀí¡£¿ÉÒÔʹÓà WMI ¹ÜÀíµÄ Windows ×ÊÔ´°üÀ¨£º¼ÆËã»úϵͳ¡¢´ÅÅÌ¡¢ÍâΧÉ豸¡¢Ê¼þÈÕÖ¾¡¢Îļþ¡¢Îļþ¼Ð¡¢Îļþϵͳ¡¢ÍøÂç×é¼þ¡¢²Ù×÷ϵͳ×Óϵͳ¡¢ÐÔÄܼÆÊýÆ÷¡¢´òÓ¡»ú¡¢½ø³Ì¡¢×¢²á±íÉèÖᢰ²È«ÐÔ¡¢·þÎñ¡¢¹²Ïí¡¢SAM Óû§ºÍ×é¡¢Active Directory¡¢Windows °²×°³ÌÐò¡¢Windows Çý¶¯³ÌÐòģʽ (WDM) É豸Çý¶¯³ÌÐò£¬ÒÔ¼° SNMP ¹ÜÀíÐÅÏ¢»ù (MIB) Êý¾ÝµÈ¡£WMI ÍйÜ×ÊԴͨ¹ýÒ»¸öÌṩ³ÌÐòÓë WMI ͨѶ¡£
WMI »ù´¡½á¹¹
    Öмä²ãÊÇ WMI »ù´¡½á¹¹¡£WMI ÓÉËĸöÖ÷Òª×é¼þ¹¹³É£º¹«¹²ÐÅϢģÐͶÔÏó¹ÜÀíÆ÷£¨Common Information Model Object Manager£¬CIMOM£©¡¢¹«¹²ÐÅϢģÐÍ£¨Common Information Model£¬CIM£©´¢´æ¿â£¬ÒÔ¼°Ìṩ³ÌÐò¡£ÕâÈý¸ö WMI ×é¼þ¹²Í¬Ìṩͨ¹ýÆä¶¨Òå¡¢¹«¿ª¡¢·ÃÎʺͼìË÷ÅäÖú͹ÜÀíÊý¾ÝµÄ»ù´¡½á¹¹£¬ÎªÁËÐðÊöºÍÀí½â·½±ã£¬ÎÒÃÇÔÚ±¾ÎÄÖоͽ«ÕâÈý¸ö×é¼þͨ³ÆÎªCIM´¢´æ¿â¡£µÚËĸö×é¼þÊÇ WMI ½Å±¾¶ÔÏó¿â£¬¾ÍÊÇÎÒÃÇÇ°Ãæ¼¸¸öÀý³Ì¶¼±ØÐëÒýÓõēMicrosoft WMI Scripting V1.1 Library”¶ÔÏó¿â£¬¾ÍÎÒÃÇÀ´Ëµ — ¾ÍÊÇʹÓÃÕߣ¬Ê×ÏȾÍÊÇͨ¹ýWMI ½Å±¾¿âÓëCIM´¢´æ¿â´ò½»µÀÈ¥¹ÜÀíϵͳµÄ¸÷ÖÖÍйÜ×ÊÔ´¡£Òò´ËÎÒÃÇÖØµã¹Ø×¢µÄÓ¦¸ÃÊÇCIM´¢´æ¿âºÍWMI½Å±¾¶ÔÏó¿â¡£
CIM ´¢´æ¿â
    WMI µÄ»ù±¾Ë¼ÏëÊÇ — ¿ÉÒÔÓÃÒ»¸ö¼Ü¹¹Í³Ò»±íʾÀ´×Ô²»Í¬Ô´µÄÅäÖú͹ÜÀíÐÅÏ¢¡£CIM ¾ÍÊÇÕâ¸ö¼Ü¹¹£¬»¹µ÷ÓÃÁËÄ£ÐÍ»¯Íйܻ·¾³ºÍ¶¨Òåÿ¸öÓÉ WMI ¹«¿ªµÄÊý¾Ý¿éµÄ¶ÔÏó´¢´æ¿â»òÀà´æ´¢¡£¸Ã¼Ü¹¹»ùÓÚ DMTF ¹«¹²ÐÅϢģÐͱê×¼¡£
    CIM ÓÉÀà ×é³É¡£ÀàÊÇÒ»¸ö WMI ÍйÜ×ÊÔ´µÄÒ»¸öÄ£ÐÍ¡£CIM Ààͨ³£±íʾ¶¯Ì¬×ÊÔ´£¬¾ÍÊÇ˵ÍйÜ×ÊÔ´µÄʵÀý²¢²»´æ´¢ÔÚ CIM ÖУ¬¶øÊÇͨ¹ý»ùÓÚʹÓÃÕßÇëÇóµÄÌṩ³ÌÐò¶¯Ì¬¼ìË÷¡£ÆäÔÒòºÜ¼òµ¥£¬´ó¶àÊý WMI ÍйÜ×ÊÔ´µÄ²Ù×÷״̬¸ü¸ÄºÜƵ·±£¬Òò¶ø±ØÐë°´Ðè¶ÁÈ¡ÒÔÈ·±£¼ìË÷µÄÊÇ×îеÄÐÅÏ¢£¬¾ÍÏóÎÒÃÇÀý³Ì1ÖеĽø³ÌºÍÀý³Ì2ÖеķþÎñËæÊ±¶¼Ôڱ䶯µÄ¡£
    ×¢ÔÚ CIM µÄÉÏÏÂÎÄÖУ¬´¢´æ¿âÕâÒ»ÊõÓïÓÐЩ±»Îó½â¡£¾¡¹Ü CIM ÊÇÒ»¸ö´¢´æ¿â£¬¶øÇÒÄܹ»´æ´¢¾²Ì¬Êý¾Ý£¬µ«ÆäÖ÷Òª½ÇÉ«ÊÇ´æ´¢ÍйÜ×ÊÔ´µÄÄ£ÐÍ¡£
    CIM ÀàÊÇ·Ö¼¶×éÖ¯µÄ£¬Ã¿Ò»¼¶µÄ×ÓÀà´Ó¸¸Àà¼Ì
    
     
	
	
    
    
	Ïà¹ØÎĵµ£º
        
    
    VB¶ÔINIÎļþ²Ù×÷
2009-02-25 00:17
INI ÎļþÊÇʲôÑù×Ó£¿——²»»á°É£¬Õâ¶¼²»ÖªµÀ¡£INI Îļþ¾ÍÊÇ Windows Öг£¼û
µÄÒÔ .ini ΪÀ©Õ¹ÃûµÄÎļþ£¬ÆäÄÚ²¿¸ñʽºÍ¸÷²¿·ÖµÄÃû³ÆÈçÏ£º
[Section1]
Key1=Value1
Key2=Value2
Key3=Vlaue3
[Section2]
Key1=Value1
Key2=Value5
Key4=Value4
Key5=...
...
 & ......
	
    
        
    
        ³¤¾ÃÒÔÀ´£¬ÓÉÓÚ²»ÄÜÖ±½Ó»ñµÃVBÀà³ÉÔ±º¯ÊýÖ¸Õ룬ÒòΪÎÞ·¨ÔÚVBµÄÀàÄ£¿éÖÐÖ±½ÓʹÓö¨Ê±Æ÷¿Ø¼þ»ò¶¨Ê±Æ÷API£¬»ùÓÚ°³±àдµÄ»ñµÃÀà³ÉÔ±º¯ÊýÖ¸ÕëµÄº¯Êý£¬°³±àдÁËÕâ¸ö´ø¶¨Ê±Æ÷¹¦ÄܵÄÀ࣬ϣÍû¸øÅóÓÑÃÇһЩÆô·¢¡£
    Ò»¡¢Ð½¨Ò»¸öÀ࣬ÀàÃû³ÆÎªclsTimer£¬Àà´úÂëÈçÏ£º
Option Explicit   
'* ** ......
	
    
        
    
        ÓÐʱ£¬ÎªÁËʵÏÖ¶¯Ì¬¸üУ¬ÎÒÃÇÐèÒª¶ÔÕý´¦ÓÚÔËÐÐ״̬µÄÓ¦ÓóÌÐò½øÐÐ×Ôɾ³ý£¬¾ÍÏñ360°²È«ÎÀÊ¿ÔÚÏßÉý¼¶ÄÇÑù¡£µ«ÊÇ£¬WindowsÊDz»ÔÊÐíɾ³ýÕý´¦ÓÚÔËÐÐ״̬µÄÓ¦ÓóÌÐòµÄ£¬Ôõô°ì£¿Ò»°ãÀ´Ëµ£¬ÎÒÃÇ¿ÉÒÔʹÓÃÁ½¸ö³ÌÐòÀ´ÊµÏÖ£¬Ò»¸öרߺÔð°æ±¾¼ì²âºÍɾ³ý£¬Ò»¸ö²ÅÊÇÒµÎñÐèÒªµÄÖ÷Ó¦ÓóÌÐò¡£Äܲ»Äܽ«¶þÕߺ϶þÎªÒ»ÄØ£¿´ ......
	
    
        
    
             
    Dim cn As ADODB.Connection
    Dim rs     As ADODB.Recordset
    Set cn = New ADODB.Connection
    cn.Open "Provider=OraOLEDB.Oracle.1;Persist Security Info= ......
	
    
        
    
    ¡¡¡¡UDPÐÒé»ù´¡£º 
¡¡¡¡UDP(User Datagram 
Protocol)ÊÇÒ»ÖÖÎÞÁ¬½ÓÐÒ飬ÓëTCP²Ù×÷²»Í¬£¬¼ÆËã»ú¼ä²¢²»ÐèÒª½¨Á¢Ò»¸öÁ¬½Ó£¬Í¬Ê±£¬Ò»¸öUDPÓ¦ÓÿÉͬʱ×÷ΪӦÓõĿͻ§»ò·þÎñÆ÷·½¡£ 
¡¡¡¡ÓÉÓÚUDPÐÒé²¢²»ÐèÒª½¨Á¢Ò»¸öÃ÷È·µÄÁ¬½Ó£¬Òò´Ë½¨Á¢UDPÓ¦ÓÃÒª±È½¨Á¢TCPÓ¦Óüòµ¥µÃ¶à¡£ÔÚTCPÓ¦ÓÃÖУ¬Ò»¸öWinsock¿ØÖƱØÐëÃ÷È·µØÉèÖóÉ&ldqu ......