求VBS获取电脑硬件信息，并保存

set wmi=GetObject("winmgmts:\\\root\CIMV2")

set w=wmiExecQuery("select from win32_processor")

a="CPU名称"

for each i in w

a=a & vbcrlf & iName

next

set w=wmiExecQuery("select from win32_ComputerSystem")

a=a & vbcrlf & vbcrlf & "内存大小"

for each i in w

a=a & vbcrlf & iTotalPhysicalMemory

next

set w=wmiExecQuery("select from win32_DiskDrive")

a=a & vbcrlf & vbcrlf & "硬盘大小"

for each i in w

a=a & vbcrlf & iSize

next

set w=wmiExecQuery("select from win32_LogicalDisk where DriveType='3'")

a=a & vbcrlf & vbcrlf & "盘符----大小"

for each i in w

a=a & vbcrlf & iDeviceID & " ---- " & iSize

next

set w=wmiExecQuery("select from win32_NetworkAdapter")

a=a & vbcrlf & vbcrlf & "网络适配器"

for each i in w

a=a & vbcrlf & iProductName

next

Set w = wmiExecQuery("Select from Win32_NetworkAdapterConfiguration Where IPEnabled=True")

a=a & vbcrlf & vbcrlf & "MAC地址"

For Each i in w

a=a & vbcrlf & iMACAddress

Next

set w=wmiExecQuery("select from win32_VideoController")

a=a & vbcrlf & vbcrlf & "显卡型号----显存"

for each i in w

a=a & vbcrlf & iName & " ---- " & iAdapterRAM

next

Set FSO = CreateObject("ScriptingFileSystemObject")

set f=fsoopentextfile("xinxitxt",2,true)

fwrite "电脑信息：" & vbcrlf & vbcrlf & a

fclose

msgbox "OK"

说明：程序运行约2s（因为读取硬件信息）

部分程序命令可能出错（电脑禁用）

结果保存为“xinxitxt”

复制粘贴到记事本，另存为xxbat，编码选ANSI，跟要处理的文件放一起运行/&cls

@echo off

rem 获取jpg、tif或mp4视频的基本属性信息

mode con lines=5000

set #=Any question&set @=WX&set $=Q&set/az=0x53b7e0b4

title %#% +%$%%$%/%@% %z%

set ext=jpg tif mp4

set "outfile=\infocsv"

cd /d "%~dp0"

dir /a-d/b %ext% 2>nul|cscript -nologo -e:jscript "%~f0"

echo;%#% +%$%%$%/%@% %z%

pause

exit

/

var fso=new ActiveXObject('ScriptingFileSystemObject');

var sa=new ActiveXObject('ShellApplication');

while(!WSHStdInAtEndOfStream){

    var line=WSHStdInReadLine();

    var f=fsoGetFile(line);

    var filepath=fParentFolderPath;

    var filename=fName;

    var objFolder=saNameSpace(filepath);

    var objItem=objFolderParseName(filename);

    for(var i=0;i<=300;i++){

        var key=objFolderGetDetailsOf(null, i);

        var value=objFolderGetDetailsOf(objItem, i);

        if(value !='' && value != null){

            WSHecho(key+':'+value);

        }

    }

     WSHecho('----------------------------');

}

您可以使用VBScript中的WScriptShell对象的Exec方法来执行aexe并捕获其输出。以下是一个简单的例子：

Set WshShell = WScriptCreateObject("WScriptShell")

Set oExec = WshShellExec("aexe")

Do While Not oExecStdOutAtEndOfStream

    strLine = oExecStdOutReadLine()

    '在这里处理每一行输出的内容

Loop

在此示例中，WScriptShell对象的Exec方法用于执行aexe，创建一个可执行程序的进程并返回对该进程的引用。通过oExecStdOut对象可以访问该进程的标准输出，使用AtEndOfStream属性来检查是否已经读取了所有输出行。在循环中，使用ReadLine方法读取每行输出的内容，并在需要的地方进行处理。

以上就是关于求VBS获取电脑硬件信息，并保存全部的内容，包括:求VBS获取电脑硬件信息，并保存、有批量获取TIF，jpg,mp4，等文件的属性信息，保存到TXT或Excel里面的bat执行文件代码吗、vbs获取a.exe的输出内容等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！