zoukankan
html css js c++ java
WMI,列出服务器进程信息及系统服务信息及管理帐号等。
VBS代码转成vb.net比较简单,感觉学WIN32 WMI还是比较重要的。
'
*************************************************************************
'
目的:获取本机IP
'
函数:getLocalIP
'
参数:无
'
返回值:本机IP
'
*************************************************************************
Function
getLocalIP
Set
IPConfigSet
=
GetObject
(
"
winmgmts:{impersonationLevel=impersonate}
"
).ExecQuery(
"
select IPAddress from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE
"
)
For
Each
IPConfig IN IPConfigSet
If
Not
IsNull
(IPConfig.IPAddress)
Then
For
i
=
LBound
(IPConfig.IPAddress)
To
UBound
(IPConfig.IPAddress)
strIP
=
strIP
&
IPConfig.IPAddress(i)
&
"
"
Next
End
If
Next
getLocalIP
=
strIP
End Function
'
*************************************************************************
'
功能:列出服务器驱动器可用磁盘空间
'
*************************************************************************
Function
listDiskFreeSpace()
On
Error
Resume
Next
'
XP/2003
Dim
strDiskSpace
'
strComputer = "."
'
Set objWMIService = GetObject("winmgmts:" _
'
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
'
'
Set colDiskDrives = objWMIService.ExecQuery _
'
("Select * from Win32_PerfFormattedData_PerfDisk_LogicalDisk Where " _
'
& "Name <> '_Total'")
'
'
For Each objDiskDrive in colDiskDrives
'
strDiskSpace = strDiskSpace & objDiskDrive.Name & _
'
"可用空间: " & objDiskDrive.FreeMegabytes & "MB" & VbCrLf
'
Next
'
All
Const
HARD_DISK
=
3
strComputer
=
"
.
"
Set
objWMIService
=
GetObject
(
"
winmgmts:
"
_
&
"
{impersonationLevel=impersonate}!\\
"
&
strComputer
&
"
\root\cimv2
"
)
Set
colDisks
=
objWMIService.ExecQuery _
(
"
Select * from Win32_LogicalDisk Where DriveType =
"
&
HARD_DISK
&
""
)
For
Each
objDisk in colDisks
strDiskSpace
=
strDiskSpace
&
objDisk.DeviceID
&
vbTab
&
_
"
空闲磁盘空间:
"
&
vbTab
&
objDisk.FreeSpace
/
1024
/
1024
&
"
MB
"
&
VbCrLf
Next
listDiskFreeSpace
=
strDiskSpace
End Function
'
*************************************************************************
'
目的:列出服务器进程
'
函数:strProcess
'
参数:无
'
返回值:字符串
'
*************************************************************************
Function
strProcess()
strComputer
=
"
.
"
Dim
oWMI, oProcs, oProc, strSQL,strPro
strSQL
=
"
SELECT * FROM Win32_Process
"
Set
oWMI
=
GetObject
(
"
winmgmts:\\
"
&
strComputer
&
"
\root\cimv2
"
)
Set
oProcs
=
oWMI.ExecQuery(strSQL)
For
Each
oProc In oProcs
strPro
=
strPro
&
VbCrLf
&
"
名称:
"
&
oProc.Name
&
VbCrLf
&
_
"
路径:
"
&
oProc.ExecutablePath
&
VbCrLf
&
_
"
===========================================================
"
Next
Set
oProc
=
Nothing
Set
oProcs
=
Nothing
Set
oWMI
=
Nothing
strProcess
=
strPro
End Function
'
*************************************************************************
'
目的:列出系统服务名字及路径和状态
'
函数名:strServicr()
'
参数:无
'
返回值:字符串
'
*************************************************************************
Function
strService()
dim
strTemp
strComputer
=
"
.
"
Set
objWMIService
=
GetObject
(
"
winmgmts:\\
"
&
strComputer
&
"
\root\cimv2
"
)
Set
colItems
=
objWMIService.ExecQuery(
"
Select * from Win32_Service
"
)
For
Each
objItem in colItems
strTemp
=
strTemp
&
VbCrLf
&
"
名称:
"
&
objItem.DisplayName
&
VbCrLf
&
VbCrLf
&
_
"
路径:
"
&
objItem.PathName
&
VbCrLf
&
_
"
状态:
"
&
objItem.State
&
VbCrLf
&
_
"
===========================================================
"
Next
strService
=
strTemp
Set
colItems
=
Nothing
Set
objWMIService
=
Nothing
End Function
'
*************************************************************************
'
目的:列出系统用户名及状态
'
函数名:strWinUser()
'
参数:无
'
返回值:字符串
'
*************************************************************************
Function
strWinUser()
strComputer
=
"
.
"
dim
strTemp
Set
objWMIWinUser
=
GetObject
(
"
winmgmts:\\
"
&
strComputer
&
"
\root\cimv2
"
)
Set
colItems
=
objWMIWinUser.ExecQuery(
"
Select * from Win32_UserAccount
"
)
For
Each
objItem in colItems
strTemp
=
strTemp
&
VbCrLf
&
"
名称:
"
&
objItem.Caption
&
VbCrLf
&
_
"
状态:
"
&
objItem.Status
&
VbCrLf
&
_
"
===========================================================
"
Next
strWinUser
=
strTemp
Set
colItems
=
Nothing
Set
objWMIWinUser
=
Nothing
End Function
查看全文
相关阅读:
UIImage的使用
UIImageVIew的使用
关于View和VIewController的关系和理解
ZT Android 4.2蓝牙介绍
2013深秋红土地旅行计划之井冈山
系统性能优化
Reorder List
Word Break II
iOS.CocoaPods.0
Python 知识要点:案例:士兵突击
原文地址:https://www.cnblogs.com/LCX/p/482601.html
最新文章
HTML学习笔记Day13
UVa 11478
UVa 11090
UVa 10537
UVa 1416
UVa 10917
UVa 11374
UVa 1391
UVa 1146
UVa 11324
热门文章
UVa 1108
2019牛客暑期多校训练营(第八场) CDMA
资源很多,你却不会使用——以不变应万变才是自学Java的正确方法
第一周学习任务——专业打劫三十年
CodeForces-757B Bash's Big Day
树的常见术语 以及二叉树的种类 以及二叉树的几种遍历方式
二维数组按行存储和按列存储
解决mysql报错:Incorrect usage of UNION and ORDER BY
AngularJS:何时应该使用Directive、Controller、Service?【新手必看】
[leetcode]罗马数字和阿拉伯数字相互转换
Copyright © 2011-2022 走看看