摘要：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
浙公网安备 33010602011771号