如何将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 文件中

1、将 listcontrol 表中的信息 用 Cfile 函数写入 .txt 中 ,用ODBC来实现excel的写操作。afx_msg void OnBnClickedButtonExport();...

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...

如何将pdf文件转换成txt

  • 2014年08月22日 15:10
  • 49.39MB
  • 下载

(转)VBS导excel.txt

  • 2014年01月21日 00:21
  • 9KB
  • 下载

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

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

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

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

实例如何将图像导入Excel文件

  • 2008年04月04日 21:55
  • 354KB
  • 下载

javaWeb项目中如何将console中的信息输出到文件中

在开发web项目时,有时候一些老项目,对于log4j使用不是规范,造成有些log用的是stdout,这样web启动时,一些信息就会被刷掉,查看起来非常不方便,故此,有时候需要把console的信息保存...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:如何将VBS的到的就算机信息输出到TXT或Excel文件
举报原因:
原因补充:

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