/* Displays the Product IDs for Microsoft software products installed on a computer. */ objmsinfo = createcomobject("MsPIDinfo.MsPID") colmsapps. = objmsinfo~getpidinfo() DO strapp OVER colmsapps. SAY VALUE("COLMSAPPS." || strapp) END