用vbs列出內(nèi)網(wǎng)的中計(jì)算機(jī)（工作組也可以）的代碼，需要的朋友可以參考下。
    代碼如下:
    '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