国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 編程 > VBScript > 正文

vbs列出內(nèi)網(wǎng)的中計算機（工作組也可以）

2019-10-26 18:04:51
字體：大 中 小
供稿：網(wǎng)友
復(fù)制代碼 代碼如下:

'Handle Errors
On Error Resume Next
'Get the provider object
Set prov = GetObject("WinNT:")

'Examine the available domains the provider can reach
For each dom in prov

'Examine the objects in the domain and check for Computer objects
For each o in dom
If o.Class = "Computer" Then

'Display properties of the Computer
WScript.Echo o.Class & " " & o.Name
WScript.Echo " Owner: " & o.Owner
WScript.Echo " Division: " & o.Division
WScript.Echo " OperatingSystem: " & o.OperatingSystem
WScript.Echo " OS Version: " & o.OperatingSystemVersion
WScript.Echo " Processor: " & o.Processor
WScript.Echo " ProcessorCount: " & o.ProcessorCount

End If

Next
Next

發(fā)表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發(fā)表

圖片精選

主站蜘蛛池模板： 宝丰县| 洛南县| 西和县| 湾仔区| 汤原县| 贡觉县| 晋宁县| 克什克腾旗| 黑水县| 军事| 晋中市| 景谷| 贺兰县| 和静县| 遂川县| 金乡县| 福泉市| 衡山县| 常山县| 成安县| 滁州市| 洪江市| 中阳县| 凤冈县| 容城县| 公主岭市| 瓮安县| 永胜县| 盐津县| 长寿区| 肇源县| 芦山县| 平陆县| 五峰| 安多县| 五莲县| 常山县| 东至县| 即墨市| 肇庆市| 南召县|