vbs 列出该目录下所有文件和文件夹的类型,大小,和所有者
作者 佚名
来源 ASP编程
浏览
发布时间 2013-07-09
| ----------------------------------------------------------- The TotalSize of All files Administrator owns is: 0MB -------------------------------------------------------------- ※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※ -------------------------------------------------------------- The TotalSize of All files Guest owns is: 0MB -------------------------------------------------------------- ※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※ -------------------------------------------------------------- The TotalSize of All files HelpAssistant owns is: 0MB -------------------------------------------------------------- ※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※ -------------------------------------------------------------- d:\powerword 2003.rar Type: WinRAR 档案文件 Size: 503MB -------------------------------------------------------------- d:\年 度 考 核 登 记 表2006版061225.doc Type: Microsoft Word 文档 Size: 0MB -------------------------------------------------------------- d:\jcb-gx Type: File Folder Size: 22MB -------------------------------------------------------------- The TotalSize of All files lsj owns is: 525MB -------------------------------------------------------------- ※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※ -------------------------------------------------------------- The TotalSize of All files SUPPORT_388945a0 owns is: 0MB -------------------------------------------------------------- ※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※ 以下是代码: G = WScript.arguments(0) Set oFSO = CreateObject("Scripting.FileSystemObject") Set objWMI = GetObject("winmgmts:") Set oFiles = objWMI.ExecQuery("ASSOCIATORS OF {Win32_Directory.Name=''"&G&"''}" & "where ResultClass = CIM_logicalfile") Set objNetwork = CreateObject("Wscript.Network") strComputer = objNetwork.ComputerName Set colAccounts = GetObject("WinNT://" & strComputer & "") colAccounts.Filter = Array("user") For Each objUser In colAccounts TotalSize = 0 H = objUser.Name Set TXT = oFSO.OpenTextFile(G&"\TXT.TXT",8,true) For Each oFile In oFiles strFile = oFile.name Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\.\root\cimv2") Set colItems = objWMIService.ExecQuery ("ASSOCIATORS OF {Win32_LogicalFileSecuritySetting=''" & strFile & "''}" & " WHERE AssocClass=Win32_LogicalFileOwner ResultRole=Owner") For Each objItem in colItems if objItem.AccountName = H then TXT.WriteLine( "--------------------------------------------------------------") TXT.WriteLine( oFile.name) TXT.WriteLine( "Type: " & oFile.FileType) if oFile.name = G&"system volume information" then exit for end if S = 0 if oFile.FileType="File Folder" then Set objFolder = oFSO.GetFolder(oFile.name) S= Cint(objFolder.Size/1024/1024) else S= Cint(oFile.FileSize/1024/1024) end if TXT.WriteLine( "Size: " & S &"MB") Total |
凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务，公司网站：http://www.lingzhong.cn 为了给广大客户了解更多的技术信息，本技术文章收集来源于网络,凌众科技尊重文章作者的版权，如果有涉及你的版权有必要删除你的文章，请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢! |
你可能对下面的文章感兴趣
上一篇: 用于修复XP中最小化程序 在任务栏显示图标的vbs脚本下一篇: vbs之自动安装驱动程序
关于vbs 列出该目录下所有文件和文件夹的类型,大小,和所有者的所有评论
