var sw = new ActiveXObject("WbemScripting.SWbemLocator") var cs = sw.ConnectServer(); var message = ""; var comlist = cs.ExecQuery("Select * from Win32_PnPEntity"); var e = new Enumerator(comlist); for(; !e.atEnd(); e.moveNext()){ var a = …