broly

Dim users,response

Set users = GetObject("winmgmts:").Instancesof("Win32_useraccount") 

For Each user In users 

response = MsgBox("是否对帐号："&user.name&" 进行设置？",vbYesNo,"请选择")
If response = vbyes Then 
	user.PasswordExpires = False  
	user.Put_()
End If

Next 
复制代码

broly

Dim users

Set users = GetObject("winmgmts:").Instancesof("Win32_useraccount") 

For Each user In users 
If strcomp(lcase(user.name),lcase("Administrator"))=0 Then 
        user.PasswordExpires = False  
        user.Put_()
End If

Next 
复制代码