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 ÀàÊÇ·Ö¼¶×éÖ¯µÄ£¬Ã¿Ò»¼¶µÄ×ÓÀà´Ó¸¸Àà¼Ì
Ïà¹ØÎĵµ£º
'**************************¶ÁͼƬÎļþ**************************************
Sub GetPicfromDB(cn As ADODB.Connection)
On Error Resume Next
Dim ......
û¿Ç,ûÓÐCommand Button,ËùÓеÄÄÚÈݶ¼ÔÚForm_LoadÀï¡£ÓÃVBDE²é¿´£¬Form_LoadÔÚ00406A90,´ò¿ªW32dsm£¬ÔØÈëCasinoÂÖÅÌÖÇÄÜ»úÆ÷ÈË£¬²éÕÒ00406A90£¬·´»ã±à´úÂëÈçÏ£º
Quote:
:00406A90 55 &nb ......
¿ÉÒÔɸѡÊý¾Ý£¬µ«²»ÄÜÊDZê×¼µÄSQLÓï¾ä£º
Me.DsUserManager1.Tables(0).Select("id > 5 and id <20")
---------------------------------------------------------------
1.ɸѡ£º
dataset.tables("tabname").select("id=1")'Ï൱ÓÚSQLÖÐWHEREºóµÄÌõ¼þÄÚÈÝ
2.±£´æµ½ÄÄ£¿Õâµ¹ÊDz»Öª ......
¡¡¡¡Èç½ñOCX¿Ø¼þÔÚ±à³ÌÖÐÒÑÕ¼ÁìÁ˺ÜÖØÒªµÄµØÎ»,ÎÒÃÇ¿ÉÒÔÀûÓÃOCX¿Ø¼þÍê³ÉһЩÏ൱¸´Ôӵıà³Ì²Ù×÷.ͬʱOCX ¿Ø¼þ»¹ÓÐÀûÓÚÖ÷³ÌÐòµÄ¼òµ¥»¯¡¢¹¦ÄܵÄÖØÓá¢Òþ³£³ÌÐòʵÏÖϸ½Ú¡¢±ãÓÚÉý¼¶¡¢´«²¥·½±ãµÈÓŵ㡣ÏÖÔÚÎÒÃÇ¿ÉÒÔÀûÓÃVB 5.0·½±ãµÄÖÆ×÷³ö×Ô¼ºµÄOCX¿Ø¼þ¹©ÎÒÃÇÔÚ±à³ÌÖÐʹÓÃͬʱ»¹¿ÉÒÔ°ÑËüË͸øÄãÖÜΧϲ»¶±à³ÌµÄÅóÓÑ!
ÏÂÃæÁгöÖÆ× ......
µ÷Ó÷½·¨ºÜ¼òµ¥£¬ÔÚFormÖÐÈçÏÂÊéд´úÂ룺
Private Sub Form_Load()
SetHotkey 1, "Ctrl,112", "Add" '°´ Ctrl+F1 ¼¤»îÖ¸¶¨³ÌÐò£¬F1µÄAsciiÂëΪ112
SetHotkey 2, 113, "Add" '°´ F2 ¼¤»îÖ¸¶¨³ÌÐò£¬F2µÄAsciiÂëΪ113
SetHotkey 3, "Ctrl+Alt,113", "Add" '°´ Ctrl+Alt+F2 ¼¤»îÖ¸¶¨³ÌÐò£¬F2µÄAsciiÂëΪ113
End Sub
Priva ......