使用Vbscript读取带有机器名、用户名、密码（用逗号分隔）的CSV

任务是首先扫描本地计算机以查找有效的计算机名（我已经这样做了），然后使用该计算机名检查CSV以将用户名和密码部分传送到某处

我的发言如下：

COMPUTERNAME1,USERNAME1,PASSWORD1
COMPUTERNAME2,USERNAME2,PASSWORD2
COMPUTERNAME3,USERNAME3,PASSWORD3

因此，例如，如果VBS使用VBS检测到计算机名：

Set wshShell = CreateObject( "WScript.Shell" )
strComputerName = wshShell.ExpandEnvironmentStrings( "%COMPUTERNAME%" )

..并检测到计算机名被调用：

COMPUTERNAME2

然后，VBS应该在CSV中查找声明的

“strComputerName”

（即

“COMPUTERNAME2”

）并通过管道将

用户名2

，

密码2

关联的下两行传输到autologin脚本（我已经有了）因此Autologin会将该计算机名与用户名和密码相关联

我们的目标是运行一个活动的CSV，这样机器的列表就会增加，所以关键是检测合适的计算机名

您可以使用：

---

它循环文件的每一行，然后测试computername，并使用

Split（）

将用户名/密码捕获到变量中，以逗号作为分隔符将行拆分为数组。

在CSV中存储凭据？我希望这些电脑不会做任何重要的事情。

Const ForReading = 1
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("C:\FSO\ScriptLog.txt", ForReading)
 Do While objFile.AtEndOfStream = False
    strLine = objFile.ReadLine
    If computername = Split(strLine, ",")(0) Then
        'found a matching computer name
        username = Split(strLine, ",")(1)
        plaintextpasswordomg = Split(strLine, ",")(2)
    End If
 Loop
 objFile.Close
 Set objFile = Nothing
 Set objFSO = Nothing