VBA Function To Return OS Version

[gduron]

Hello,

I have a Function that returns the Operating system that is running on a computer. This code works well for me and numerous other people, but there is 1 person that when they run this code they get an error.

The error that this individual encounters is on the line:

"Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & localHost & "\root\cimv2")"

I think it might have something to do with my variable "localHost", but I'm not totally sure. I'm hoping somebody else has encountered this problem before.

Public Function getOperatingSystem()

Dim localHost As String, objWMIService As Variant, colOperatingSystems As Variant
Dim objOperatingSystem As Variant

localHost = "."
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & localHost & "\root\cimv2")
Set colOperatingSystems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem")
    
For Each objOperatingSystem In colOperatingSystems
   getOperatingSystem = objOperatingSystem.Caption ' & " " & objOperatingSystem.version
   Exit Function
Next
    
End Function

Thanks in advance.

 

[VoG]

Check for missing references in Tools > References.

 

[gduron]

Which missing references are you referring to? The function is in an XLA file and it runs fine on multiple machines. I'm not sure what reference would be missing on the machine it does not work on.

Thanks

 

[VoG]

Any missing reference on the machine that throws the error.

 

[gduron]

Sorry. I don't meant to be drawing a complete blank here, but I need to understand where I am supposed to add the reference.

Where is the below menu that you are referring to?
Tools > References

If I put that same function in a vbs file and run it on my machine it works. If I run it on the machine that is throwing the error it does not. Is there a references library located outside of the Microsoft VBA editor?

 

[VoG]

Look here http://www.cpearson.com/excel/MissingReferences.aspx

 

[gduron]

This posting refers only to the reference library from a VBA perspective. Is there a separate library that would need to be updated for VBS?