Get SSID in VBScript using WMI For Each Loop

Question

I have a VBScript that I would like to get the active SSID set as a variable. I only expect one SSID as there is only one network card. I considered parsing NETSH, but usi