写一个批处理。有输入电脑所属人的输入框。能获取电脑的OS，CPU，主板，硬盘，显卡，IP，MAC以及几条内存单内存有多少容量的vbs批处理

在Windows操作系统中，可以使用VBScript（Visual Basic Scripting Edition）编写一个批处理文件 (.bat) 或者直接将脚本内容保存为.vbs文件来完成这样的任务。由于.VBS脚本可以直接在命令提示符环境下运行，这里我给出一个简单的VBScript示例，用于收集所需的系统信息并打印到文本文件中。请注意，VBS脚本可能需要管理员权限才能访问某些系统信息。

**批处理文件示例（.bat）：**

@echo off
title 获取系统信息
setlocal enabledelayedexpansion

rem 创建临时文本文件
echo Computer Name: %computername% > system_info.txt

rem 调用VBS脚本
cscript //nologo get_system_info.vbs >> system_info.txt

rem 显示完成消息
echo 执行完毕，结果已写入system_info.txt
pause

**VBS脚本（get_system_info.vbs）：**

Option Explicit
Dim WshNetwork, FSO, objWMIService, CPU, Board, colItems, objItem, Video, Disk, os, IPConfig, MacInfo

Set WshNetwork = CreateObject("WScript.Network")
Set FSO = CreateObject("Scripting.FileSystemObject")

'... (之前的代码片段，从这里开始)

' 添加获取MAC地址的部分
Set colItems = objWMIService.ExecQuery(" Associators Of {Win32_NetworkAdapterConfiguration(IPEnabled=true)} Where AssocClass=Win32_NetworkAdapterComponent")
For Each objAdapter In colItems
    On Error Resume Next
    Set objMacProp = objAdapter.Properties_('适配器的MAC地址属性名，如：MACAddress')
    If Err.Number = 0 Then
        MacInfo = "网卡MAC: " & objMacProp.Value & " (" & objAdapter.ElementName & ")"
    Else
        MacInfo = "网卡MAC获取失败: " & Err.Description
    End If
    If Not Len(MacInfo) = 0 Then
        WScript.Echo MacInfo >> system_info.txt
    End If
Next

'... (其余的代码片段)

WScript.Echo "IP: " & IP >> system_info.txt
WScript.Echo "所有内存信息: " & Memory2 >> system_info.txt

WScript.Echo "脚本执行完毕"

在这个例子中，你需要替换`'适配器的MAC地址属性名'`为实际的属性名称，例如`MACAddress`。运行批处理文件后，信息会逐行追加到名为`system_info.txt`的文本文件中。