Click here to Skip to main content
15,887,683 members

Comments by Member 12775034 (Top 2 by date)

Member 12775034 4-Jan-18 1:30am View    
Deleted
I'm using Windows 10 and there's no such key as ProductName under CurrentVersion.
Member 12775034 2-Jan-18 2:01am View    
I had googled many variations including the one you suggested but in vain.

This code returns "Windows/NT 6.2 "

Dim ret As Variant
ret = Evaluate(|@Platform([Specific])|)
plat$ = Join(ret, " ")
Msgbox plat$

Whereas I have windows 10 and I want like "Microsoft Windows 10 Home Single Language" or "Microsoft Windows 10".