摘要：
Sub passwordExpires(userName)Dim usersSet users = GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf("Win32_useraccount")For Each user In usersif user.Name = userName thenpasswordExpi... 阅读全文
posted @ 2005-09-14 21:08 火鸟 阅读(904) 评论(0) 推荐(0) 编辑