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 ;)