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

原创 2005年03月03日 16:08:00
下面是我整合的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

版权声明:本文为博主原创文章,未经博主允许不得转载。

相关文章推荐

MFC学习之 将 list 表里的信息写入.txt文本 和 .xls EXCEL 文件中(ODBC)

原文链接:http://blog.csdn.net/abidepan/article/details/8266028#comments [cpp] view plain copy prin...

从一个泄露的信息文件中判断自己的QQ好友是否存在其中(TXT与EXCEL中的信息查找)

import java.io.BufferedReader; import java.io.File; import java.io.FileInputStream; import java.io.I...

如何将TXT,EXCEL或CSV数据导入ORACLE到对应表中

如何将TXT,EXCEL或CSV数据导入ORACLE到对应表中 2011-05-12 14:19 方法一,使用SQL*Loader      这个是用的较多的方法,前提必须o...

教你如何将txt复制到excel的各个单元格;并解决科学计数法显示问题及导致的个位数变0问题

1.如果你的txt或log等文件中的数据每个数据刚好都回车了,那么直接粘贴到excel即可; 2.如果你的txt或log等文件中数据较多,回车之后的每一行数据仍需再次分列,那么要求:每一行中需要分列...

如何将pdf文件转换成txt

  • 2014-08-22 15:10
  • 49.39MB
  • 下载

(转)VBS导excel.txt

c语言如何将printf产生的数据写到txt文件中

程序如下 #include void main() { FILE *fp;  // 声明一个文件流类型的变量,FILE 为 stdio.h 里定义的 fp=fopen("1.txt...

如何将pdf文件转换成excel

  • 2014-08-20 17:24
  • 49.39MB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:深度学习:神经网络中的前向传播和反向传播算法推导
举报原因:
原因补充:

(最多只允许输入30个字)