您好,登錄后才能下訂單哦!
這篇文章給大家分享的是有關(guān)vbs如何列出內(nèi)網(wǎng)的中計(jì)算機(jī)的內(nèi)容。小編覺(jué)得挺實(shí)用的,因此分享給大家做個(gè)參考,一起跟隨小編過(guò)來(lái)看看吧。
代碼如下:
'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)于“vbs如何列出內(nèi)網(wǎng)的中計(jì)算機(jī)”這篇文章就分享到這里了,希望以上內(nèi)容可以對(duì)大家有一定的幫助,讓大家可以學(xué)到更多知識(shí),如果覺(jué)得文章不錯(cuò),可以把它分享出去讓更多的人看到吧!
免責(zé)聲明:本站發(fā)布的內(nèi)容(圖片、視頻和文字)以原創(chuàng)、轉(zhuǎn)載和分享為主,文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng),如果涉及侵權(quán)請(qǐng)聯(lián)系站長(zhǎng)郵箱:is@yisu.com進(jìn)行舉報(bào),并提供相關(guān)證據(jù),一經(jīng)查實(shí),將立刻刪除涉嫌侵權(quán)內(nèi)容。