On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
'主板
Set board = objWMIService.ExecQuery("Select * from Win32_BaseBoard")
For Each objItem In board
board2 = board2 & objItem.Product & ", "
Next
ss=ss&"Mainboard:"&board2&chr(13)&chr(10)
'BIOS
Set bios = objWMIService.ExecQuery("Select * from Win32_BIOS")
For Each objItem In bios
bios2 = bios2 & objItem.Name & " (" & objItem.Version & ")" & ", "
Next
ss=ss&"BIOS:"&Left(bios2, Len(bios2) - 3)&chr(13)&chr(10)
'处理器
Set cpu = objWMIService.ExecQuery("Select * from Win32_Processor")
For Each objItem In cpu
cpu2 = cpu2 & objItem.Name & ", "
Next
ss=ss&"CPU:"&Left(cpu2, Len(cpu2) - 3)&chr(13)&chr(10)
'内存
Set memory = objWMIService.ExecQuery("Select * from Win32_PhysicalMemory")
num = 0
For Each objItem In memory
total = total + objItem.Capacity / 1048576
num = num + 1
Next
ss=ss&"Memory:"& total & "M (" & num & ")" &chr(13)&chr(10)
'硬盘
Set disk = objWMIService.ExecQuery("Select * from Win32_DiskDrive")
For Each objItem In disk
disk2 = disk2 & objItem.Model & " (" & Round(objItem.Size / 1000000000) & "G), "
Next
ss=ss&"HardDisk:"& Left(disk2, Len(disk2) - 3) &chr(13)&chr(10)
'显卡
Set video = objWMIService.ExecQuery("Select * from Win32_VideoController")
For Each objItem In video
video2 = video2 & objItem.Description & ", "
Next
ss=ss&"VGA:"& Left(video2, Len(video2) - 3) &chr(13)&chr(10)
'声卡
Set sound = objWMIService.ExecQuery("Select * from Win32_SoundDevice")
For Each objItem In sound
sound2 = sound2 & objItem.Name & ", "
Next
ss=ss&"Audio:"& Left(sound2, Len(sound2) - 3) &chr(13)&chr(10)
'网卡
Set lan = objWMIService.ExecQuery("Select * from Win32_NetworkAdapter")
For Each objItem In lan
If Left(objItem.NetConnectionID,0 ) = "" Then
lan2 = lan2 & objItem.Name & objItem.MacAddress & ", "
End If
Next
lan3 = Left(lan2, Len(lan2) - 3)
ss=ss&"Network:"& Left(lan3, Len(lan3) - 17) &chr(13)&chr(10)
ss=ss&"MAC address:"& Right(lan3, 17) &chr(13)&chr(10)
'光驱
Set cdrom1 = objWMIService.ExecQuery("Select * from Win32_CDROMDrive")
For Each objItem In cdrom1
cdrom2 = cdrom2 & objItem.Name & ", "
Next
ss=ss&"MAC CD-ROM:"& Left(cdrom2, Len(cdrom2) - 3) &chr(13)&chr(10)
'电脑名
Set computername = objWMIService.ExecQuery("Select * from Win32_ComputerSystem")
For Each objItem In computername
computername2 = objItem.Name
Next
ss=ss&"Hostname:"& computername2 &chr(13)&chr(10)
'电脑型号
Set computerModel = objWMIService.ExecQuery("Select * from Win32_ComputerSystemProduct")
For Each objItem In computerModel
computerModel2 = objItem.vendor & objItem.Name & "(" & objItem.IdentifyingNumber & ")"
Next
ss=ss&"Computer Type:"& computerModel2 &chr(13)&chr(10)
'域及用户名
Set wshNetwork = CreateObject("WScript.Network")
domain2 = "Domain:" & wshNetwork.UserDomain
ss=ss&"Domain&username:"& wshNetwork.userDomain&"\" &wshNetwork.UserName &chr(13)&chr(10)
'操作系统
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem")
For Each objItem In colItems
strOSversion = objItem.Version
Next
Select Case strOSversion
Case "5.2.3790"
system2 = "Windows Server 2003"
Case "5.0.2195"
system2 = "Windows 2000"
Case "5.1.2600"
system2 = "Windows XP"
Case "6.0.6001"
system2 = "windows vista"
Case Else
system2 = "win7"
End Select
ss=ss&"Operation system:"& system2 &chr(13)&chr(10)
msgbox ss
xunjian.vbs.rar_server巡检
版权申诉
98 浏览量
2022-09-23
18:32:43
上传
评论
收藏 1KB RAR 举报
![avatar](https://profile-avatar.csdnimg.cn/3b38fb294f114a0a8dfd7bc633aed231_weixin_42660494.jpg!1)
alvarocfc
- 粉丝: 114
- 资源: 1万+
最新资源
- 数据库课程设计on-model-for-netwo开发笔记
- linux常用命令大全mage-processing-m开发笔记
- mysql安装配置教程droid-m开发笔记
- PWMmodel-for-network-ids-ma开发笔记
- apache-doris-build-env-for-2.0.c
- apache-doris-build-env-for-2.0.b
- apache-doris-build-env-for-2.0.a
- 1719422999141832_lls-release_cqfw.mobileconfig
- 数据库课程设计processing-m开发笔记
- pycharm安装教程ention-model-for-开发笔记
资源上传下载、课程学习等过程中有任何疑问或建议,欢迎提出宝贵意见哦~我们会及时处理!
点击此处反馈
![feedback](https://img-home.csdnimg.cn/images/20220527035711.png)
![feedback](https://img-home.csdnimg.cn/images/20220527035711.png)
![feedback-tip](https://img-home.csdnimg.cn/images/20220527035111.png)