VBS Script anpassen

[Maze2k3 10]

Hallo zusammen,

 

ich habe mir aus dem TechNet ein Script gezogen!

 

Leider macht dieses Script jede Info in einem eigenen Fenster auf?!

 

Wie öffne ich alle Infos in einem Fenster ??

 

 

[schnipp]

 

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

Wscript.Echo "Boot Device: " & objOperatingSystem.BootDevice

Wscript.Echo "Build Number: " & objOperatingSystem.BuildNumber

Wscript.Echo "Build Type: " & objOperatingSystem.BuildType

Wscript.Echo "Caption: " & objOperatingSystem.Caption

Wscript.Echo "Code Set: " & objOperatingSystem.CodeSet

Wscript.Echo "Country Code: " & objOperatingSystem.CountryCode

Wscript.Echo "Debug: " & objOperatingSystem.Debug

Wscript.Echo "Encryption Level: " & objOperatingSystem.EncryptionLevel

dtmConvertedDate.Value = objOperatingSystem.InstallDate

dtmInstallDate = dtmConvertedDate.GetVarDate

Wscript.Echo "Install Date: " & dtmInstallDate

Wscript.Echo "Licensed Users: " & _

objOperatingSystem.NumberOfLicensedUsers

Wscript.Echo "Organization: " & objOperatingSystem.Organization

Wscript.Echo "OS Language: " & objOperatingSystem.OSLanguage

Wscript.Echo "OS Product Suite: " & objOperatingSystem.OSProductSuite

Wscript.Echo "OS Type: " & objOperatingSystem.OSType

Wscript.Echo "Primary: " & objOperatingSystem.Primary

Wscript.Echo "Registered User: " & objOperatingSystem.RegisteredUser

Wscript.Echo "Serial Number: " & objOperatingSystem.SerialNumber

Wscript.Echo "Version: " & objOperatingSystem.Version

Next

 

[schnapp]

[Maze2k3 10]

*schieb*

 

 

weiss niemand eine Möglichkeit ?!

 

Mfg

[daMan 10]

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