网站首页  汉语字词  英语词汇  考试资料  写作素材  旧版资料

请输入您要查询的范文:

 

标题 vbs列出内网的中计算机(工作组也可以)
范文
    用vbs列出内网的中计算机(工作组也可以)的代码,需要的朋友可以参考下。
    代码如下:
    '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
随便看

 

在线学习网范文大全提供好词好句、学习总结、工作总结、演讲稿等写作素材及范文模板,是学习及工作的有利工具。

 

Copyright © 2002-2024 cuapp.net All Rights Reserved
更新时间:2025/5/24 9:13:31