国产探花免费观看_亚洲丰满少妇自慰呻吟_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ā)表

圖片精選

主站蜘蛛池模板： 建昌县| 河南省| 盐边县| 民权县| 定结县| 安顺市| 连城县| 旅游| 嘉峪关市| 东城区| 朝阳县| 滁州市| 石林| 株洲市| 新竹县| 黄大仙区| 镇安县| 鱼台县| 滁州市| 湖南省| 鄂州市| 南溪县| 黄平县| 盐津县| 尖扎县| 崇明县| 都昌县| 德保县| 赞皇县| 闵行区| 镇宁| 九江市| 铁岭县| 仲巴县| 定南县| 民县| 丰镇市| 合川市| 新兴县| 东乡族自治县| 温泉县|