Option for displaying Windows versions
6 posts · Closed
Hi, thanks so much for the Network Scanner. It is great.
Just wondering if there is an option for displaying Windows versions? As in the new style... e.g. 1709, 1803 etc...
Thanks
The Windows build information unfortunately doesn't seem to be available in the old API used with options at the Workstation tab.
You can however use the Remote WMI feature to extract the full version information:
I use Remote Scripting for this. It still queries WMI, but I can manipulate the results to fit into the neat little compartments required by my Corporate Overlords.
This is paired in a Virtual Column with another query which grabs the OS Name, manipulates the raw data returned and produces dinosaur-shaped chicken nuggets.
'Display OS Build Number
On Error Resume Next
strComputer = Input.Current
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set oss = objWMIService.ExecQuery _
("SELECT BuildNumber FROM Win32_OperatingSystem")
For Each os in oss
If Err <> 0 Then
Output.Write "-X-"
ElseIf os.BuildNumber = 16299 Then
output.write "1709"
ElseIf os.BuildNumber = 15063 Then
output.write "1703"
ElseIf os.BuildNumber = 14393 Then
output.write "1607"
ElseIf os.BuildNumber = 10586 Then
output.write "1511"
ElseIf os.BuildNumber = 10240 Then
output.write "1507 LTSB"
Else
output.write os.BuildNumber
End IF
Next
Here's the OS Name query:
'Display Operating System
On Error Resume Next
strComputer = Input.Current
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set oss = objWMIService.ExecQuery _
("SELECT Caption FROM Win32_OperatingSystem")
For Each os in oss
If Err <> 0 Then
Output.Write "-X-"
ElseIf os.Caption = "Microsoft Windows 10 Enterprise 2015 LTSB" Then
output.write "Win10"
ElseIf os.Caption = "Microsoft Windows 10 Enterprise" Then
output.write "Win10"
ElseIf os.Caption = "Microsoft Windows 7 Enterprise " Then
output.write "Win7"
ElseIf os.Caption = "Microsoft Windows Server 2012 R2 Standard" Then
output.write "Svr12R2"
ElseIf os.Caption = "Microsoft Windows Server 2008 R2 Standard " Then
output.write "Svr8R2"
ElseIf os.Caption = "Microsoft Windows Server 2016 Standard" Then
output.write "Svr16"
Else
output.write os.Caption
End IF
Next Thanks for sharing! And I love your sense of humour with Corporate Overlords and Dinosaur-shaped chicken nuggets :D
;-) Thanks! My grandson LOVES dinosaur-shaped chicken nuggets so they were on my mind.
By the way, VB isn't my strongest language. Is there a way to make these scripts use a sort of 'fail-over' on the strComputer variable?
Have it use Input.Column(PC Name) first, but if it encounters an error try again with Input.Current?
I guess something like this should work. Try to connect with a host name, but if that fails, then again with the IP address:
On Error Resume Next
[color=#FF0000]strComputer = Input.Column("Host Name")[/color]
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
If Err <> 0 Then
Err.Clear
[color=#FF0000]strComputer = Input.Current[/color]
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
End If
Set oss = objWMIService.ExecQuery _
("SELECT BuildNumber FROM Win32_OperatingSystem")
...