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.
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
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
- strComputer = "." ' Local computer
- set objWMIDateTime = CreateObject("WbemScripting.SWbemDateTime")
- set objWMI = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
- set colOS = objWMI.InstancesOf("Win32_OperatingSystem")
- for each objOS in colOS
- objWMIDateTime.Value = objOS.LastBootUpTime
- next
- Dim fso
- Set fso = CreateObject("Scripting.FileSystemObject")
- Dim search, count, filePaths, newestPath, File
- Set newestPath = Nothing
- Set filePaths = CreateObject("Scripting.Dictionary")
- search = "D:\"
- For Each File In fso.GetFolder(search).Files
- If DateDiff("s",File.DateCreated,Now) < 1 Then
- filePaths.Add File.Path, File.DateCreated
- If newestPath Is Nothing Then
- Set newestPath = File
- Elseif newestPath.DateCreated < File.DateCreated Then
- set newestPath = File
- End If
- End If
- 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
