在使用 vbscript 获取 windows 服务器上的登录信息时需要帮助

Question

我需要获取过去 n 天内所有通过 RDP 登录到我的服务器的人的信息。我在网站上找到了一个脚本，并根据我的要求对其进行了修改。我可以遍历多个服务器并获取子文件夹并将结果写入文本文件。唯一的问题是我无法应用日期过滤器，我想列出文件夹 C:\Users 下特定日期范围的子文件夹。我只是 vbscript 的业余爱好者，有人可以帮我吗，下面是脚本：

Dim comparray(1)
Dim Item, objWMIService, colSubfolders, objFolder

Set objFSO=CreateObject("Scripting.FileSystemObject")

outFile="MyPath\Results.txt"

Set objFile = objFSO.CreateTextFile(outFile,True)

comparray(0)= "Server1"
comparray(1)= "Server2"

For Each Item in comparray

Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\" & Item & "\root\cimv2")

Set colSubfolders = objWMIService.ExecQuery _
    ("Associators of {Win32_Directory.Name='c:\users'} " _
        & "Where AssocClass = Win32_Subdirectory " _
            & "ResultRole = PartComponent") 
For Each objFolder in colSubfolders
    'Wscript.Echo objFolder.Name & Item
    objFile.WriteLine objFolder.Name & ":" & Item
Next
Next

我正在尝试另一个脚本，但是使用这个脚本我无法遍历服务器，尽管我提到了两个服务器，但它只为我提供了一个服务器的结果。我无法确定我应该将服务器阵列的块放在哪里，下面是第二个脚本：

Set objFSO=CreateObject("Scripting.FileSystemObject")

outFile="MyPath\Results.txt"

Set objFile = objFSO.CreateTextFile(outFile,True)

showfolderlist "C:\Users"

Sub ShowFolderList(folderspec)
    Dim Item, fs, f, f1, fc, s, t
    Dim comparray(1)
    comparray(0)= "server1"
    comparray(1)= "server2"
    For Each Item in comparray
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFolder(folderspec)
    Set fc = f.SubFolders
    t = (DateAdd("d",-1,"03-25-2020"))
    For Each f1 in fc
    If f1.datelastmodified > t Then
        s = s & f1.name & " - " & f1.datelastmodified
    s = s &  vbCrLf 
    objFile.WriteLine Item & ":" & vbCrLf & s
        End If
    Next
    Next
End Sub

Answer 1

最后，我能够使用 Win32_Directory class 的 LastModified 属性，并且能够找到具有特定日期范围的文件夹。

If objFolder.LastModified > "20200319101621.666501-240" Then
    'Wscript.Echo objFolder.Name & Item
    objFile.WriteLine Item & "|" & objFolder.Name & "|" &         WMIDateStringToDate(objFolder.LastModified)
End If

在使用 vbscript 获取 windows 服务器上的登录信息时需要帮助

Need help in getting login information on a windows server using vbscript

vbscript