OnErrorResumeNext

dtmTargetDate="20020301000000.000000-420"

strComputer="."

SetobjWMIService=GetObject_

("winmgmts:"&"!"&strComputer&"rootcimv2")

SetcolFolders=objWMIService.ExecQuery_

("Select*fromWin32_DirectoryWhereCreationDate>'"&_

dtmtargetDate&"'")

ForEachobjFolderincolFolders

Wscript.EchoobjFolder.Name

Next