Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations bkrike on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

How to get the info. on ONE page?

Status
Not open for further replies.

gudguy

MIS
Nov 8, 2002
93
US
Hello friends,

I have script that tells me the exchange server version and builds and OS, etc.

However the following information is each popped up on different boxes. And we have to click OK to get to another page/box for next information.

How can get everything on one box/page?

Thank you in advance.
For Each objOperatingSystem In colOperatingSystems
WScript.Echo "Build Number: " & objOperatingSystem.BuildNumber
WScript.Echo "Build Type: " & objOperatingSystem.BuildType
WScript.Echo "Country Code: " & objOperatingSystem.CountryCode
WScript.Echo "Caption: " & objOperatingSystem.Caption
WScript.Echo "Organization: " & objOperatingSystem.Organization
WScript.Echo "Install Date: " & objOperatingSystem.InstallDate
WScript.Echo "OS Type: " & objOperatingSystem.OSType
WScript.Echo "OS Product Suite: " & objOperatingSystem.OSProductSuite
WScript.Echo "Version: " & objOperatingSystem.Version
Next
 
Dim strMsg

For Each objOperatingSystem In colOperatingSystems
strMsg = strMsg & "Build Number: " & objOperatingSystem.BuildNumber & VbCrLf
strMsg = strMsg & "Build Type: " & objOperatingSystem.BuildType & VbCrLf
strMsg = strMsg & "Country Code: " & objOperatingSystem.CountryCode & VbCrLf
strMsg = strMsg & "Caption: " & objOperatingSystem.Caption & VbCrLf
strMsg = strMsg & "Organization: " & objOperatingSystem.Organization & VbCrLf
strMsg = strMsg & "Install Date: " & objOperatingSystem.InstallDate & VbCrLf
strMsg = strMsg & "OS Type: " & objOperatingSystem.OSType & VbCrLf
strMsg = strMsg & "OS Product Suite: " & objOperatingSystem.OSProductSuite & VbCrLf
strMsg = strMsg & "Version: " & objOperatingSystem.Version & VbCrLf
Next

WScript.Echo strMsg

[red]"... isn't sanity really just a one trick pony anyway?! I mean, all you get is one trick, rational thinking, but when you are good and crazy, oooh, oooh, oooh, the sky is the limit!" - The Tick[/red]
 
Thank you TomThumbKP!

So I have to add & VbCrLf
and strMSG.

It worked! thanks!

Btw, I liked your...."... isn't sanity really just a one trick pony anyway?! I mean, all you get is one trick, rational thinking, but when you are good and crazy, oooh, oooh, oooh, the sky is the limit!" - The Tick
 
thanks. The Tick is my intellectual and moral compass. :D

[red]"... isn't sanity really just a one trick pony anyway?! I mean, all you get is one trick, rational thinking, but when you are good and crazy, oooh, oooh, oooh, the sky is the limit!" - The Tick[/red]
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top