1、引用microsoft wmi scripting
dim objserver as wbemscripting.swbemservices
dim objset as wbemscripting.swbemobjectset
dim obj as wbemscripting.swbemobject
3、產生objserver的方法很多。以下三種都試過,都可以用。但現在還不知區別在**
這裡都是用本機，所以沒有給機器名。用的是「.」
c. 類似於 b,不用createobject,而用 getobject set objserver = getobject("winmgmts://.")
4、呼叫不同的資料類名,現也有二種方法
a. set objset= objserver.instancesof("win32_service")
b. set objset= objserver.execquery("select * from win32_service ")
set objset = objserver.execquery("select * fromwin32_service where name = 'mssqlserver' ")
5、取狀態之類的。
for each obj in objset
debug.print obj.displayname, obj.status
next
msdn有更詳細說明
VB程式中使用指令碼支援
正在開發小秘書系統並不斷提高其智慧型水平,其中用到的是指令碼支援的技術 雖然這部分不屬於初學者使用,然而有些人想學這個東東,這裡就發 布出去吧 新建乙個標準exe工程 standard exe 工程 project 部件 components 選定 microsoft script control ...
VB中使用ASP物件例項
開發步驟 1.新建立activex dll 專案 2.修改project 名稱 3.修改module名稱 4.新增引用 在nt和98下開發時，必須在專案中引用microsoft transaction server type library，在windows 2000下開發，必須引用com serv...
VB中使用ASP物件例項
開發步驟 1.新建立activex dll 專案 2.修改project 名稱 3.修改module名稱 4.新增引用 在nt和98下開發時，必須在專案中引用microsoft transaction server type library，在windows 2000下開發，必須引用com serv...