exengineer1

Option Explicit

RunAsAdmin()

Dim objDomain, User, List, strAccount
Dim strNewPass, status
On Error Resume next

'Find current Users on computer, and select one.
'------------------------------------------------