Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Set objService = objWMIService.ExecQuery("select * from Win32_BaseService where Name='Messenger'")
For Each x in objService
  x.StartService
Next