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
