 
'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 

您可能感興趣的文章:

相關(guān)文章

ActiveX部件不能創(chuàng)建對(duì)象：dm.dmsoft代碼：800A01AD
vbs調(diào)用插件報(bào)：ActiveX部件不能創(chuàng)建對(duì)象，代碼：800A01AD，一般是因?yàn)椴《緦?dǎo)致dll文件丟失或者64系統(tǒng)問題導(dǎo)致,需要的朋友可以參考下
2019-12-12
vbs 批量修改文件，bat 批處理文件調(diào)用執(zhí)行vbs，并在cmd窗口打印返回值（vbs運(yùn)行結(jié)果）
使用vbs 腳本對(duì)工作目錄下的字符串進(jìn)行替換并統(tǒng)計(jì)被修改的文件數(shù)主調(diào)的批處理方法將捕捉該vbs腳本運(yùn)行后的結(jié)果并打印在cmd窗口。
2011-09-09
VBS基礎(chǔ)篇 - vbscript Dictionary對(duì)象
Dictionary是存儲(chǔ)數(shù)據(jù)鍵和項(xiàng)目對(duì)的對(duì)象，其主要屬性有Count、Item、Key，主要方法有Add、Exists、Items、Keys、Remove、RemoveAll
2018-05-05
MSScriptControl.ScriptControl組件的用法實(shí)例
這篇文章主要介紹了MSScriptControl.ScriptControl組件的用法實(shí)例,需要的朋友可以參考下
2014-08-08
用VBS寫的VBSCRIPT代碼格式化工具VbsBeautifier
這篇文章主要介紹了用VBS寫的VBSCRIPT代碼格式化工具VbsBeautifier,需要的朋友可以參考下
2014-09-09
VBS實(shí)現(xiàn)查詢服務(wù)的制造商
本文給大家分享的是一個(gè)使用VBS實(shí)現(xiàn)查詢服務(wù)的制造商的代碼，思路非常的巧妙，方法很簡單，這里推薦給大家。
2015-09-09
BAT批處理、VBScript批量安裝字體腳本分享
這篇文章主要介紹了BAT批處理、VBScript批量安裝字體腳本分享,本文介紹了幾種方法來實(shí)現(xiàn)需求,并對(duì)每一種的測(cè)試結(jié)果做了說明,需要的朋友可以參考下
2014-07-07
VBS教程：屬性-Count 屬性
VBS教程：屬性-Count 屬性...
2006-11-11
VBS教程：VBscript語句-Option Explicit 語句
VBS教程：VBscript語句-Option Explicit 語句...
2006-11-11
vbscript基礎(chǔ)篇 - vbs變量定義與使用方法
VBScript只有一種數(shù)據(jù)類型 —— Variant，它是根據(jù)上下文來判斷是數(shù)字還是字符串。因?yàn)閂ariant是VBScript中唯一的數(shù)據(jù)類型，所以它也是VBScript中所有函數(shù)的返回值的數(shù)據(jù)類型
2018-05-05