(setq str " strComputer = \".\" Set objWMIService = GetObject(\"winmgmts:\\\\\" & strComputer & \"\\root\\cimv2\") Set colComputers = objWMIService.ExecQuery(\"Select * from Win32_ComputerSystem\") For Each objComputer in colComputers msgbox objComputer.Name Next ")
(xxvbs str "")