-
少酒惊砚
发布于 2008-06-16 19:44
-
收藏
strComputer="." SetobjWMIService=GetObject("winmgmts:"_ &"{impersonationLevel=impersonate}!\\"&strComputer&"\root\cimv2") SetcolFolders=objWMIService.ExecQuery_ ("Select*fromWin32_Directorywhere") ForEachobjFolderincolFolders errR..