| Author | Messages | |
jsalandra1
Posts:123
 | | 07/16/2008 5:52 PM |
| Does anyone have a script that I can run against AD to see which servers
have R2 installed and which ones do not and export that to a file?
Justin A. Salandra
Network Engineer
"IMPORTANT NOTICE: The information in this email
(and any attachments hereto) is confidential and may be
protected by legal privileges and work product immunities.
If you are not the intended recipient, you must not use or
disseminate the information. Receipt by anyone other than the
intended recipient is not a waiver of any attorney-client or work
product privilege. If you have received this email in error, please
immediately notify me by "Reply" command and permanently
delete the original and any copies or printouts thereof. Although
this email and any attachments are believed to be free of any virus
or other defect that might affect any computer system into which it
is received and opened, it is the responsibility of the recipient to
insure that it is virus free and no responsibility is accepted by
Transatlantic Reinsurance Company or its subsidiaries or affiliates
either jointly or severally, for any loss or damage arising in any way
from its use."
| | | |
| michael1
Posts:184
| | 07/16/2008 5:52 PM |
| adfind -default -f samaccounttype=805306369 name -list
Regards,
Michael B. Smith
MCSE/Exchange MVP
http://TheEssentialExchange.com
From: ActiveDir-owner@mail.activedir.org
[mailto:ActiveDir-owner@mail.activedir.org] On Behalf Of Salandra, Justin
Sent: Wednesday, May 21, 2008 10:44 AM
To: Salandra, Justin; ActiveDir@mail.activedir.org
Subject: RE: [ActiveDir] OT: Script to determine if R2 is installed
This WMI Script when run from a server tells me that R2 is installed, but
how do I import in an entire list of all computer accounts?
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery( _
"SELECT * FROM Win32_OperatingSystem",,48)
For Each objItem in colItems
Wscript.Echo "OtherTypeDescription: " & objItem.OtherTypeDescription
Next
Justin A. Salandra
Network Engineer
Transatlantic Reinsurance Co.
80 Pine Street
7th Floor
New York, NY 10005
P: 212.770.2157
C: 917.455.0110
jsalandra@transre.com
_____
From: Salandra, Justin
Sent: Wednesday, May 21, 2008 10:36 AM
To: 'ActiveDir@mail.activedir.org'
Subject: OT: Script to determine if R2 is installed
Does anyone have a script that I can run against AD to see which servers
have R2 installed and which ones do not and export that to a file?
Justin A. Salandra
Network Engineer
"IMPORTANT NOTICE: The information in this email
(and any attachments hereto) is confidential and may be
protected by legal privileges and work product immunities.
If you are not the intended recipient, you must not use or
disseminate the information. Receipt by anyone other than the
intended recipient is not a waiver of any attorney-client or work
product privilege. If you have received this email in error, please
immediately notify me by "Reply" command and permanently
delete the original and any copies or printouts thereof. Although
this email and any attachments are believed to be free of any virus
or other defect that might affect any computer system into which it
is received and opened, it is the responsibility of the recipient to
insure that it is virus free and no responsibility is accepted by
Transatlantic Reinsurance Company or its subsidiaries or affiliates
either jointly or severally, for any loss or damage arising in any way
from its use."
| | | |
| Marty1_0
Posts:73
| | 07/16/2008 5:52 PM |
| How do you mean? Using a TXT input file?? Something like this?
Set objInputFile = fso.OpenTextFile(PATH & "\COMPUTERS.TXT", 1, True)
Do Until objInputFile.AtEndOfStream
strLine = strInputFile.ReadLine()
If Not strLine = "" Then
'Add ping target to be sure it's online if desired
Set objWMIService = GetObject("winmgmts:\\" & strLine & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery("SELECT * FROM
Win32_OperatingSystem",,48)
For Each objItem in colItems
WScript.Echo "OtherTypeDescription: " & objItem.OtherTypeDescription
Next
Loop
-Bart
On Wed, May 21, 2008 at 4:43 PM, Salandra, Justin <jsalandra@transre.com>
wrote:
> This WMI Script when run from a server tells me that R2 is installed, but
> how do I import in an entire list of all computer accounts?
>
>
>
> strComputer = "."
>
> Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
>
> Set colItems = objWMIService.ExecQuery( _
>
> "SELECT * FROM Win32_OperatingSystem",,48)
>
> For Each objItem in colItems
>
> Wscript.Echo "OtherTypeDescription: " &
> objItem.OtherTypeDescription
>
> Next
>
>
>
> Justin A. Salandra
>
> Network Engineer
>
> Transatlantic Reinsurance Co.
>
> 80 Pine Street
>
> 7th Floor
>
> New York, NY 10005
>
> P: 212.770.2157
>
> C: 917.455.0110
>
> jsalandra@transre.com
>
>
> ------------------------------
>
> *From:* Salandra, Justin
> *Sent:* Wednesday, May 21, 2008 10:36 AM
> *To:* 'ActiveDir@mail.activedir.org'
> *Subject:* OT: Script to determine if R2 is installed
>
>
>
> Does anyone have a script that I can run against AD to see which servers
> have R2 installed and which ones do not and export that to a file?
>
>
>
> Justin A. Salandra
>
> Network Engineer
>
>
>
>
>
> "IMPORTANT NOTICE: The information in this email
> (and any attachments hereto) is confidential and may be
> protected by legal privileges and work product immunities.
> If you are not the intended recipient, you must not use or
> disseminate the information. Receipt by anyone other than the
> intended recipient is not a waiver of any attorney-client or work
> product privilege. If you have received this email in error, please
> immediately notify me by "Reply" command and permanently
> delete the original and any copies or printouts thereof. Although
> this email and any attachments are believed to be free of any virus
> or other defect that might affect any computer system into which it
> is received and opened, it is the responsibility of the recipient to
> insure that it is virus free and no responsibility is accepted by
> Transatlantic Reinsurance Company or its subsidiaries or affiliates
> either jointly or severally, for any loss or damage arising in any way
> from its use."
>
>
>
>
>
| | | |
| TG
Posts:86
| | 07/16/2008 5:54 PM |
| Query Active Directory for Operatingsystemversion attribute "5.2 (3790)"
(without quotes) seems to correspond to R2
Thank you, Tony.
Tony Gordon
Windows 2003 & 2000 MCSE, Windows 2003 MCSA, PMP
ITS Infrastructure Engineering
Hewitt Associates | 100 Half Day Road | Lincolnshire, IL 60069 |
USA
Tel 847.295.5000 x50526 | Fax 847.554.1574
tony dot gordon at hewitt dot com | www.hewitt.com
From:
"Salandra, Justin" <jsalandra@transre.com>
To:
"Salandra, Justin" <jsalandra@transre.com>, ActiveDir@mail.activedir.org
Date:
05/21/2008 09:47 AM
Subject:
RE: [ActiveDir] OT: Script to determine if R2 is installed
This WMI Script when run from a server tells me that R2 is installed, but
how do I import in an entire list of all computer accounts?
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery( _
"SELECT * FROM Win32_OperatingSystem",,48)
For Each objItem in colItems
Wscript.Echo "OtherTypeDescription: " &
objItem.OtherTypeDescription
Next
Justin A. Salandra
Network Engineer
Transatlantic Reinsurance Co.
80 Pine Street
7th Floor
New York, NY 10005
P: 212.770.2157
C: 917.455.0110
jsalandra@transre.com
From: Salandra, Justin
Sent: Wednesday, May 21, 2008 10:36 AM
To: 'ActiveDir@mail.activedir.org'
Subject: OT: Script to determine if R2 is installed
Does anyone have a script that I can run against AD to see which servers
have R2 installed and which ones do not and export that to a file?
Justin A. Salandra
Network Engineer
"IMPORTANT NOTICE: The information in this email
(and any attachments hereto) is confidential and may be
protected by legal privileges and work product immunities.
If you are not the intended recipient, you must not use or
disseminate the information. Receipt by anyone other than the
intended recipient is not a waiver of any attorney-client or work
product privilege. If you have received this email in error, please
immediately notify me by "Reply" command and permanently
delete the original and any copies or printouts thereof. Although
this email and any attachments are believed to be free of any virus
or other defect that might affect any computer system into which it
is received and opened, it is the responsibility of the recipient to
insure that it is virus free and no responsibility is accepted by
Transatlantic Reinsurance Company or its subsidiaries or affiliates
either jointly or severally, for any loss or damage arising in any way
from its use."
The information contained in this e-mail and any accompanying documents may contain information that is confidential or otherwise protected from disclosure. If you are not the intended recipient of this message, or if this message has been addressed to you in error, please immediately alert the sender by reply e-mail and then delete this message, including any attachments. Any dissemination, distribution or other use of the contents of this message by anyone other than the intended recipient is strictly prohibited. All messages sent to and from this e-mail address may be monitored as permitted by applicable law and regulations to ensure compliance with our internal policies and to protect our business. E-mails are not secure and cannot be guaranteed to be error free as they can be intercepted, amended, lost or destroyed, or contain viruses. You are deemed to have accepted these risks if you communicate with us by e-mail.
| | | |
| SteveRochford
Posts:10
| | 07/16/2008 5:54 PM |
| I use AD to get a list of servers by looking for operatingsystem
containing the word "server"; you can query AD for service pack and
version number but it looks like "R2" doesn't get stored anywhere which
is a disappointment.
I suspect that this is an inefficient query - probably OK for a one off
but not good to run regularly J
It relies on the machine being switched on so that you can use your WMI
code to connect to it - the "on error resume next" will prevent it
falling over if it can't connect but could hide other problems.
Steve
on error resume next
Set oRootDSE = GetObject("LDAP://RootDSE")
sDNSDomain = oRootDSE.Get("defaultNamingContext")
Set ocommand = CreateObject("ADODB.Command")
Set oConn1 = CreateObject("ADODB.Connection")
set ors1=createobject("adodb.recordset")
oConn1.Provider = "ADsDSOObject"
oConn1.Open
ocommand.ActiveConnection = oConn1
sBase = "<LDAP://" & sDNSDomain & ">"
sFilter="(&(objectcategory=computer)(operatingsystem=*server*))"
sAttributes="name"
sQuery = sBase & ";" & sFilter & ";" & sAttributes & ";subtree"
ocommand.CommandText = sQuery
oCommand.properties("sort on")="name"
Set ors1 = ocommand.Execute
if not ors1.eof then
Do Until ors1.EOF
sComputer=ors1("name")
Set oWMIService = GetObject("winmgmts:\\" & sComputer &
"\root\CIMV2")
Set colItems = oWMIService.ExecQuery("SELECT * FROM
Win32_OperatingSystem",,48)
For Each oItem in colItems
sText=sComputer
if ucase(oItem.OtherTypeDescription)="R2" then
sText=sText & ": R2"
end if
wscript.echo sText
Next
ors1.movenext
loop
end if
From: ActiveDir-owner@mail.activedir.org
[mailto:ActiveDir-owner@mail.activedir.org] On Behalf Of Salandra,
Justin
Sent: 21 May 2008 15:44
To: Salandra, Justin; ActiveDir@mail.activedir.org
Subject: RE: [ActiveDir] OT: Script to determine if R2 is installed
This WMI Script when run from a server tells me that R2 is installed,
but how do I import in an entire list of all computer accounts?
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer &
"\root\CIMV2")
Set colItems = objWMIService.ExecQuery( _
"SELECT * FROM Win32_OperatingSystem",,48)
For Each objItem in colItems
Wscript.Echo "OtherTypeDescription: " &
objItem.OtherTypeDescription
Next
Justin A. Salandra
Network Engineer
Transatlantic Reinsurance Co.
80 Pine Street
7th Floor
New York, NY 10005
P: 212.770.2157
C: 917.455.0110
jsalandra@transre.com
________________________________
From: Salandra, Justin
Sent: Wednesday, May 21, 2008 10:36 AM
To: 'ActiveDir@mail.activedir.org'
Subject: OT: Script to determine if R2 is installed
Does anyone have a script that I can run against AD to see which servers
have R2 installed and which ones do not and export that to a file?
Justin A. Salandra
Network Engineer
"IMPORTANT NOTICE: The information in this email
(and any attachments hereto) is confidential and may be
protected by legal privileges and work product immunities.
If you are not the intended recipient, you must not use or
disseminate the information. Receipt by anyone other than the
intended recipient is not a waiver of any attorney-client or work
product privilege. If you have received this email in error, please
immediately notify me by "Reply" command and permanently
delete the original and any copies or printouts thereof. Although
this email and any attachments are believed to be free of any virus
or other defect that might affect any computer system into which it
is received and opened, it is the responsibility of the recipient to
insure that it is virus free and no responsibility is accepted by
Transatlantic Reinsurance Company or its subsidiaries or affiliates
either jointly or severally, for any loss or damage arising in any way
from its use."
| | | |
| neilruston
Posts:155
| | 07/16/2008 5:54 PM |
| Is there really anyway to differentiate R2 from w2k3 non-R2? For that
matter, is there really any difference in the two skus at an OS level?
Of course, R2 includes some add-ons but I believe the underlying OS is
actually *precisely* the same as w2k3 SP1.
When you say 'not R2' what exactly does that mean? Not w2k3? Not w2k3
SP1?
neil
________________________________
From: ActiveDir-owner@mail.activedir.org
[mailto:ActiveDir-owner@mail.activedir.org] On Behalf Of Salandra,
Justin
Sent: 21 May 2008 15:36
To: ActiveDir@mail.activedir.org
Subject: [ActiveDir] OT: Script to determine if R2 is installed
Does anyone have a script that I can run against AD to see which servers
have R2 installed and which ones do not and export that to a file?
Justin A. Salandra
Network Engineer
"IMPORTANT NOTICE: The information in this email
(and any attachments hereto) is confidential and may be
protected by legal privileges and work product immunities.
If you are not the intended recipient, you must not use or
disseminate the information. Receipt by anyone other than the
intended recipient is not a waiver of any attorney-client or work
product privilege. If you have received this email in error, please
immediately notify me by "Reply" command and permanently
delete the original and any copies or printouts thereof. Although
this email and any attachments are believed to be free of any virus
or other defect that might affect any computer system into which it
is received and opened, it is the responsibility of the recipient to
insure that it is virus free and no responsibility is accepted by
Transatlantic Reinsurance Company or its subsidiaries or affiliates
either jointly or severally, for any loss or damage arising in any way
from its use."
Barclays Wealth is the wealth management division of Barclays Bank PLC. This email may relate to or be sent from other members of the Barclays Group.
The availability of products and services may be limited by the applicable laws and regulations in certain jurisdictions. The Barclays Group does not normally accept or offer business instructions via internet email. Any action that you might take upon this message might be at your own risk.
This email and any attachments are confidential and intended solely for the addressee and may also be privileged or exempt from disclosure under applicable law. If you are not the addressee, or have received this email in error, please notify the sender immediately, delete it from your system and do not copy, disclose or otherwise act upon any part of this email or its attachments.
Internet communications are not guaranteed to be secure or virus-free. The Barclays Group does not accept responsibility for any loss arising from unauthorised access to, or interference with, any Internet communications by any third party, or from the transmission of any viruses. Replies to this email may be monitored by the Barclays Group for operational or business reasons.
Any opinion or other information in this email or its attachments that does not relate to the business of the Barclays Group is personal to the sender and is not given or endorsed by the Barclays Group.
Barclays Bank PLC. Registered in England and Wales (registered no. 1026167).
Registered Office: 1 Churchill Place, London, E14 5HP, United Kingdom.
Barclays Bank PLC is authorised and regulated by the Financial Services Authority.
| | | |
| bsonposh
Posts:171
| | 07/16/2008 5:57 PM |
| If you want an autoritative answer using WMI is your best bet. Powershell
Excels here. I can post some code if you wish.
On Wed, May 21, 2008 at 12:37 PM, Salandra, Justin <jsalandra@transre.com>
wrote:
> It is the same build for both R2 and non-R2
>
>
>
> Justin A. Salandra
>
> Network Engineer
>
> Transatlantic Reinsurance Co.
>
> 80 Pine Street
>
> 7th Floor
>
> New York, NY 10005
>
> P: 212.770.2157
>
> C: 917.455.0110
>
> jsalandra@transre.com
>
>
> ------------------------------
>
> *From:* ActiveDir-owner@mail.activedir.org [mailto:
> ActiveDir-owner@mail.activedir.org] *On Behalf Of *Tony Gordon
> *Sent:* Wednesday, May 21, 2008 11:00 AM
> *To:* ActiveDir@mail.activedir.org
> *Subject:* RE: [ActiveDir] OT: Script to determine if R2 is installed
>
>
>
>
> Query Active Directory for Operatingsystemversion attribute "5.2 (3790)"
> (without quotes) seems to correspond to R2
>
> Thank you, Tony.
>
> *
> Tony Gordon *
> Windows 2003 & 2000 MCSE, Windows 2003 MCSA, PMP
> ITS Infrastructure Engineering
> Hewitt Associates | 100 Half Day Road | Lincolnshire, IL 60069 |
> USA
> Tel 847.295.5000 x50526 | Fax 847.554.1574
> tony dot gordon at hewitt dot com | www.hewitt.com
>
> From:
>
> "Salandra, Justin" <jsalandra@transre.com>
>
> To:
>
> "Salandra, Justin" <jsalandra@transre.com>, ActiveDir@mail.activedir.org
>
> Date:
>
> 05/21/2008 09:47 AM
>
> Subject:
>
> RE: [ActiveDir] OT: Script to determine if R2 is installed
>
>
> ------------------------------
>
>
>
>
> This WMI Script when run from a server tells me that R2 is installed, but
> how do I import in an entire list of all computer accounts?
>
> strComputer = "."
> Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
> Set colItems = objWMIService.ExecQuery( _
> "SELECT * FROM Win32_OperatingSystem",,48)
> For Each objItem in colItems
> Wscript.Echo "OtherTypeDescription: " &
> objItem.OtherTypeDescription
> Next
>
> Justin A. Salandra
> Network Engineer
> Transatlantic Reinsurance Co.
> 80 Pine Street
> 7th Floor
> New York, NY 10005
> P: 212.770.2157
> C: 917.455.0110
> jsalandra@transre.com
>
>
>
> ------------------------------
>
>
> *From:* Salandra, Justin *
> Sent:* Wednesday, May 21, 2008 10:36 AM *
> To:* 'ActiveDir@mail.activedir.org'
> *
> Subject:* OT: Script to determine if R2 is installed
>
> Does anyone have a script that I can run against AD to see which servers
> have R2 installed and which ones do not and export that to a file?
>
> Justin A. Salandra
> Network Engineer
>
>
>
> "IMPORTANT NOTICE: The information in this email
> (and any attachments hereto) is confidential and may be
> protected by legal privileges and work product immunities.
> If you are not the intended recipient, you must not use or
> disseminate the information. Receipt by anyone other than the
> intended recipient is not a waiver of any attorney-client or work
> product privilege. If you have received this email in error, please
> immediately notify me by "Reply" command and permanently
> delete the original and any copies or printouts thereof. Although
> this email and any attachments are believed to be free of any virus
> or other defect that might affect any computer system into which it
> is received and opened, it is the responsibility of the recipient to
> insure that it is virus free and no responsibility is accepted by
> Transatlantic Reinsurance Company or its subsidiaries or affiliates
> either jointly or severally, for any loss or damage arising in any way
> from its use."
>
>
> ------------------------------
>
> The information contained in this e-mail and any accompanying documents may
> contain information that is confidential or otherwise protected from
> disclosure. If you are not the intended recipient of this message, or if
> this message has been addressed to you in error, please immediately alert
> the sender by reply e-mail and then delete this message, including any
> attachments. Any dissemination, distribution or other use of the contents of
> this message by anyone other than the intended recipient is strictly
> prohibited. All messages sent to and from this e-mail address may be
> monitored as permitted by applicable law and regulations to ensure
> compliance with our internal policies and to protect our business. E-mails
> are not secure and cannot be guaranteed to be error free as they can be
> intercepted, amended, lost or destroyed, or contain viruses. You are deemed
> to have accepted these risks if you communicate with us by e-mail.
>
> "IMPORTANT NOTICE: The information in this email
> (and any attachments hereto) is confidential and may be
> protected by legal privileges and work product immunities.
> If you are not the intended recipient, you must not use or
> disseminate the information. Receipt by anyone other than the
> intended recipient is not a waiver of any attorney-client or work
> product privilege. If you have received this email in error, please
> immediately notify me by "Reply" command and permanently
> delete the original and any copies or printouts thereof. Although
> this email and any attachments are believed to be free of any virus
> or other defect that might affect any computer system into which it
> is received and opened, it is the responsibility of the recipient to
> insure that it is virus free and no responsibility is accepted by
> Transatlantic Reinsurance Company or its subsidiaries or affiliates
> either jointly or severally, for any loss or damage arising in any way
> from its use."
>
>
>
>
>
| | | |
| jsalandra1
Posts:123
| | 07/16/2008 5:59 PM |
| Yes is you have a powershell command that will get me this info that
would be great.
Justin A. Salandra
Network Engineer
________________________________
From: ActiveDir-owner@mail.activedir.org
[mailto:ActiveDir-owner@mail.activedir.org] On Behalf Of Brandon Shell
Sent: Wednesday, May 21, 2008 12:58 PM
To: ActiveDir@mail.activedir.org
Subject: Re: [ActiveDir] OT: Script to determine if R2 is installed
If you want an autoritative answer using WMI is your best bet.
Powershell Excels here. I can post some code if you wish.
On Wed, May 21, 2008 at 12:37 PM, Salandra, Justin <
jsalandra@transre.com> wrote:
It is the same build for both R2 and non-R2
Justin A. Salandra
Network Engineer
Transatlantic Reinsurance Co.
80 Pine Street
7th Floor
New York, NY 10005
P: 212.770.2157
C: 917.455.0110
jsalandra@transre.com
________________________________
From: ActiveDir-owner@mail.activedir.org [mailto:
ActiveDir-owner@mail.activedir.org] On Behalf Of Tony Gordon
Sent: Wednesday, May 21, 2008 11:00 AM
To: ActiveDir@mail.activedir.org
Subject: RE: [ActiveDir] OT: Script to determine if R2 is installed
Query Active Directory for Operatingsystemversion attribute "5.2
(3790)" (without quotes) seems to correspond to R2
Thank you, Tony.
Tony Gordon
Windows 2003 & 2000 MCSE, Windows 2003 MCSA, PMP
ITS Infrastructure Engineering
Hewitt Associates | 100 Half Day Road | Lincolnshire, IL 60069 |
USA
Tel 847.295.5000 x50526 | Fax 847.554.1574
tony dot gordon at hewitt dot com | www.hewitt.com
<http://www.hewitt.com/>
From:
"Salandra, Justin" <jsalandra@transre.com>
To:
"Salandra, Justin" <jsalandra@transre.com>, ActiveDir@mail.activedir.org
Date:
05/21/2008 09:47 AM
Subject:
RE: [ActiveDir] OT: Script to determine if R2 is installed
________________________________
This WMI Script when run from a server tells me that R2 is installed,
but how do I import in an entire list of all computer accounts?
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer &
"\root\CIMV2")
Set colItems = objWMIService.ExecQuery( _
"SELECT * FROM Win32_OperatingSystem",,48)
For Each objItem in colItems
Wscript.Echo "OtherTypeDescription: " &
objItem.OtherTypeDescription
Next
Justin A. Salandra
Network Engineer
Transatlantic Reinsurance Co.
80 Pine Street
7th Floor
New York, NY 10005
P: 212.770.2157
C: 917.455.0110
jsalandra@transre.com
________________________________
From: Salandra, Justin
Sent: Wednesday, May 21, 2008 10:36 AM
To: 'ActiveDir@mail.activedir.org'
Subject: OT: Script to determine if R2 is installed
Does anyone have a script that I can run against AD to see which servers
have R2 installed and which ones do not and export that to a file?
Justin A. Salandra
Network Engineer
"IMPORTANT NOTICE: The information in this email
(and any attachments hereto) is confidential and may be
protected by legal privileges and work product immunities.
If you are not the intended recipient, you must not use or
disseminate the information. Receipt by anyone other than the
intended recipient is not a waiver of any attorney-client or work
product privilege. If you have received this email in error, please
immediately notify me by "Reply" command and permanently
delete the original and any copies or printouts thereof. Although
this email and any attachments are believed to be free of any virus
or other defect that might affect any computer system into which it
is received and opened, it is the responsibility of the recipient to
insure that it is virus free and no responsibility is accepted by
Transatlantic Reinsurance Company or its subsidiaries or affiliates
either jointly or severally, for any loss or damage arising in any way
from its use."
________________________________
The information contained in this e-mail and any accompanying documents
may contain information that is confidential or otherwise protected from
disclosure. If you are not the intended recipient of this message, or if
this message has been addressed to you in error, please immediately
alert the sender by reply e-mail and then delete this message, including
any attachments. Any dissemination, distribution or other use of the
contents of this message by anyone other than the intended recipient is
strictly prohibited. All messages sent to and from this e-mail address
may be monitored as permitted by applicable law and regulations to
ensure compliance with our internal policies and to protect our
business. E-mails are not secure and cannot be guaranteed to be error
free as they can be intercepted, amended, lost or destroyed, or contain
viruses. You are deemed to have accepted these risks if you communicate
with us by e-mail.
"IMPORTANT NOTICE: The information in this email
(and any attachments hereto) is confidential and may be
protected by legal privileges and work product immunities.
If you are not the intended recipient, you must not use or
disseminate the information. Receipt by anyone other than the
intended recipient is not a waiver of any attorney-client or work
product privilege. If you have received this email in error, please
immediately notify me by "Reply" command and permanently
delete the original and any copies or printouts thereof. Although
this email and any attachments are believed to be free of any virus
or other defect that might affect any computer system into which it
is received and opened, it is the responsibility of the recipient to
insure that it is virus free and no responsibility is accepted by
Transatlantic Reinsurance Company or its subsidiaries or affiliates
either jointly or severally, for any loss or damage arising in any way
from its use."
"IMPORTANT NOTICE: The information in this email
(and any attachments hereto) is confidential and may be
protected by legal privileges and work product immunities.
If you are not the intended recipient, you must not use or
disseminate the information. Receipt by anyone other than the
intended recipient is not a waiver of any attorney-client or work
product privilege. If you have received this email in error, please
immediately notify me by "Reply" command and permanently
delete the original and any copies or printouts thereof. Although
this email and any attachments are believed to be free of any virus
or other defect that might affect any computer system into which it
is received and opened, it is the responsibility of the recipient to
insure that it is virus free and no responsibility is accepted by
Transatlantic Reinsurance Company or its subsidiaries or affiliates
either jointly or severally, for any loss or damage arising in any way
from its use."
| | | |
| davidaragon
Posts:5
| | 07/16/2008 5:59 PM |
| There is no "end if" to the if statement on line 4
David Aragon
On May 21, 2008, at May 21 @ 10:15 AM, Salandra, Justin wrote:
> I tried this but get an error on Line 12 saying trying to do a loop
> without a do
>
> Set objInputFile = fso.OpenTextFile("c:\adfind\COMPUTERS.TXT", 1,
> True)
> Do Until objInputFile.AtEndOfStream
> strLine = strInputFile.ReadLine()
> If Not strLine = "" Then
> 'Add ping target to be sure it's online if desired
> Set objWMIService = GetObject("winmgmts:\\" & strLine & "\root
> \CIMV2")
> Set colItems = objWMIService.ExecQuery("SELECT * FROM
> Win32_OperatingSystem",,48)
> For Each objItem in colItems
> Wscript.Echo "CSName: " & objItem.CSName
> WScript.Echo "OtherTypeDescription: " &
> objItem.OtherTypeDescription
> Next
> Loop
>
> Justin A. Salandra
> Network Engineer
>
> From: ActiveDir-owner@mail.activedir.org [mailto:ActiveDir-owner@mail.activedir.org
> ] On Behalf Of Bart Van den Wyngaert
> Sent: Wednesday, May 21, 2008 10:53 AM
> To: ActiveDir@mail.activedir.org
> Subject: Re: [ActiveDir] OT: Script to determine if R2 is installed
>
> How do you mean? Using a TXT input file?? Something like this?
>
> Set objInputFile = fso.OpenTextFile(PATH & "\COMPUTERS.TXT", 1, True)
> Do Until objInputFile.AtEndOfStream
> strLine = strInputFile.ReadLine()
> If Not strLine = "" Then
> 'Add ping target to be sure it's online if desired
> Set objWMIService = GetObject("winmgmts:\\" & strLine & "\root
> \CIMV2")
> Set colItems = objWMIService.ExecQuery("SELECT * FROM
> Win32_OperatingSystem",,48)
> For Each objItem in colItems
> WScript.Echo "OtherTypeDescription: " &
> objItem.OtherTypeDescription
> Next
> Loop
> -Bart
> On Wed, May 21, 2008 at 4:43 PM, Salandra, Justin <jsalandra@transre.com
> > wrote:
> This WMI Script when run from a server tells me that R2 is
> installed, but how do I import in an entire list of all computer
> accounts?
>
>
>
> strComputer = "."
>
> Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root
> \CIMV2")
>
> Set colItems = objWMIService.ExecQuery( _
>
> "SELECT * FROM Win32_OperatingSystem",,48)
>
> For Each objItem in colItems
>
> Wscript.Echo "OtherTypeDescription: " &
> objItem.OtherTypeDescription
>
> Next
>
>
>
> Justin A. Salandra
>
> Network Engineer
>
> Transatlantic Reinsurance Co.
>
> 80 Pine Street
>
> 7th Floor
>
> New York, NY 10005
>
> P: 212.770.2157
>
> C: 917.455.0110
>
> jsalandra@transre.com
>
>
>
> From: Salandra, Justin
> Sent: Wednesday, May 21, 2008 10:36 AM
> To: 'ActiveDir@mail.activedir.org'
> Subject: OT: Script to determine if R2 is installed
>
>
>
> Does anyone have a script that I can run against AD to see which
> servers have R2 installed and which ones do not and export that to a
> file?
>
>
>
> Justin A. Salandra
>
> Network Engineer
>
>
>
>
>
> "IMPORTANT NOTICE: The information in this email
> (and any attachments hereto) is confidential and may be
> protected by legal privileges and work product immunities.
> If you are not the intended recipient, you must not use or
> disseminate the information. Receipt by anyone other than the
> intended recipient is not a waiver of any attorney-client or work
> product privilege. If you have received this email in error, please
> immediately notify me by "Reply" command and permanently
> delete the original and any copies or printouts thereof. Although
> this email and any attachments are believed to be free of any virus
> or other defect that might affect any computer system into which it
> is received and opened, it is the responsibility of the recipient to
> insure that it is virus free and no responsibility is accepted by
> Transatlantic Reinsurance Company or its subsidiaries or affiliates
> either jointly or severally, for any loss or damage arising in any way
> from its use."
>
>
>
>
> "IMPORTANT NOTICE: The information in this email
> (and any attachments hereto) is confidential and may be
> protected by legal privileges and work product immunities.
> If you are not the intended recipient, you must not use or
> disseminate the information. Receipt by anyone other than the
> intended recipient is not a waiver of any attorney-client or work
> product privilege. If you have received this email in error, please
> immediately notify me by "Reply" command and permanently
> delete the original and any copies or printouts thereof. Although
> this email and any attachments are believed to be free of any virus
> or other defect that might affect any computer system into which it
> is received and opened, it is the responsibility of the recipient to
> insure that it is virus free and no responsibility is accepted by
> Transatlantic Reinsurance Company or its subsidiaries or affiliates
> either jointly or severally, for any loss or damage arising in any way
> from its use."
>
>
>
>
| | | |
| hcoleman
Posts:29
| | 07/16/2008 5:59 PM |
| You need an "End If" statement below "Next". You will also need to create the fso object as a fileSystemObject:
Set fso = CreateObject("Scripting.FileSystemObject"); and strInputFile.Readline() needs to be objInputFile.ReadLine()
From: ActiveDir-owner@mail.activedir.org [mailto:ActiveDir-owner@mail.activedir.org] On Behalf Of Salandra, Justin
Sent: Wednesday, May 21, 2008 11:15 AM
To: ActiveDir@mail.activedir.org
Subject: RE: [ActiveDir] OT: Script to determine if R2 is installed
I tried this but get an error on Line 12 saying trying to do a loop without a do
Set objInputFile = fso.OpenTextFile("c:\adfind\COMPUTERS.TXT", 1, True)
Do Until objInputFile.AtEndOfStream
strLine = strInputFile.ReadLine()
If Not strLine = "" Then
'Add ping target to be sure it's online if desired
Set objWMIService = GetObject("winmgmts:\\" & strLine & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_OperatingSystem",,48)
For Each objItem in colItems
Wscript.Echo "CSName: " & objItem.CSName
WScript.Echo "OtherTypeDescription: " & objItem.OtherTypeDescription
Next
Loop
Justin A. Salandra
Network Engineer
________________________________
From: ActiveDir-owner@mail.activedir.org [mailto:ActiveDir-owner@mail.activedir.org] On Behalf Of Bart Van den Wyngaert
Sent: Wednesday, May 21, 2008 10:53 AM
To: ActiveDir@mail.activedir.org
Subject: Re: [ActiveDir] OT: Script to determine if R2 is installed
How do you mean? Using a TXT input file?? Something like this?
Set objInputFile = fso.OpenTextFile(PATH & "\COMPUTERS.TXT", 1, True)
Do Until objInputFile.AtEndOfStream
strLine = strInputFile.ReadLine()
If Not strLine = "" Then
'Add ping target to be sure it's online if desired
Set objWMIService = GetObject("winmgmts:\\" & strLine & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_OperatingSystem",,48)
For Each objItem in colItems
WScript.Echo "OtherTypeDescription: " & objItem.OtherTypeDescription
Next
Loop
-Bart
On Wed, May 21, 2008 at 4:43 PM, Salandra, Justin <jsalandra@transre.com<mailto:jsalandra@transre.com>> wrote:
This WMI Script when run from a server tells me that R2 is installed, but how do I import in an entire list of all computer accounts?
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery( _
"SELECT * FROM Win32_OperatingSystem",,48)
For Each objItem in colItems
Wscript.Echo "OtherTypeDescription: " & objItem.OtherTypeDescription
Next
Justin A. Salandra
Network Engineer
Transatlantic Reinsurance Co.
80 Pine Street
7th Floor
New York, NY 10005
P: 212.770.2157
C: 917.455.0110
jsalandra@transre.com<mailto:jsalandra@transre.com>
________________________________
From: Salandra, Justin
Sent: Wednesday, May 21, 2008 10:36 AM
To: 'ActiveDir@mail.activedir.org<mailto:ActiveDir@mail.activedir.org>'
Subject: OT: Script to determine if R2 is installed
Does anyone have a script that I can run against AD to see which servers have R2 installed and which ones do not and export that to a file?
Justin A. Salandra
Network Engineer
"IMPORTANT NOTICE: The information in this email
(and any attachments hereto) is confidential and may be
protected by legal privileges and work product immunities.
If you are not the intended recipient, you must not use or
disseminate the information. Receipt by anyone other than the
intended recipient is not a waiver of any attorney-client or work
product privilege. If you have received this email in error, please
immediately notify me by "Reply" command and permanently
delete the original and any copies or printouts thereof. Although
this email and any attachments are believed to be free of any virus
or other defect that might affect any computer system into which it
is received and opened, it is the responsibility of the recipient to
insure that it is virus free and no responsibility is accepted by
Transatlantic Reinsurance Company or its subsidiaries or affiliates
either jointly or severally, for any loss or damage arising in any way
from its use."
"IMPORTANT NOTICE: The information in this email
(and any attachments hereto) is confidential and may be
protected by legal privileges and work product immunities.
If you are not the intended recipient, you must not use or
disseminate the information. Receipt by anyone other than the
intended recipient is not a waiver of any attorney-client or work
product privilege. If you have received this email in error, please
immediately notify me by "Reply" command and permanently
delete the original and any copies or printouts thereof. Although
this email and any attachments are believed to be free of any virus
or other defect that might affect any computer system into which it
is received and opened, it is the responsibility of the recipient to
insure that it is virus free and no responsibility is accepted by
Transatlantic Reinsurance Company or its subsidiaries or affiliates
either jointly or severally, for any loss or damage arising in any way
from its use."
| | | |
| Marty1_0
Posts:73
| | 07/16/2008 6:01 PM |
| Yes sorry, I was a bit quick and forgot the "End If"
Sorry for that !
-Bart
On Wed, May 21, 2008 at 7:15 PM, Salandra, Justin <jsalandra@transre.com>
wrote:
> I tried this but get an error on Line 12 saying trying to do a loop
> without a do
>
>
>
> Set objInputFile = fso.OpenTextFile("c:\adfind\COMPUTERS.TXT", 1, True)
>
> Do Until objInputFile.AtEndOfStream
>
> strLine = strInputFile.ReadLine()
>
> If Not strLine = "" Then
>
> 'Add ping target to be sure it's online if desired
>
> Set objWMIService = GetObject("winmgmts:\\" & strLine &
> "\root\CIMV2")
>
> Set colItems = objWMIService.ExecQuery("SELECT * FROM
> Win32_OperatingSystem",,48)
>
> For Each objItem in colItems
>
> Wscript.Echo "CSName: " & objItem.CSName
>
> WScript.Echo "OtherTypeDescription: " &
> objItem.OtherTypeDescription
>
> Next
>
> Loop
>
>
>
> Justin A. Salandra
>
> Network Engineer
>
>
> ------------------------------
>
> *From:* ActiveDir-owner@mail.activedir.org [mailto:
> ActiveDir-owner@mail.activedir.org] *On Behalf Of *Bart Van den Wyngaert
> *Sent:* Wednesday, May 21, 2008 10:53 AM
> *To:* ActiveDir@mail.activedir.org
> *Subject:* Re: [ActiveDir] OT: Script to determine if R2 is installed
>
>
>
> How do you mean? Using a TXT input file?? Something like this?
>
>
>
> Set objInputFile = fso.OpenTextFile(PATH & "\COMPUTERS.TXT", 1, True)
>
> Do Until objInputFile.AtEndOfStream
> strLine = strInputFile.ReadLine()
> If Not strLine = "" Then
> 'Add ping target to be sure it's online if desired
> Set objWMIService = GetObject("winmgmts:\\" & strLine &
> "\root\CIMV2")
> Set colItems = objWMIService.ExecQuery("SELECT * FROM
> Win32_OperatingSystem",,48)
> For Each objItem in colItems
> WScript.Echo "OtherTypeDescription: " & objItem.OtherTypeDescription
> Next
> Loop
>
> -Bart
>
> On Wed, May 21, 2008 at 4:43 PM, Salandra, Justin <jsalandra@transre.com>
> wrote:
>
> This WMI Script when run from a server tells me that R2 is installed, but
> how do I import in an entire list of all computer accounts?
>
>
>
> strComputer = "."
>
> Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
>
> Set colItems = objWMIService.ExecQuery( _
>
> "SELECT * FROM Win32_OperatingSystem",,48)
>
> For Each objItem in colItems
>
> Wscript.Echo "OtherTypeDescription: " &
> objItem.OtherTypeDescription
>
> Next
>
>
>
> Justin A. Salandra
>
> Network Engineer
>
> Transatlantic Reinsurance Co.
>
> 80 Pine Street
>
> 7th Floor
>
> New York, NY 10005
>
> P: 212.770.2157
>
> C: 917.455.0110
>
> jsalandra@transre.com
>
>
> ------------------------------
>
> *From:* Salandra, Justin
> *Sent:* Wednesday, May 21, 2008 10:36 AM
> *To:* 'ActiveDir@mail.activedir.org'
> *Subject:* OT: Script to determine if R2 is installed
>
>
>
> Does anyone have a script that I can run against AD to see which servers
> have R2 installed and which ones do not and export that to a file?
>
>
>
> Justin A. Salandra
>
> Network Engineer
>
>
>
>
>
> "IMPORTANT NOTICE: The information in this email
>
> (and any attachments hereto) is confidential and may be
>
> protected by legal privileges and work product immunities.
>
> If you are not the intended recipient, you must not use or
>
> disseminate the information. Receipt by anyone other than the
>
> intended recipient is not a waiver of any attorney-client or work
>
> product privilege. If you have received this email in error, please
>
> immediately notify me by "Reply" command and permanently
>
> delete the original and any copies or printouts thereof. Although
>
> this email and any attachments are believed to be free of any virus
>
> or other defect that might affect any computer system into which it
>
> is received and opened, it is the responsibility of the recipient to
>
> insure that it is virus free and no responsibility is accepted by
>
> Transatlantic Reinsurance Company or its subsidiaries or affiliates
>
> either jointly or severally, for any loss or damage arising in any way
>
> from its use."
>
>
>
>
>
>
>
>
>
> "IMPORTANT NOTICE: The information in this email
> (and any attachments hereto) is confidential and may be
> protected by legal privileges and work product immunities.
> If you are not the intended recipient, you must not use or
> disseminate the information. Receipt by anyone other than the
> intended recipient is not a waiver of any attorney-client or work
> product privilege. If you have received this email in error, please
> immediately notify me by "Reply" command and permanently
> delete the original and any copies or printouts thereof. Although
> this email and any attachments are believed to be free of any virus
> or other defect that might affect any computer system into which it
> is received and opened, it is the responsibility of the recipient to
> insure that it is virus free and no responsibility is accepted by
> Transatlantic Reinsurance Company or its subsidiaries or affiliates
> either jointly or severally, for any loss or damage arising in any way
> from its use."
>
>
>
>
>
| | | |
| mck1012
Posts:40
| | 07/16/2008 6:03 PM |
| Just out of curiosity how are you testing all of these scripts.
----- Original Message ----
From: "Salandra, Justin" <jsalandra@transre.com>
To: ActiveDir@mail.activedir.org
Sent: Wednesday, May 21, 2008 2:06:12 PM
Subject: RE: [ActiveDir] OT: Script to determine if R2 is installed
I added in Set fso = CreateObject(“Scripting.FileSystemObject”)
But now I get an invalid character error
on character 24 which is the S in scripting.
Justin A. Salandra
Network Engineer
Transatlantic Reinsurance Co.
80 Pine Street
7th Floor
New York, NY 10005
P: 212.770.2157
C: 917.455.0110
jsalandra@transre.com
________________________________
From:ActiveDir-owner@mail.activedir.org [mailto:ActiveDir-owner@mail.activedir.org] On Behalf Of Coleman, Hunter
Sent: Wednesday, May 21, 2008 1:31
PM
To: ActiveDir@mail.activedir.org
Subject: RE: [ActiveDir] OT:
Script to determine if R2 is installed
You need an
“End If” statement below “Next”. You will also need to
create the fso object as a fileSystemObject:
Set fso =
CreateObject(“Scripting.FileSystemObject”); and
strInputFile.Readline() needs to be objInputFile.ReadLine()
From:ActiveDir-owner@mail.activedir.org [mailto:ActiveDir-owner@mail.activedir.org] On Behalf Of Salandra, Justin
Sent: Wednesday, May 21, 2008
11:15 AM
To: ActiveDir@mail.activedir.org
Subject: RE: [ActiveDir] OT:
Script to determine if R2 is installed
I tried this but get an error on Line 12
saying trying to do a loop without a do
Set objInputFile =
fso.OpenTextFile("c:\adfind\COMPUTERS.TXT", 1, True)
Do Until objInputFile.AtEndOfStream
strLine = strInputFile.ReadLine()
If Not strLine =
"" Then
'Add ping
target to be sure it's online if desired
Set
objWMIService = GetObject("winmgmts:\\" & strLine &
"\root\CIMV2")
Set
colItems = objWMIService.ExecQuery("SELECT * FROM
Win32_OperatingSystem",,48)
For Each
objItem in colItems
Wscript.Echo "CSName: " &
objItem.CSName
WScript.Echo "OtherTypeDescription: " &
objItem.OtherTypeDescription
Next
Loop
Justin A. Salandra
Network Engineer
________________________________
From:ActiveDir-owner@mail.activedir.org [mailto:ActiveDir-owner@mail.activedir.org] On Behalf Of Bart Van den Wyngaert
Sent: Wednesday, May 21, 2008
10:53 AM
To: ActiveDir@mail.activedir.org
Subject: Re: [ActiveDir] OT:
Script to determine if R2 is installed
How do you mean? Using a TXT input file?? Something like this?
Set objInputFile = fso.OpenTextFile(PATH &
"\COMPUTERS.TXT", 1, True)
Do Until objInputFile.AtEndOfStream
strLine = strInputFile.ReadLine()
If Not strLine = "" Then
'Add ping target to be sure it's online if
desired
Set objWMIService =
GetObject("winmgmts:\\" & strLine & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery("SELECT
* FROM Win32_OperatingSystem",,48)
For Each objItem in colItems
WScript.Echo "OtherTypeDescription:
" & objItem.OtherTypeDescription
Next
Loop
-Bart
On Wed, May 21, 2008 at 4:43 PM, Salandra, Justin <jsalandra@transre.com>
wrote:
This WMI Script when run from a server tells me that R2 is
installed, but how do I import in an entire list of all computer accounts?
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" &
strComputer & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery( _
"SELECT * FROM
Win32_OperatingSystem",,48)
For Each objItem in colItems
Wscript.Echo
"OtherTypeDescription: " & objItem.OtherTypeDescription
Next
Justin A. Salandra
Network Engineer
Transatlantic Reinsurance Co.
80 Pine Street
7th Floor
New York, NY 10005
P: 212.770.2157
C: 917.455.0110
jsalandra@transre.com
________________________________
From:Salandra, Justin
Sent: Wednesday, May 21, 2008
10:36 AM
To: 'ActiveDir@mail.activedir.org'
Subject: OT: Script to determine
if R2 is installed
Does
anyone have a script that I can run against AD to see which servers have R2
installed and which ones do not and export that to a file?
Justin A.
Salandra
Network
Engineer
"IMPORTANT NOTICE: The information in this email
(and any attachments hereto) is confidential and may be
protected by legal privileges and work product immunities.
If you are not the intended recipient, you must not use or
disseminate the information. Receipt by anyone other than the
intended recipient is not a waiver of any attorney-client or work
product privilege. If you have received this email in error, please
immediately notify me by "Reply" command and permanently
delete the original and any copies or printouts thereof. Although
this email and any attachments are believed to be free of any virus
or other defect that might affect any computer system into which it
is received and opened, it is the responsibility of the recipient to
insure that it is virus free and no responsibility is accepted by
Transatlantic Reinsurance Company or its subsidiaries or affiliates
either jointly or severally, for any loss or damage arising in any way
from its use."
"IMPORTANT NOTICE: The information in this email
(and any attachments hereto) is confidential and may be
protected by legal privileges and work product immunities.
If you are not the intended recipient, you must not use or
disseminate the information. Receipt by anyone other than the
intended recipient is not a waiver of any attorney-client or work
product privilege. If you have received this email in error, please
immediately notify me by "Reply" command and permanently
delete the original and any copies or printouts thereof. Although
this email and any attachments are believed to be free of any virus
or other defect that might affect any computer system into which it
is received and opened, it is the responsibility of the recipient to
insure that it is virus free and no responsibility is accepted by
Transatlantic Reinsurance Company or its subsidiaries or affiliates
either jointly or severally, for any loss or damage arising in any way
from its use."
"IMPORTANT NOTICE: The information in this email
(and any attachments hereto) is confidential and may be
protected by legal privileges and work product immunities.
If you are not the intended recipient, you must not use or
disseminate the information. Receipt by anyone other than the
intended recipient is not a waiver of any attorney-client or work
product privilege. If you have received this email in error, please
immediately notify me by "Reply" command and permanently
delete the original and any copies or printouts thereof. Although
this email and any attachments are believed to be free of any virus
or other defect that might affect any computer system into which it
is received and opened, it is the responsibility of the recipient to
insure that it is virus free and no responsibility is accepted by
Transatlantic Reinsurance Company or its subsidiaries or affiliates
either jointly or severally, for any loss or damage arising in any way
from its use."
| | | |
| bsonposh
Posts:171
| | 07/16/2008 6:03 PM |
| You should be able to cut/paste this directly into the shell.
################# cut/paste ###############
function Ping-Server ($server){
$pingresult = Get-WmiObject win32_pingstatus -f "address='$Server'"
if($pingresult.statuscode -eq 0) {$true} else {$false}
}
$searcher = New-Object
System.DirectoryServices.DirectorySearcher($root,"(objectcategory=computer)",@('dnsHostName'))
$searcher.PageSize = 1000
$searcher.FindAll() | ?{ping-server $_.properties.dnshostname} | ft
@{l="HostName";e={$_.properties.dnshostname}},
@{l="R2";e={(Get-WMIObject Win32_OperatingSystem
-computer $_.properties.dnshostname).Caption}}
################# end cut/Paste #######################
On Wed, May 21, 2008 at 2:08 PM, Salandra, Justin <jsalandra@transre.com>
wrote:
> How do I run this in powershell? I tried just copying it into powershell
> but that did not work.
>
>
>
> Justin A. Salandra
>
> Network Engineer
>
>
> ------------------------------
>
> *From:* ActiveDir-owner@mail.activedir.org [mailto:
> ActiveDir-owner@mail.activedir.org] *On Behalf Of *Brandon Shell
> *Sent:* Wednesday, May 21, 2008 1:44 PM
> *To:* ActiveDir@mail.activedir.org
> *Subject:* Re: [ActiveDir] OT: Script to determine if R2 is installed
>
>
>
> This gets the servers from AD and runs a WMI query against them if they are
> pingable. The ping is because WMI has a horrible timeout.
>
>
>
> function Ping-Server ($server){
> $pingresult = Get-WmiObject win32_pingstatus -f "address='$Server'"
> if($pingresult.statuscode -eq 0) {$true} else {$false}
> }
>
> $searcher = New-Object
> System.DirectoryServices.DirectorySearcher($root,"(objectcategory=computer)",@('dnsHostName')))
> $searcher.PageSize = 1000
> $searcher.FindAll | ?{ping-server $_.properties.dnshostname} | ft
> @{l="HostName";e={$_.properties.dnshostname}},
> @{l="R2";e={(Get-WMIObject Win32_OperatingSystem
> -computer $_.properties.dnshostname).OtherTypeDescription}}
>
> On Wed, May 21, 2008 at 1:22 PM, Salandra, Justin <jsalandra@transre.com>
> wrote:
>
> Yes is you have a powershell command that will get me this info that would
> be great.
>
>
>
> Justin A. Salandra
>
> Network Engineer
>
>
> ------------------------------
>
> *From:* ActiveDir-owner@mail.activedir.org [mailto:
> ActiveDir-owner@mail.activedir.org] *On Behalf Of *Brandon Shell
> *Sent:* Wednesday, May 21, 2008 12:58 PM
>
>
> *To:* ActiveDir@mail.activedir.org
>
> *Subject:* Re: [ActiveDir] OT: Script to determine if R2 is installed
>
>
>
> If you want an autoritative answer using WMI is your best bet. Powershell
> Excels here. I can post some code if you wish.
>
>
>
>
>
> On Wed, May 21, 2008 at 12:37 PM, Salandra, Justin <jsalandra@transre.com>
> wrote:
>
> It is the same build for both R2 and non-R2
>
>
>
> Justin A. Salandra
>
> Network Engineer
>
> Transatlantic Reinsurance Co.
>
> 80 Pine Street
>
> 7th Floor
>
> New York, NY 10005
>
> P: 212.770.2157
>
> C: 917.455.0110
>
> jsalandra@transre.com
>
>
> ------------------------------
>
> *From:* ActiveDir-owner@mail.activedir.org [mailto:
> ActiveDir-owner@mail.activedir.org] *On Behalf Of *Tony Gordon
> *Sent:* Wednesday, May 21, 2008 11:00 AM
>
>
> *To:* ActiveDir@mail.activedir.org
> *Subject:* RE: [ActiveDir] OT: Script to determine if R2 is installed
>
>
>
>
>
> Query Active Directory for Operatingsystemversion attribute "5.2 (3790)"
> (without quotes) seems to correspond to R2
>
>
> Thank you, Tony.
>
> *
> Tony Gordon *
> Windows 2003 & 2000 MCSE, Windows 2003 MCSA, PMP
> ITS Infrastructure Engineering
> Hewitt Associates | 100 Half Day Road | Lincolnshire, IL 60069 |
> USA
> Tel 847.295.5000 x50526 | Fax 847.554.1574
> tony dot gordon at hewitt dot com | www.hewitt.com
>
> From:
>
> "Salandra, Justin" <jsalandra@transre.com>
>
> To:
>
>
>
> "Salandra, Justin" <jsalandra@transre.com>, ActiveDir@mail.activedir.org
>
>
>
>
>
>
>
>
>
>
>
> Date:
>
> 05/21/2008 09:47 AM
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
> Subject:
>
>
>
> RE: [ActiveDir] OT: Script to determine if R2 is installed
>
>
>
>
>
>
>
>
>
>
>
>
> ------------------------------
>
>
>
>
> This WMI Script when run from a server tells me that R2 is installed, but
> how do I import in an entire list of all computer accounts?
>
> strComputer = "."
> Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
> Set colItems = objWMIService.ExecQuery( _
> "SELECT * FROM Win32_OperatingSystem",,48)
> For Each objItem in colItems
> Wscript.Echo "OtherTypeDescription: " &
> objItem.OtherTypeDescription
> Next
>
>
> Justin A. Salandra
> Network Engineer
>
> Transatlantic Reinsurance Co.
> 80 Pine Street
> 7th Floor
> New York, NY 10005
> P: 212.770.2157
> C: 917.455.0110
> jsalandra@transre.com
>
>
>
> ------------------------------
>
>
> *From:* Salandra, Justin *
> Sent:* Wednesday, May 21, 2008 10:36 AM
>
> *
> To:* 'ActiveDir@mail.activedir.org'
>
> *
> Subject:* OT: Script to determine if R2 is installed
>
>
> Does anyone have a script that I can run against AD to see which servers
> have R2 installed and which ones do not and export that to a file?
>
> Justin A. Salandra
> Network Engineer
>
>
>
> "IMPORTANT NOTICE: The information in this email
>
> (and any attachments hereto) is confidential and may be
> protected by legal privileges and work product immunities.
> If you are not the intended recipient, you must not use or
> disseminate the information. Receipt by anyone other than the
> intended recipient is not a waiver of any attorney-client or work
> product privilege. If you have received this email in error, please
> immediately notify me by "Reply" command and permanently
> delete the original and any copies or printouts thereof. Although
> this email and any attachments are believed to be free of any virus
> or other defect that might affect any computer system into which it
> is received and opened, it is the responsibility of the recipient to
> insure that it is virus free and no responsibility is accepted by
> Transatlantic Reinsurance Company or its subsidiaries or affiliates
> either jointly or severally, for any loss or damage arising in any way
> from its use."
> ------------------------------
>
> The information contained in this e-mail and any accompanying documents may
> contain information that is confidential or otherwise protected from
> disclosure. If you are not the intended recipient of this message, or if
> this message has been addressed to you in error, please immediately alert
> the sender by reply e-mail and then delete this message, including any
> attachments. Any dissemination, distribution or other use of the contents of
> this message by anyone other than the intended recipient is strictly
> prohibited. All messages sent to and from this e-mail address may be
> monitored as permitted by applicable law and regulations to ensure
> compliance with our internal policies and to protect our business. E-mails
> are not secure and cannot be guaranteed to be error free as they can be
> intercepted, amended, lost or destroyed, or contain viruses. You are deemed
> to have accepted these risks if you communicate with us by e-mail.
>
> "IMPORTANT NOTICE: The information in this email
>
> (and any attachments hereto) is confidential and may be
>
> protected by legal privileges and work product immunities.
>
> If you are not the intended recipient, you must not use or
>
> disseminate the information. Receipt by anyone other than the
>
> intended recipient is not a waiver of any attorney-client or work
>
> product privilege. If you have received this email in error, please
>
> immediately notify me by "Reply" command and permanently
>
> delete the original and any copies or printouts thereof. Although
>
> this email and any attachments are believed to be free of any virus
>
> or other defect that might affect any computer system into which it
>
> is received and opened, it is the responsibility of the recipient to
>
> insure that it is virus free and no responsibility is accepted by
>
> Transatlantic Reinsurance Company or its subsidiaries or affiliates
>
> either jointly or severally, for any loss or damage arising in any way
>
> from its use."
>
>
>
>
>
>
>
>
>
> "IMPORTANT NOTICE: The information in this email
>
> (and any attachments hereto) is confidential and may be
>
> protected by legal privileges and work product immunities.
>
> If you are not the intended recipient, you must not use or
>
> disseminate the information. Receipt by anyone other than the
>
> intended recipient is not a waiver of any attorney-client or work
>
> product privilege. If you have received this email in error, please
>
> immediately notify me by "Reply" command and permanently
>
> delete the original and any copies or printouts thereof. Although
>
> this email and any attachments are believed to be free of any virus
>
> or other defect that might affect any computer system into which it
>
> is received and opened, it is the responsibility of the recipient to
>
> insure that it is virus free and no responsibility is accepted by
>
> Transatlantic Reinsurance Company or its subsidiaries or affiliates
>
> either jointly or severally, for any loss or damage arising in any way
>
> from its use."
>
>
>
>
>
>
>
>
>
> "IMPORTANT NOTICE: The information in this email
> (and any attachments hereto) is confidential and may be
> protected by legal privileges and work product immunities.
> If you are not the intended recipient, you must not use or
> disseminate the information. Receipt by anyone other than the
> intended recipient is not a waiver of any attorney-client or work
> product privilege. If you have received this email in error, please
> immediately notify me by "Reply" command and permanently
> delete the original and any copies or printouts thereof. Although
> this email and any attachments are believed to be free of any virus
> or other defect that might affect any computer system into which it
> is received and opened, it is the responsibility of the recipient to
> insure that it is virus free and no responsibility is accepted by
> Transatlantic Reinsurance Company or its subsidiaries or affiliates
> either jointly or severally, for any loss or damage arising in any way
> from its use."
>
>
>
>
>
| | | |
| sbradcpa
Posts:320
| | 07/16/2008 6:03 PM |
| I think you have to save it as a .ps1 file
Default powershell won't allow you to execute scripts so you may need to
check what executable setting you are?
(total and utter newb but trying to learn)
Salandra, Justin wrote:
>
> How do I run this in powershell? I tried just copying it into
> powershell but that did not work.
>
>
>
> Justin A. Salandra
>
> Network Engineer
>
>
>
> ------------------------------------------------------------------------
>
> *From:* ActiveDir-owner@mail.activedir.org
> [mailto:ActiveDir-owner@mail.activedir.org] *On Behalf Of *Brandon Shell
> *Sent:* Wednesday, May 21, 2008 1:44 PM
> *To:* ActiveDir@mail.activedir.org
> *Subject:* Re: [ActiveDir] OT: Script to determine if R2 is installed
>
>
>
> This gets the servers from AD and runs a WMI query against them if
> they are pingable. The ping is because WMI has a horrible timeout.
>
>
>
> function Ping-Server ($server){
> $pingresult = Get-WmiObject win32_pingstatus -f "address='$Server'"
> if($pingresult.statuscode -eq 0) {$true} else {$false}
> }
>
> $searcher = New-Object
> System.DirectoryServices.DirectorySearcher($root,"(objectcategory=computer)",@('dnsHostName')))
> $searcher.PageSize = 1000
> $searcher.FindAll | ?{ping-server $_.properties.dnshostname} | ft
> @{l="HostName";e={$_.properties.dnshostname}},
> @{l="R2";e={(Get-WMIObject
> Win32_OperatingSystem -computer
> $_.properties.dnshostname).OtherTypeDescription}}
>
> On Wed, May 21, 2008 at 1:22 PM, Salandra, Justin
> <jsalandra@transre.com <mailto:jsalandra@transre.com>> wrote:
>
> Yes is you have a powershell command that will get me this info that
> would be great.
>
>
>
> Justin A. Salandra
>
> Network Engineer
>
>
>
> ------------------------------------------------------------------------
>
> *From:* ActiveDir-owner@mail.activedir.org
> <mailto:ActiveDir-owner@mail.activedir.org>
> [mailto:ActiveDir-owner@mail.activedir.org
> <mailto:ActiveDir-owner@mail.activedir.org>] *On Behalf Of *Brandon Shell
> *Sent:* Wednesday, May 21, 2008 12:58 PM
>
>
> *To:* ActiveDir@mail.activedir.org <mailto:ActiveDir@mail.activedir.org>
>
> *Subject:* Re: [ActiveDir] OT: Script to determine if R2 is installed
>
>
>
> If you want an autoritative answer using WMI is your best bet.
> Powershell Excels here. I can post some code if you wish.
>
>
>
>
>
> On Wed, May 21, 2008 at 12:37 PM, Salandra, Justin
> <jsalandra@transre.com <mailto:jsalandra@transre.com>> wrote:
>
> It is the same build for both R2 and non-R2
>
>
>
> Justin A. Salandra
>
> Network Engineer
>
> Transatlantic Reinsurance Co.
>
> 80 Pine Street
>
> 7^th Floor
>
> New York, NY 10005
>
> P: 212.770.2157
>
> C: 917.455.0110
>
> jsalandra@transre.com <mailto:jsalandra@transre.com>
>
>
>
> ------------------------------------------------------------------------
>
> *From:* ActiveDir-owner@mail.activedir.org
> <mailto:ActiveDir-owner@mail.activedir.org>
> [mailto:ActiveDir-owner@mail.activedir.org
> <mailto:ActiveDir-owner@mail.activedir.org>] *On Behalf Of *Tony Gordon
> *Sent:* Wednesday, May 21, 2008 11:00 AM
>
>
> *To:* ActiveDir@mail.activedir.org <mailto:ActiveDir@mail.activedir.org>
> *Subject:* RE: [ActiveDir] OT: Script to determine if R2 is installed
>
>
>
>
>
> Query Active Directory for Operatingsystemversion attribute "5.2
> (3790)" (without quotes) seems to correspond to R2
>
>
> Thank you, Tony.
>
> *
> Tony Gordon *
> Windows 2003 & 2000 MCSE, Windows 2003 MCSA, PMP
> ITS Infrastructure Engineering
> Hewitt Associates | 100 Half Day Road | Lincolnshire, IL 60069
> | USA
> Tel 847.295.5000 x50526 | Fax 847.554.1574
> tony dot gordon at hewitt dot com | www.hewitt.com
> <http://www.hewitt.com/>
>
> From:
>
>
>
> "Salandra, Justin" <jsalandra@transre.com <mailto:jsalandra@transre.com>>
>
> To:
>
>
>
>
>
>
>
> "Salandra, Justin" <jsalandra@transre.com
> <mailto:jsalandra@transre.com>>, ActiveDir@mail.activedir.org
> <mailto:ActiveDir@mail.activedir.org>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
> Date:
>
>
>
> 05/21/2008 09:47 AM
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
> Subject:
>
>
>
>
>
>
>
> RE: [ActiveDir] OT: Script to determine if R2 is installed
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
> ------------------------------------------------------------------------
>
>
>
>
> This WMI Script when run from a server tells me that R2 is installed,
> but how do I import in an entire list of all computer accounts?
>
> strComputer = "."
> Set objWMIService = GetObject("winmgmts:\\" & strComputer &
> "\root\CIMV2")
> Set colItems = objWMIService.ExecQuery( _
> "SELECT * FROM Win32_OperatingSystem",,48)
> For Each objItem in colItems
> Wscript.Echo "OtherTypeDescription: " &
> objItem.OtherTypeDescription
> Next
>
>
> Justin A. Salandra
> Network Engineer
>
> Transatlantic Reinsurance Co.
> 80 Pine Street
> 7^th Floor
> New York, NY 10005
> P: 212.770.2157
> C: 917.455.0110
> jsalandra@transre.com <mailto:jsalandra@transre.com>
>
>
>
>
> ------------------------------------------------------------------------
>
>
> *From:* Salandra, Justin *
> Sent:* Wednesday, May 21, 2008 10:36 AM
>
> *
> To:* 'ActiveDir@mail.activedir.org <mailto:ActiveDir@mail.activedir.org>'
>
> *
> Subject:* OT: Script to determine if R2 is installed
>
>
> Does anyone have a script that I can run against AD to see which
> servers have R2 installed and which ones do not and export that to a
> file?
>
> Justin A. Salandra
> Network Engineer
>
>
>
> "IMPORTANT NOTICE: The information in this email
>
> (and any attachments hereto) is confidential and may be
> protected by legal privileges and work product immunities.
> If you are not the intended recipient, you must not use or
> disseminate the information. Receipt by anyone other than the
> intended recipient is not a waiver of any attorney-client or work
> product privilege. If you have received this email in error, please
> immediately notify me by "Reply" command and permanently
> delete the original and any copies or printouts thereof. Although
> this email and any attachments are believed to be free of any virus
> or other defect that might affect any computer system into which it
> is received and opened, it is the responsibility of the recipient to
> insure that it is virus free and no responsibility is accepted by
> Transatlantic Reinsurance Company or its subsidiaries or affiliates
> either jointly or severally, for any loss or damage arising in any way
> from its use."
>
> ------------------------------------------------------------------------
>
> The information contained in this e-mail and any accompanying
> documents may contain information that is confidential or otherwise
> protected from disclosure. If you are not the intended recipient of
> this message, or if this message has been addressed to you in error,
> please immediately alert the sender by reply e-mail and then delete
> this message, including any attachments. Any dissemination,
> distribution or other use of the contents of this message by anyone
> other than the intended recipient is strictly prohibited. All messages
> sent to and from this e-mail address may be monitored as permitted by
> applicable law and regulations to ensure compliance with our internal
> policies and to protect our business. E-mails are not secure and
> cannot be guaranteed to be error free as they can be intercepted,
> amended, lost or destroyed, or contain viruses. You are deemed to have
> accepted these risks if you communicate with us by e-mail.
>
> "IMPORTANT NOTICE: The information in this email
> (and any attachments hereto) is confidential and may be
> protected by legal privileges and work product immunities.
> If you are not the intended recipient, you must not use or
> disseminate the information. Receipt by anyone other than the
> intended recipient is not a waiver of any attorney-client or work
> product privilege. If you have received this email in error, please
> immediately notify me by "Reply" command and permanently
> delete the original and any copies or printouts thereof. Although
> this email and any attachments are believed to be free of any virus
> or other defect that might affect any computer system into which it
> is received and opened, it is the responsibility of the recipient to
> insure that it is virus free and no responsibility is accepted by
> Transatlantic Reinsurance Company or its subsidiaries or affiliates
> either jointly or severally, for any loss or damage arising in any way
> from its use."
>
>
>
>
>
>
> "IMPORTANT NOTICE: The information in this email
> (and any attachments hereto) is confidential and may be
> protected by legal privileges and work product immunities.
> If you are not the intended recipient, you must not use or
> disseminate the information. Receipt by anyone other than the
> intended recipient is not a waiver of any attorney-client or work
> product privilege. If you have received this email in error, please
> immediately notify me by "Reply" command and permanently
> delete the original and any copies or printouts thereof. Although
> this email and any attachments are believed to be free of any virus
> or other defect that might affect any computer system into which it
> is received and opened, it is the responsibility of the recipient to
> insure that it is virus free and no responsibility is accepted by
> Transatlantic Reinsurance Company or its subsidiaries or affiliates
> either jointly or severally, for any loss or damage arising in any way
> from its use."
>
>
>
>
>
>
> "IMPORTANT NOTICE: The information in this email
> (and any attachments hereto) is confidential and may be
> protected by legal privileges and work product immunities.
> If you are not the intended recipient, you must not use or
> disseminate the information. Receipt by anyone other than the
> intended recipient is not a waiver of any attorney-client or work
> product privilege. If you have received this email in error, please
> immediately notify me by "Reply" command and permanently
> delete the original and any copies or printouts thereof. Although
> this email and any attachments are believed to be free of any virus
> or other defect that might affect any computer system into which it
> is received and opened, it is the responsibility of the recipient to
> insure that it is virus free and no responsibility is accepted by
> Transatlantic Reinsurance Company or its subsidiaries or affiliates
> either jointly or severally, for any loss or damage arising in any way
> from its use."
>
>
>
>
>
List info : http://www.activedir.org/List.aspx
List FAQ : http://www.activedir.org/ListFAQ.aspx
List archive: http://www.activedir.org/ma/default.aspx
| | | |
| darren
Posts:168
| | 07/16/2008 6:07 PM |
| You can make the ping even easier:
$ping = New-Object System.Net.NetworkInformation.Ping
$reply = $ping.Send($Server)
And then ($reply.Status -eq "Success") to test for success.
Darren
From: ActiveDir-owner@mail.activedir.org
[mailto:ActiveDir-owner@mail.activedir.org] On Behalf Of Brandon Shell
Sent: Wednesday, May 21, 2008 11:56 AM
To: ActiveDir@mail.activedir.org
Subject: Re: [ActiveDir] OT: Script to determine if R2 is installed
The ping-server is something I added as a function. cut/paste this
#############################################
add-pssnapin Quest.ActiveRoles.ADManagement -ea 0
function Ping-Server ($server){
$pingresult = Get-WmiObject win32_pingstatus -f "address='$Server'"
if($pingresult.statuscode -eq 0) {$true} else {$false}
}
Get-QADComputer -size 0 | ?{ping-server $_.DNSHostName} | ft
@{l="HostName";e={$_.dnshostname}},
@{l="R2";e={(Get-WMIObject Win32_OperatingSystem
-computer $_.dnshostname).OtherTypeDescription}}
#############################################
On Wed, May 21, 2008 at 2:19 PM, Salandra, Justin <jsalandra@transre.com>
wrote:
I download that and ran the command and it says that ping-server is not
recognized as a cmdlet, function, operable program or script file.
Justin A. Salandra
Network Engineer
_____
From: ActiveDir-owner@mail.activedir.org
[mailto:ActiveDir-owner@mail.activedir.org] On Behalf Of Brandon Shell
Sent: Wednesday, May 21, 2008 1:46 PM
To: ActiveDir@mail.activedir.org
Subject: Re: [ActiveDir] OT: Script to determine if R2 is installed
if you download the quest cmdlets this is even easier
www.quest.com/powershell
Get-QADComputer -size 0 | ?{ping-server $_.DNSHostName} | ft
@{l="HostName";e={$_.dnshostname}},
@{l="R2";e={(Get-WMIObject Win32_OperatingSystem
-computer $_.dnshostname).OtherTypeDescription}}
On Wed, May 21, 2008 at 1:44 PM, Brandon Shell <tshell@gmail.com> wrote:
This gets the servers from AD and runs a WMI query against them if they are
pingable. The ping is because WMI has a horrible timeout.
function Ping-Server ($server){
$pingresult = Get-WmiObject win32_pingstatus -f "address='$Server'"
if($pingresult.statuscode -eq 0) {$true} else {$false}
}
$searcher = New-Object
System.DirectoryServices.DirectorySearcher($root,"(objectcategory=computer)"
,@('dnsHostName')))
$searcher.PageSize = 1000
$searcher.FindAll | ?{ping-server $_.properties.dnshostname} | ft
@{l="HostName";e={$_.properties.dnshostname}},
@{l="R2";e={(Get-WMIObject Win32_OperatingSystem
-computer $_.properties.dnshostname).OtherTypeDescription}}
On Wed, May 21, 2008 at 1:22 PM, Salandra, Justin <jsalandra@transre.com>
wrote:
Yes is you have a powershell command that will get me this info that would
be great.
Justin A. Salandra
Network Engineer
_____
From: ActiveDir-owner@mail.activedir.org
[mailto:ActiveDir-owner@mail.activedir.org] On Behalf Of Brandon Shell
Sent: Wednesday, May 21, 2008 12:58 PM
To: ActiveDir@mail.activedir.org
Subject: Re: [ActiveDir] OT: Script to determine if R2 is installed
If you want an autoritative answer using WMI is your best bet. Powershell
Excels here. I can post some code if you wish.
On Wed, May 21, 2008 at 12:37 PM, Salandra, Justin <jsalandra@transre.com>
wrote:
It is the same build for both R2 and non-R2
Justin A. Salandra
Network Engineer
Transatlantic Reinsurance Co.
80 Pine Street
7th Floor
New York, NY 10005
P: 212.770.2157
C: 917.455.0110
jsalandra@transre.com
_____
From: ActiveDir-owner@mail.activedir.org
[mailto:ActiveDir-owner@mail.activedir.org] On Behalf Of Tony Gordon
Sent: Wednesday, May 21, 2008 11:00 AM
To: ActiveDir@mail.activedir.org
Subject: RE: [ActiveDir] OT: Script to determine if R2 is installed
Query Active Directory for Operatingsystemversion attribute "5.2 (3790)"
(without quotes) seems to correspond to R2
Thank you, Tony.
Tony Gordon
Windows 2003 & 2000 MCSE, Windows 2003 MCSA, PMP
ITS Infrastructure Engineering
Hewitt Associates | 100 Half Day Road | Lincolnshire, IL 60069 | USA
Tel 847.295.5000 x50526 | Fax 847.554.1574
tony dot gordon at hewitt dot com | <http://www.hewitt.com/>
www.hewitt.com
From:
"Salandra, Justin" <jsalandra@transre.com>
To:
"Salandra, Justin" <jsalandra@transre.com>, ActiveDir@mail.activedir.org
Date:
05/21/2008 09:47 AM
Subject:
RE: [ActiveDir] OT: Script to determine if R2 is installed
_____
This WMI Script when run from a server tells me that R2 is installed, but
how do I import in an entire list of all computer accounts?
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery( _
"SELECT * FROM Win32_OperatingSystem",,48)
For Each objItem in colItems
Wscript.Echo "OtherTypeDescription: " & objItem.OtherTypeDescription
Next
Justin A. Salandra
Network Engineer
Transatlantic Reinsurance Co.
80 Pine Street
7th Floor
New York, NY 10005
P: 212.770.2157
C: 917.455.0110
jsalandra@transre.com
_____
From: Salandra, Justin
Sent: Wednesday, May 21, 2008 10:36 AM
To: 'ActiveDir@mail.activedir.org'
Subject: OT: Script to determine if R2 is installed
Does anyone have a script that I can run against AD to see which servers
have R2 installed and which ones do not and export that to a file?
Justin A. Salandra
Network Engineer
"IMPORTANT NOTICE: The information in this email
(and any attachments hereto) is confidential and may be
protected by legal privileges and work product immunities.
If you are not the intended recipient, you must not use or
disseminate the information. Receipt by anyone other than the
intended recipient is not a waiver of any attorney-client or work
product privilege. If you have received this email in error, please
immediately notify me by "Reply" command and permanently
delete the original and any copies or printouts thereof. Although
this email and any attachments are believed to be free of any virus
or other defect that might affect any computer system into which it
is received and opened, it is the responsibility of the recipient to
insure that it is virus free and no responsibility is accepted by
Transatlantic Reinsurance Company or its subsidiaries or affiliates
either jointly or severally, for any loss or damage arising in any way
from its use."
_____
The information contained in this e-mail and any accompanying documents may
contain information that is confidential or otherwise protected from
disclosure. If you are not the intended recipient of this message, or if
this message has been addressed to you in error, please immediately alert
the sender by reply e-mail and then delete this message, including any
attachments. Any dissemination, distribution or other use of the contents of
this message by anyone other than the intended recipient is strictly
prohibited. All messages sent to and from this e-mail address may be
monitored as permitted by applicable law and regulations to ensure
compliance with our internal policies and to protect our business. E-mails
are not secure and cannot be guaranteed to be error free as they can be
intercepted, amended, lost or destroyed, or contain viruses. You are deemed
to have accepted these risks if you communicate with us by e-mail.
"IMPORTANT NOTICE: The information in this email
(and any attachments hereto) is confidential and may be
protected by legal privileges and work product immunities.
If you are not the intended recipient, you must not use or
disseminate the information. Receipt by anyone other than the
intended recipient is not a waiver of any attorney-client or work
product privilege. If you have received this email in error, please
immediately notify me by "Reply" command and permanently
delete the original and any copies or printouts thereof. Although
this email and any attachments are believed to be free of any virus
or other defect that might affect any computer system into which it
is received and opened, it is the responsibility of the recipient to
insure that it is virus free and no responsibility is accepted by
Transatlantic Reinsurance Company or its subsidiaries or affiliates
either jointly or severally, for any loss or damage arising in any way
from its use."
"IMPORTANT NOTICE: The information in this email
(and any attachments hereto) is confidential and may be
protected by legal privileges and work product immunities.
If you are not the intended recipient, you must not use or
disseminate the information. Receipt by anyone other than the
intended recipient is not a waiver of any attorney-client or work
product privilege. If you have received this email in error, please
immediately notify me by "Reply" command and permanently
delete the original and any copies or printouts thereof. Although
this email and any attachments are believed to be free of any virus
or other defect that might affect any computer system into which it
is received and opened, it is the responsibility of the recipient to
insure that it is virus free and no responsibility is accepted by
Transatlantic Reinsurance Company or its subsidiaries or affiliates
either jointly or severally, for any loss or damage arising in any way
from its use."
"IMPORTANT NOTICE: The information in this email
(and any attachments hereto) is confidential and may be
protected by legal privileges and work product immunities.
If you are not the intended recipient, you must not use or
disseminate the information. Receipt by anyone other than the
intended recipient is not a waiver of any attorney-client or work
product privilege. If you have received this email in error, please
immediately notify me by "Reply" command and permanently
delete the original and any copies or printouts thereof. Although
this email and any attachments are believed to be free of any virus
or other defect that might affect any computer system into which it
is received and opened, it is the responsibility of the recipient to
insure that it is virus free and no responsibility is accepted by
Transatlantic Reinsurance Company or its subsidiaries or affiliates
either jointly or severally, for any loss or damage arisin |
|
|