Ordnerprüfung auf neues XML Dokument in Abhängigkeit an die Uptime

  • VBScript

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von petaod.

    Ordnerprüfung auf neues XML Dokument in Abhängigkeit an die Uptime

    Moin Moin,

    ich bin neu im Forum und habe gehofft ihr könnt mir vielleicht helfen.
    Für mein Projekt benötige ich eine .vbs die einen fixen Ordner nach neuen XML-Dateien durchsucht. Neu bedeutet in diesem Fall, alles was nach dem Reboot des Rechners angelegt wurde.
    Ein Programm erstellt nach der Erstanmeldung eines Nutzers ein XML-Dokument. Bis zur Erstellung muss der Nutzer angemeldet bleiben. Ich möchte das Script nutzen um prüfen zu können ab wann die XML vorhanden ist und der neue Nutzer sich abmelden kann.
    Leider konnte ich in meinen bisherigen Versuchen noch nicht einarbeiten, das nur XML-Dateien überprüft werden.

    Quellcode

    1. strComputer = "." ' Local computer
    3. set objWMIDateTime = CreateObject("WbemScripting.SWbemDateTime")
    4. set objWMI = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
    5. set colOS = objWMI.InstancesOf("Win32_OperatingSystem")
    6. for each objOS in colOS
    7. objWMIDateTime.Value = objOS.LastBootUpTime
    8. next
    10. Dim fso
    11. Set fso = CreateObject("Scripting.FileSystemObject")
    12. Dim search, count, filePaths, newestPath, File
    13. Set newestPath = Nothing
    14. Set filePaths = CreateObject("Scripting.Dictionary")
    15. search = "D:\"
    17. For Each File In fso.GetFolder(search).Files
    18. If DateDiff("s",File.DateCreated,Now) < 1 Then
    19. filePaths.Add File.Path, File.DateCreated
    20. If newestPath Is Nothing Then
    21. Set newestPath = File
    22. Elseif newestPath.DateCreated < File.DateCreated Then
    23. set newestPath = File
    24. End If
    26. End If
    28. Next

    Wenn ich mir das nun richtig geklöppelt habe, sollten nun eigentlich die bjWMIDateTime.GetVarDate und die File.DateCreated miteinander verglichen werden können, oder?

    Ich hoffe ihr könnt mir helfen. Mir raucht die Rübe 8|

Facebook
Telefonspende