1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
Private Function GetCountryCode(ByVal Computer As String) As String
Dim objWMIService As Object
Dim objItems As Object
Dim objItem As Object
GetCountryCode = ""
objWMIService = GetObject("winmgmts:\\" & Computer & "\root\CIMV2")
objItems = objWMIService.ExecQuery("SELECT * FROM Win32_OperatingSystem")
For Each objItem In objItems
GetCountryCode = objItem.CountryCode
Next
objWMIService = Nothing
objItems = Nothing
objItem = Nothing
End Function
|