If you want to address only one element of the collection - it is like this:
Set OneService = oWMIObjSet("\\ServerName\root\cimv2:Win32_Service.Name='SQLSERVERAGENT'")
As you can see it is more simple to go with For Each ... Next even when you have only one element.
Stanislav Petkov