NewPassword As String
[in] String NewPassword
Password to be set.
Sets the password for the account that will be used by the service manager when authenticating the account for starting the service.
This method also accepts the NULL string. If your input is a NULL string, it means that you do not want to change the service account user's password. If the input is an empty string (""), it means that you want to reset the service account user's password.
Dim seropr As IADsServiceOperations
'Get the service operations object
Set seropr = GetObject("NTDS://MSFT/MOON/Messenger")
'Try to set the password of the service