![](https://img-blog.csdnimg.cn/20201014180756927.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
wmi学习笔记
zyg0
这个作者很懒,什么都没留下…
展开
-
wmi 学习笔记之获得系统版本
Dim strComputer As StringstrComputer = "."Dim objWMIService As SWbemServicesDim colOperatingSystems As SWbemObjectSetDim objOperatingSystem As SWbemObjectSet objWMIService = GetObject("winmgmts:" _原创 2005-09-30 14:20:00 · 933 阅读 · 0 评论 -
系统服务的启动和停止,禁用 和自动启动
strComputer = "."strServername="Messenger"Set services= GetObject("winmgmts://" & strComputer & "/root/cimv2")Set ServiceObject = services.Get("Win32_Service=" & strServername & "")ServiceObj原创 2005-10-09 11:09:00 · 1284 阅读 · 0 评论 -
获取硬盘信息
strComputer = "."Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!//" & strComputer _ & "/root/cimv2")Set colDiskDrives = objWMIService.ExecQuery _转载 2006-12-31 02:30:00 · 905 阅读 · 0 评论 -
获得硬盘相关信息
On Error Resume NextstrComputer = "."Set objWMIService = GetObject("winmgmts://" & strComputer & "/root/cimv2")Set colItems = objWMIService.ExecQuery("Select * from Win32_Processor")For Each o原创 2006-12-31 02:33:00 · 1073 阅读 · 1 评论