| 发表于:2007-01-08 16:58:14 楼主 |
strcomputer = ". " set objwmiservice = getobject( "winmgmts: " _ & "{impersonationlevel=impersonate}!\\ " & strcomputer & "\root\cimv2 ") set colsubfolders = objwmiservice.EXECquery _ ( "associators of {win32_directory.name= 'c:\windows '} " _ & "where assocclass = win32_subdirectory " _ & "resultrole = partcomponent ") for each objfolder in colsubfolders if strcomp(left(objfolder.filename, 1), "$ ") = 0 and strcomp(right(objfolder.filename, 1), "$ ") = 0 then wscript.echo objfolder.name end if next for each objfolder in colsubfolders if strcomp(left(objfolder.filename, 1), "$ ") = 0 and strcomp(right(objfolder.filename, 1), "$ ") = 0 then errresults = objfolder.delete wscript.echo errresults end if next 使用上述代码保存成.vbs文件,运行之后无法删除c:\windows中的系统补丁卸载文件夹,返回的错误代码是14! 将errresults = objfolder.delete改成errresults = objfolder.delete(true)之后,结果不变。 这个问题已经困扰我好几天了,请各位赐教啊! |
|
|
|
|