daMan

Try this,

->

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

ergVal = "Boot Device: " & objOperatingSystem.BootDevice & vbcrlf

ergVal = ergVal & "Build Number: " & objOperatingSystem.BuildNumber & vbcrlf

ergVal = ergVal & "Build Type: " & objOperatingSystem.BuildType & vbcrlf

ergVal = ergVal & "Caption: " & objOperatingSystem.Caption & vbcrlf

ergVal = ergVal & "Code Set: " & objOperatingSystem.CodeSet & vbcrlf

ergVal = ergVal & "Country Code: " & objOperatingSystem.CountryCode & vbcrlf

ergVal = ergVal & "Debug: " & objOperatingSystem.Debug & vbcrlf

ergVal = ergVal & "Encryption Level: " & objOperatingSystem.EncryptionLevel & vbcrlf

dtmConvertedDate.Value = objOperatingSystem.InstallDate

dtmInstallDate = dtmConvertedDate.GetVarDate

ergVal = ergVal & "Install Date: " & dtmInstallDate & vbcrlf

ergVal = ergVal & "Licensed Users: " & objOperatingSystem.NumberOfLicensedUsers & vbcrlf

ergVal = ergVal & "Organization: " & objOperatingSystem.Organization & vbcrlf

ergVal = ergVal & "OS Language: " & objOperatingSystem.OSLanguage & vbcrlf

ergVal = ergVal & "OS Product Suite: " & objOperatingSystem.OSProductSuite & vbcrlf

ergVal = ergVal & "OS Type: " & objOperatingSystem.OSType & vbcrlf

ergVal = ergVal & "Primary: " & objOperatingSystem.Primary & vbcrlf

ergVal = ergVal & "Registered User: " & objOperatingSystem.RegisteredUser & vbcrlf

ergVal = ergVal & "Serial Number: " & objOperatingSystem.SerialNumber & vbcrlf

ergVal = ergVal & "Version: " & objOperatingSystem.Version & vbcrlf

Next

msgbox ergVal

<-

lies doch mal ne doku ;)