On Error Resume Next 
dtmTargetDate = "20020301000000.000000-420" 
strComputer = "." 
Set objWMIService = GetObject _ 
    ("winmgmts:" & "!//" & strComputer & "/root/cimv2") 
Set colFolders = objWMIService.ExecQuery _ 
    ("Select * from Win32_Directory Where CreationDate > '" & _ 
        dtmtargetDate & "'") 
For Each objFolder in colFolders 
    Wscript.Echo objFolder.Name  
Next