文章来源：碎片技术日志
! E$ P! f7 h) b ?
1 o2 g0 k; b# ]2 B0 D: b
程序代码
: S. i: W6 {5 {5 e<!--
2007-02-01完成 By 碎片 -->
6 \; y/ y) l. o0 P+ U<html>
; o6 u6 l( w# A$ P/ y( S4 `& i
<head>
% [( Q1 V6 a- X W7 c+ {<title>加密文件夹枚举
脚本</title>
7 \# `+ a* b+ ~9 t, }<hta:application
5 I* ~- A! h' B1 [ applicati
http://www.microsoft.com/technet/scriptcenter/" target=_blank>
脚本"
* v' D5 j c- k3 k0 ?
border="dialog"
' e) s; R& ] C7 y: n1 K% B8 d borderstyle="normal"
% ]2 Y: |6 a3 U; \* C, j, F, ~9 ?- v caption="yes"
/ o8 i/ a! }4 p" ^. q$ u% w6 F1 x c
: S4 D f# x* V% s0 K" B
maximizebutton="no"
9 e3 ] t. N! G& X/ _6 m minimizebutton="yes"
; {( M0 g6 c* e: F. i navigable="no"
0 w! T) w' K" F( T scroll="yes"
1 ]3 J% Z4 ? D: j: X/ f$ s selection="no"
( K0 h' Q3 B$ c1 \$ W9 w' r3 }
showintaskbar="yes"
6 @- {+ E7 f7 W& }) u4 C singleinstance="yes"
O5 X+ [# I+ v: a
sysmenu="yes"
) w" F( n; i: @. b: B6 ?/ L
version="1.0"
* o; Z9 q0 S* ]1 ^8 u9 ] windowstate="normal"
! i% |, N% l1 I: k5 `
>
( U2 l# B7 }7 ~% d8 B
<script language="vbscript">
0 s* a7 @; a. O% M4 h/ L
<!-- Insert code, subroutines, and functions here -->
+ ~* E! [% O' N4 C( U- Y" Z" w
window.resizeTo 445, 265
5 ]2 M# J( c# u2 _ Const strtime = "<font size=2>1.0 (2007年2月1日)</font>"
8 R& z( n% @8 i$ f2 H. C const strmail = "<font size=2>付 林 /
kernelfu@gmail.com</font>"
$ l- Z+ b6 G ]7 }& J- G4 |. F C6 `$ u2 u' a& Z
Sub Window_onLoad
# _% C& h" ~6 Z* i GetFolderEFS
9 S; q8 I! @3 f8 z1 G+ oEnd Sub
3 A5 L& |+ F7 |) u! u- L i+ m
9 f( g, S# C, w! r' e$ ^: f3 Z
Sub GetFolderEFS
1 H1 g) a' s4 u I& G
strComputer = "."
1 Z+ A7 j$ ~ E
Set objWMIService = GetObject("winmgmts:" _
* V3 n, l3 _. K; `/ ] & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
! a3 \9 a: N5 m7 ]: H. Y# xSet colFiles = objWMIService.ExecQuery _
! q2 j4 P. W0 q, y; |- D0 {4 u' r ("Select * from Win32_Directory Where Encrypted = True")
) J, J6 u) c8 s% w" h strHTML = "<table border='1'>"
+ F$ f0 M, Y4 f2 {" q: B' j9 I. E strHTML = strHTML & "<tr>"
7 T6 K; v( y# _% P ?: D( F strHTML = strHTML & "<td width=420px align=center><font size=2><b>" & "路 径" & "</b></td>"
1 Z U+ p; m; d- l2 z. b6 D/ r
& {* E: @* f2 z- U: ~
" r9 S; l2 I* G8 e8 A
For Each objFile in colFiles
* B+ [0 R O2 n8 i$ oEncryptedFileName = objFile.Name
) u5 V/ t l' ?" }/ f. s strHTML = strHTML & "<tr>"
: c9 N2 m8 p0 j7 X) q strHTML = strHTML & "<td width=430px align=left>" & EncryptedFileName & "</td>"
; V8 c( y8 c* }/ C' ^( R5 b N3 `Next
8 a, ?2 F4 D# D+ X/ _strHTML = strHTML & "</table>"
% l. l9 A; v/ s+ ~+ Q+ X \6 k: O
DataArea.InnerHTML = strHTML
# N! \. h6 K* [
End Sub
1 p* k B X" |7 J7 g4 q+ Z
/ I5 C- _( y+ I4 i2 f
Sub setx(t)
& b9 r: f( | h" u
dim obj : set obj = window.event.srcElement
7 v9 ~9 I- u! T! c q7 z1 c& u, A
if t = "" Then
! @8 l- g' _& S, y
obj.style.color = "gray"
_4 ?- Y2 A3 v. I9 l8 P) M/ p" U obj.style.cursor = "default"
7 B; f0 _1 C4 ^3 o' P \4 b
Else
) q9 Y$ U& j1 K obj.style.color = "darkblue"
8 v! W0 h$ _0 J' @0 O obj.style.cursor = "hand"
( E% k, i# Z$ i1 g+ V6 j3 v v0 e End if
; }% i( \) p2 p
footer.innerHTML = t
$ s6 M4 G) V3 N R" ^5 ]
end Sub
i+ P2 a% x& T+ d) ^. g F% K
( s4 m# r$ p0 |6 F
</script>
1 Y* G# k' Q: f: g, `! O3 [7 b</head>
8 Z" ^7 [( J2 b3 ?. T4 c<body>
) K" ?( t- W$ z( Y6 } U t! a" A; `/ ?<!-- HTML goes here -->
! m9 y9 L! D* I, m" s8 L* A <br>
" P+ U, g/ Z! A% ~0 r<body bgcolor="#99CCFF">
: c+ q6 i2 h( F3 X3 N, H
<span id = "DataArea"></span>
; q* E+ u* m# J6 K
<span style="color:gray">
" Q, |% i# }0 {5 [1 _7 o <span onmouseover=setx(strtime) onmouseout=setx('')><font size="2">版本</font></span><font size="2"> |
. X. _) Y* Y% A8 W% }2 d) ~ <span onmouseover=setx(strmail) onmouseout=setx('')>作者</span> |</font>
9 Y, m; C0 X) n6 \1 r/ \+ }$ v6 ]$ E
</span>
7 u _4 g# K5 L! I/ r \# _8 y
<span style="color:darkblue" id="footer"></span>
& Z2 ~- s/ B, Y5 c/ ~' U! q" v8 m
</body>
$ e2 C+ s' a0 z& K
</html>
9 Y1 P7 f6 X3 z
1 n: V' D5 Q0 m6 J* ~& r' m* K8 _0 S- q: j' {4 w! I6 n Q
" m( Y( ~, |; w4 V* W& `
# t' s5 e2 a3 z$ G扩展名为.hta
