Versão do Windows com WshNetwork

[Gilcimar Macedo 0]

Presciso sabe como identificar a versão do windows com o parametro WshNetwork **** ou algo do tipo.Abraços

[Gilcimar Macedo 0]

Galera consegui solucionar..Segue as dicas...

Set dtmConvertedDate = CreateObject("WbemScripting.SWbemDateTime") strComputer = "."Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colOperatingSystems = objWMIService.ExecQuery _ ("Select * from Win32_OperatingSystem") For Each objOperatingSystem In colOperatingSystems MsgBox "Boot Device: " & objOperatingSystem.BootDevice MsgBox "Build Number: " & objOperatingSystem.BuildNumber MsgBox "Build Type: " & objOperatingSystem.BuildType MsgBox "Caption: " & objOperatingSystem.Caption MsgBox "Code Set: " & objOperatingSystem.CodeSet MsgBox "Country Code: " & objOperatingSystem.CountryCode MsgBox "Debug: " & objOperatingSystem.Debug MsgBox "Encryption Level: " & objOperatingSystem.EncryptionLevel dtmConvertedDate.Value = objOperatingSystem.InstallDate dtmInstallDate = dtmConvertedDate.GetVarDate MsgBox "Install Date: " & dtmInstallDate MsgBox "Licensed Users: " & _ objOperatingSystem.NumberOfLicensedUsers MsgBox "Organization: " & objOperatingSystem.Organization MsgBox "OS Language: " & objOperatingSystem.OSLanguage MsgBox "OS Product Suite: " & objOperatingSystem.OSProductSuite MsgBox "OS Type: " & objOperatingSystem.OSType MsgBox "Primary: " & objOperatingSystem.Primary MsgBox "Registered User: " & objOperatingSystem.RegisteredUser MsgBox "Serial Number: " & objOperatingSystem.SerialNumber MsgBox "Version: " & objOperatingSystem.VersionNext

[Gilcimar Macedo 0]

A solução que estou tentando utilizar no momento não foi compativel com a versão que necessito.

 

Por exemplo abaixo identifica o Build Type da máquina, testei no Windows XP (me tornou sem erro), testei no Toucth Screen - XP Embebed (sem problema), mas quando tento no win 2000 ocorre erro, suponho que não é compativel.

 

Pode me ajudar?

Set dtmConvertedDate = CreateObject("WbemScripting.SWbemDateTime")strComputer = "."Set objWMIService = GetObject("winmgmts:" _ 	& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")Set colOperatingSystems = objWMIService.ExecQuery _	("Select * from Win32_OperatingSystem")For Each objOperatingSystem In colOperatingSystems	MsgBox "Build Type: " & objOperatingSystem.BuildTypeNext