|
原帖由 talkfree 于 2010-8-17 18:13 发表
"用户自定义的附加属性" 没有实现吧。
给出NTFS的文件属性给楼主参考一下,要增加一个,VBS应该是做不到的。Java不太熟,估计也不行,有知道的兄弟给指点一下。
NTFS_FILE_FLAG_READONLY ...
VBS直接实现可能不行,调一下WMI吧。好像这样:
arrComputers = Array(".")
For Each strComputer In arrComputers
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_LogicalFileSecuritySetting", "WQL", _
wbemFlagReturnImmediately + wbemFlagForwardOnly)
For Each objItem In colItems
WScript.Echo "Caption: " & objItem.Caption
。。。。。。
Next |
|