Create servdisc.vbs

This code was converted to vbscript from Raymond Kuiper's powershell servdisc.vbs script 
You can find more details at his github link:  https://github.com/q1x

The VB script will fetch a list of autostarted services via WMI and report back in a JSON formatted message so that Zabbix will understand the formatting for Low Level Discovery purposes.

Script should be added to zabbix agent config file as:
UserParameter=service.discovery,cscript /B X:\<path to the script>\servdisc.vbs

It is recommended to test it on each system before going 'live'.
Remember to use filters on the discovery templates...