如何让 VBS 从文本文件中读取？

Question

我希望将单个计算机脚本变成大众使用的脚本。它的作用是允许我通过从文本文件中提取来选择要卸载的 Windows Essentials 的哪些部分。然而，它只是提示输入一个单一的计算机名称......我希望它从我创建的 Computer_Names.txt 的单独文本文件中提取，并在该列表中的所有计算机上运行卸载。我似乎无法正确理解。

Const ForReading = 1
strComputer = InputBox("Enter the Computer Name:- ") 

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile ("C:\Windows_Live_Components.txt", ForReading)
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")


StrOutput = "Uninstalled the following Software:- "
Do Until objTextFile.AtEndOfStream
strNextLine = objTextFile.Readline
arrSoftwareList = Split(strNextLine , ",")
Set colSoftware = objWMIService.ExecQuery ("Select * from Win32_Product Where Name = " & Chr(34) & arrSoftwareList(0) & Chr(34) )
For Each objSoftware in colSoftware
    objSoftware.Uninstall()
    strOutput = stroutput & vbCrLf & objsoftware.Name
Next
Loop
WScript.Echo strOutput

Computer_Names.txt 文件的内容就是这样。每台计算机上单独一行文本。

LAPD2712
LAPD2812

我们所有的计算机名称都是 4 个大写字母，4 个数字。

Answer 1

你可以这样做：

Dim objFSO, objComponentsTextFile, objComputersTextFile, objWMIService, strComputer, StrOutput
Dim computerArray(), softwareArray, x
x = 0
Redim computerArray(x)


Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objComponentsTextFile = objFSO.OpenTextFile ("C:\Windows_Live_Components.txt", 1)
Set objComputersTextFile = objFSO.OpenTextFile ("C:\Computers.txt", 1)

Do Until objComputersTextFile.AtEndOfStream
    computerArray(x) = objComputersTextFile.ReadLine
    x = x + 1
    Redim Preserve computerArray(x)
Loop

x = 0

softwareArray = Split(objComponentsTextFile.ReadLine, ",")

For Each computer in computerArray
    Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & computer & "\root\cimv2")
    StrOutput = "Uninstalled the following Software:- "
    For Each software in softwareArray
        Set colSoftware = objWMIService.ExecQuery ("Select * from Win32_Product Where Name = " & Chr(34) & software & Chr(34) )
        objSoftware.Uninstall()
        strOutput = strOutput & vbCrLf & objsoftware.Name 
    Next
    WScript.Echo strOutput
Next

这会将文本文件中的数据加载到数组中，然后在数组上循环。我认为您之前遇到过文本流到达 AtTheEndOfStream 并且没有来回传输的问题，这可以解释为什么它只处理第一台计算机。