如何将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

hadoop文件输出为txt格式

inkfish原创,请勿商业性质转载,转载请注明来源(http://blog.csdn.net/inkfish )。   Hadoop默认的输出是TextOutputFormat,输出文件名不可...
  • xugen12
  • xugen12
  • 2015年11月18日 20:52
  • 1112

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

程序如下 #include void main() { FILE *fp;  // 声明一个文件流类型的变量,FILE 为 stdio.h 里定义的 fp=fopen("1.txt...
  • felix86
  • felix86
  • 2011年09月29日 13:48
  • 18000

VBS记录集快速导出到Excel的方法(转载学习,感谢网友)

Private Sub ExportToExcel(sql As String, conStr As String) On Error GoTo EXPORT_ERR          Dim ...
  • lijun2181991
  • lijun2181991
  • 2017年05月27日 13:32
  • 321

将String输出到txt文件中,最简代码

import java.io.FileWriter; import java.io.IOException; public class Test { public static void main...
  • Ideality_hunter
  • Ideality_hunter
  • 2016年12月20日 10:48
  • 684

将cmd中的命令输出保存为txt文本文件

在使用Windows XP中的cmd.exe工具时,有时候我们想要把我们的输入命令及结果保存起来,我们可将命令运行的结果输出到文本文件。 在你输入的命令后再加上>和你想保存的文件地址和名字就可以了。...
  • enter89
  • enter89
  • 2015年07月20日 13:00
  • 8029

shell中txt转EXCEL

工作中,常常需要将HIVE数据库或者HDFS中文件通过EXCEL格式,通过邮箱发给业务人员。但是,SHELL又不能直接将txt文件转换为EXCEL可读的格式,因此编写了以下两类python脚本:...
  • u013214671
  • u013214671
  • 2016年01月17日 10:43
  • 2781

Python:把help的结果输出至文件

如题。
  • qcyfred
  • qcyfred
  • 2017年11月13日 22:52
  • 214

Linux中记录终端输出到文本文件

一,把命令运行的结果保存到文件当中:用 > 把输出转向就可以了   例子:   $ ls > ls.txt    #或者 ls-->ls.txt    #把ls命令的运行结果保存到文件ls.txt...
  • tengh
  • tengh
  • 2014年12月09日 14:50
  • 4997

【C++学习笔记】如何将输出定向到txt

#include #include using namespace std; int main() { ofstream file("log.txt"); double * p3 = new ...
  • jjjraddit
  • jjjraddit
  • 2017年03月25日 17:58
  • 600

tail 命令 从指定点开始将文件写到标准输出

tail 命令这个很有用,比如看正在运行的log。转自:http://study.chyangwa.com/IT/AIX/aixcmds5/tail.htm#mbk140craw用途从指定点开始将文件...
  • zy9210
  • zy9210
  • 2010年04月29日 16:09
  • 451
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:如何将VBS的到的就算机信息输出到TXT或Excel文件
举报原因:
原因补充:

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