月光软件站 - 编程文档 - 软件工程 - 如何将VBS的到的就算机信息输出到TXT或Excel文件

软件工程

本类阅读TOP10

·需求分析说明书实例
·数百种 Windows 软件的免费替代品列表
·Windows 2003网络负载均衡的实现
·Linux 入门常用命令(1)
·PHP4 + MYSQL + APACHE 在 WIN 系统下的安装、配置
·使用 DCPROMO/FORCEREMOVAL 命令强制将 Active Directory 域控制器降级
·基于ICE方式SIP信令穿透Symmetric NAT技术研究
·Linux 入门常用命令(2)
·快者为王！―――PP点点通、POCO、OP、卡盟下载速度对比公测
·cygwin的安装,vi的使用,gcc,g++的使用

→ 分类导航

VC语言	Delphi
VB语言	ASP
Perl	Java
Script	数据库
其他语言	游戏开发
文件格式	网站制作
软件工程	.NET开发

如何将VBS的到的就算机信息输出到TXT或Excel文件

作者：未知来源：月光软件站 加入时间：2005-5-13　月光软件站

下面是我整合的VBS脚本，可以查机器硬件的信息，比较方便统计域内机器的情况。
问题是：现在运行只能跳出显示信息，那个命令可以将结果输出到文件TXT或Excel，特别是一个网络目录，根据机器的名字起文件名？？拜托了～

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colSettings = objWMIService.ExecQuery _
    ("Select * from Win32_OperatingSystem")
For Each objOperatingSystem in colSettings
    Wscript.Echo "Service Pack: " & objOperatingSystem.ServicePackMajorVersion & "." & objOperatingSystem.ServicePackMinorVersion
    Wscript.Echo "Windows Directory: " & objOperatingSystem.WindowsDirectory

Next
Set colSettings = objWMIService.ExecQuery ("Select * from Win32_ComputerSystem")
For Each objComputer in colSettings
    Wscript.Echo "System Name: " & objComputer.Name
    Wscript.Echo "System Manufacturer: " & objComputer.Manufacturer
    Wscript.Echo "System Model: " & objComputer.Model
    Next
'CPU
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_Processor")
For Each objItem in colItems
    Wscript.Echo "Ext Clock: " & objItem.ExtClock
    Wscript.Echo "Manufacturer: " & objItem.Manufacturer
    Wscript.Echo "Name: " & objItem.Name
Next

'diskspace
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colDisks = objWMIService.ExecQuery _
    ("Select * from Win32_LogicalDisk")
For each objDisk in colDisks
    Wscript.Echo "DeviceID: " & vbTab &  objDisk.DeviceID
    Wscript.Echo "FileSystem: " & vbTab &  objDisk.FileSystem
    Wscript.Echo "FreeSpace: " & vbTab &  objDisk.FreeSpace /1024 /1024 /1024 & "G"
    Wscript.Echo "Size: " & vbTab &  objDisk.Size /1024 /1024 /1024 & "G"
Next

'Memory
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_PhysicalMemory",,48)
For Each objItem in colItems
    Wscript.Echo "Capacity: " & objItem.Capacity /1024/1024 &"MB"
Next

'IE
Set colSettings = objWMIService.ExecQuery ("Select * from Win32_BIOS")
For Each objBIOS in colSettings
    Wscript.Echo "BIOS Version: " & objBIOS.Version
Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer _
    & "\root\cimv2\Applications\MicrosoftIE")
Set colIESettings = objWMIService.ExecQuery _
    ("Select * from MicrosoftIE_Summary")
For Each strIESetting in colIESettings
    Wscript.Echo "Language: " & strIESetting.Language
    Wscript.Echo "Version: " & strIESetting.Version
    Wscript.Echo "Path: " & strIESetting.Path
    Wscript.Echo "Version: " & strIESetting.Version
Next

相关文章：

相关软件：