WinBatch Tech Support Home

Database Search

If you can't find the information using the categories below, post a question over in our WinBatch Tech Support Forum.

TechHome

User Sample Code

Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.

Office Product List

 Keywords: SELECT Win32_Product WHERE NAME LIKE Microsoft Office Version

; Get Office Product List - Contains Version Information
ComputerName = ComputerNameGet(0)
query = "SELECT * FROM Win32_Product WHERE NAME LIKE '%%office%%'"
oWMI = GetObject( 'winmgmts:{impersonationLevel=impersonate}!//' : ComputerName : '/root/cimv2' )
colItems = oWMI.ExecQuery(query,,48)
delimiter = @LF
list = ""
ForEach objItem In colItems
      If ObjectTypeGet(objItem) == "EMPTY" Then Continue
      prodinfo  =  objItem.Name :"|": objItem.Version
      If list == "" Then list = prodinfo
      Else  list = list: delimiter : prodinfo
Next
AskItemlist('Office Product List', list, delimiter, @UNSORTED, @SINGLE )
Exit

Article ID:   W18485
Filename:   Office Product List.txt
File Created: 2013:10:23:13:31:44
Last Updated: 2013:10:23:13:31:44