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 class Property Get¡¢Property Let ʹÓÃ
<%
'ÔÚ Class ¿éÖУ¬³ÉԱͨ¹ýÏàÓ¦µÄÉùÃ÷Óï¾ä±»ÉùÃ÷Ϊ Private(˽ÓгÉÔ±£¬Ö»ÄÜÔÚÀàÄÚ²¿µ÷ÓÃ) »ò Public(¹«ÓгÉÔ±£¬¿ÉÒÔÔÚÀàÄÚÍⲿµ÷ÓÃ) ¡£
'±»ÉùÃ÷Ϊ Private µÄ½«Ö»ÔÚ Class ¿éÄÚÊǿɼûµÄ¡£±»ÉùÃ÷Ϊ Public ²»½öÔÚ Class ¿éµÄÄÚ²¿ÊǿɼûµÄ£¬¶Ô Class ¿éÖ®ÍâµÄ´úÂëÒ²Êǿɼûµ ......
'**************************¶ÁͼƬÎļþ**************************************
Sub GetPicfromDB(cn As ADODB.Connection)
On Error Resume Next
Dim ......
“×Ô¶¯µã»÷°´Å¥”С¹¤¾ßVBÔ´Âë
Option Explicit
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const WM_LBUTTONDOWN = &H201
Private Const WM_LBUTTONUP = &H202
Pri ......
¿ÉÒÔɸѡÊý¾Ý£¬µ«²»ÄÜÊDZê×¼µÄSQLÓï¾ä£º
Me.DsUserManager1.Tables(0).Select("id > 5 and id <20")
---------------------------------------------------------------
1.ɸѡ£º
dataset.tables("tabname").select("id=1")'Ï൱ÓÚSQLÖÐWHEREºóµÄÌõ¼þÄÚÈÝ
2.±£´æµ½ÄÄ£¿Õâµ¹ÊDz»Öª ......
ÌâÄ¿£ºÒ»¼ÒСÐͺ½¿Õ¹«Ë¾¸Õ¸Õ¹ºÂòÁËһ̨¼ÆËã»ú£¬ÒÔʹÓÃеĻúƱ×Ô¶¯Ô¤¶©ÏµÍ³£¬Õâ¼Ò¹«Ë¾ÒªÇóÎÒÃÇ¿ª·¢Õâ¸öÐÂϵͳ¡£ÎÒÃÇÐèÒª±àдһ¸öÓ¦ÓóÌÐò£¬¶ÔÕâ¼Òº½¿Õ¹«Ë¾Î¨Ò»µÄÒ»¼Ü·É»ú£¨ÈÝÁ¿Îª10¸ö×ù룩µÄÿ¸öº½°à·ÖÅä×ùλ¡£Õâ¸öÓ¦ÓóÌÐòÓ¦¸ÃÊäÈëÏÂÃæÕâЩѡÏÇëÊäÈë1Ñ¡ÔñÍ·µÈ²ÕºÍÇëÊäÈë2Ñ¡Ôñ¾¼Ã²Õ¡£Èç¹ûÓû§ÊäÈë1£¬Ó¦ÓóÌÐòÓ¦¸Ã·ÖÅäÒ ......