最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
WMI学习
时间:2022-07-02 23:28:31 编辑:袖梨 来源:一聚教程网
WMI:Windows Management Instrument
WMI Tasks:
1、Accounts and Domains
①determine the domain in which a computer belongs:
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!" _
& strComputer & "ootcimv2")
Set colSettings = objWMIService.ExecQuery _
("Select * from Win32_ComputerSystem")
For Each objComputer in colSettings
msgbox "System Name: " & objComputer.Name
msgbox "Domain: " & objComputer.Domain
Next
②determine whether a computer is a server or a workstation:
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!" _
& strComputer & "ootcimv2")
Set colComputers = objWMIService.ExecQuery _
("Select DomainRole from Win32_ComputerSystem")
For Each objComputer in colComputers
Select Case objComputer.DomainRole
Case 0
strComputerRole = "Standalone Workstation"
Case 1 strComputerRole = "Member Workstation"
Case 2
strComputerRole = "Standalone Server"
Case 3
strComputerRole = "Member Server"
Case 4
strComputerRole = "Backup Domain Controller"
Case 5
strComputerRole = "Primary Domain Controller"
End Select
msgbox strComputerRole
Next
③determine the computer name:
WMI Tasks:
1、Accounts and Domains
①determine the domain in which a computer belongs:
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!" _
& strComputer & "ootcimv2")
Set colSettings = objWMIService.ExecQuery _
("Select * from Win32_ComputerSystem")
For Each objComputer in colSettings
msgbox "System Name: " & objComputer.Name
msgbox "Domain: " & objComputer.Domain
Next
②determine whether a computer is a server or a workstation:
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!" _
& strComputer & "ootcimv2")
Set colComputers = objWMIService.ExecQuery _
("Select DomainRole from Win32_ComputerSystem")
For Each objComputer in colComputers
Select Case objComputer.DomainRole
Case 0
strComputerRole = "Standalone Workstation"
Case 1 strComputerRole = "Member Workstation"
Case 2
strComputerRole = "Standalone Server"
Case 3
strComputerRole = "Member Server"
Case 4
strComputerRole = "Backup Domain Controller"
Case 5
strComputerRole = "Primary Domain Controller"
End Select
msgbox strComputerRole
Next
③determine the computer name:
相关文章
- 《复体重剪版》游戏攻略 简述+配置+下载 05-17
- 《夜族崛起》无情铁制武器图纸获取攻略 05-17
- 《哈迪斯2》隐藏6个金色信物解锁方法 05-17
- 《夜族崛起》解锁书房科技方法 05-17
- 《鲻鱼狂杰克》成就达成条件一览 05-17
- 《庄园领主》羊购买位置 05-17