Vbscript +创建并比较一个用户名数组

Question

我想写一个脚本，基本上需要大量的用户数组，并检查登录用户是否匹配。如果有，则运行不同的例程。

这是我到目前为止有：

Dim objNetwork 
Dim Username 

Set objNetwork = CreateObject("WScript.Network") 
Username = objNetwork.UserName 

我有什么未来要做的就是给每个用户分配到一个数组。然后检查数组中是否有任何字符串与用户名变量匹配。我该怎么做呢？

Answer 1

找到了：P

Dim objNetwork 
Dim Username 
Dim UsersAffected 
UsersAffected = Array("username", "test2", "test3") 

Set objNetwork = CreateObject("WScript.Network") 
Username = objNetwork.UserName 

Dim c 
For each c In UsersAffected 
    if c = Username Then 
     Msgbox "Match!" 
    End if 
Next