如何使用script增加本地用户时设定，如“下次登录时变更密码”、不能变更密码、密码永久有郊，账户停用、账户锁定等选项。相关资料该去那里找。我找了很久，AD中的用户我知道如何做，但本地的就不知该如何下手了，请各位指教？谢谢
* s4 c0 s4 @" G0 J7 V, `
2 c) O% o7 \2 p( K0 Z版主，請不要再移到其它地方了。

说真的，这个脚本区太冷清了。大家多努力啊！
+ A. M5 Q* m& P& B对于在AD在用户的操作都有大量的文文件及实例供参考，各个细节也预说得很详细，也好理解。但是本地用的相关属性却不知该参考那些数据。常用的add、delete用户都好做大部份属性都容易使用script来做更改。说简单点，如何设置“密码永久有郊”。

老天不负我也，终被我找到了，愿与大家共享之。
4 U& q, c Y4 ZstrComputer = "."
% r2 U9 x3 K3 m" y+ d: c9 mDim user2$ U% h M( u9 \5 n* Y+ w/ W( o
Const ADS_UF_DONT_EXPIRE_PASSWD = &H10000! r8 E# ~- _2 V$ ~
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")0 s' Q8 D& m# d& Q
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_UserAccount")
9 j& R* s2 E4 q" F H1 _
# M0 D! s9 N- u& z& Z4 _+ g, ]$ I
For Each user In colItems
1 }; i9 r: }% A' d* iuser0 = user.Name
1 m1 f- V, @ o" ZSet objUser = GetObject("WinNT://" & strComputer & "/" & user0 )3 ]4 P, j8 \6 P2 F
If Not objUser.UserFlags AND ADS_UF_DONT_EXPIRE_PASSWD Then* n5 j6 I- X$ x( j
4 ^1 _# T: t; D n" z9 A
objPasswordNoExpire = objUser.UserFlags XOR ADS_UF_DONT_EXPIRE_PASSWD
' Q8 F7 ~7 {5 w5 ^ objUser.Put "userFlags", objPasswordNoExpire
8 W" ~$ d2 R1 I* X7 A! x
4 v& q$ w7 a- N3 [+ X% s9 I2 @ objUser.SetInfo8 Q6 g' P+ A) | i" ?

u' I' i, `1 L- D. DEnd If3 d) d% Q6 _( }8 @. {) x

) C9 t2 y9 }$ ]% \0 HNext

兄弟們，看看這個，一切都明白了。
+ a8 [) z% V8 ~. Fhttp://www.microsoft.com/china/t ... ources/hey1202.mspx