Solved!! play around with the msofficekey.vbs .
1) getOffice16Infos
getOffice16Infos "15"
getOffice16Infos "16"
2) Sub getOffice16Infos
Sub getOffice16Infos(Ver)
3) result = WshShell.Run("cmd /c cscript ""C:\Program Files (x86)\Microsoft Office\Office16\OSPP.VBS"" /dstatus > C:\output.txt", 0, true)
result = WshShell.Run("cmd /c cscript ""C:\Program Files (x86)\Microsoft Office\Office" & Ver & "\OSPP.VBS"" /dstatus > C:\output.txt", 0, true)
4) result = WshShell.Run("cmd /c cscript ""C:\Program Files\Microsoft Office\Office16\OSPP.VBS"" /dstatus > C:\output.txt", 0, true)
result = WshShell.Run("cmd /c cscript ""C:\Program Files\Microsoft Office\Office" & Ver & "\OSPP.VBS"" /dstatus > C:\output.txt", 0, true)