For anybody that was interested in the script I put together with the
help from Al and Hunter
Here is were you can download it
http://myitforum.techtarget.com/inc/upload/9994comp_desc2.zip
Let me know what you think.
List info : http://www.activedir.org/mail_list.htm
List FAQ: http://www.a
though our mail.
Thanks in advance.
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Mulnick, Al
Sent: Friday, October 22, 2004 1:26 PM
To: [EMAIL PROTECTED]
Subject: RE: [ActiveDir] New to AD
You are trying to use variables that the search would return prior
: [ActiveDir] New to AD
I have attached the script as a txt file.
I uncommented the line that Al said but I'm still getting a error on line
13,1
Set objComputer = GetObject(adoRecordset.Fields.Item("ADSPath"))
List info : http://www.activedir.org/mail_list.htm
Lis
I have attached the script as a txt file.
I uncommented the line that Al said but I'm still getting a error on
line 13,1
Set objComputer = GetObject(adoRecordset.Fields.Item("ADSPath"))
Const ForReading = 1, ForWriting = 2, ForAppending = 8
wscript.echo "The script has started"
strhost= "dhjc2
uffer,
Christopher
Sent: Friday, October 22, 2004 12:55 PM
To: [EMAIL PROTECTED]
Subject: RE: [ActiveDir] New to AD
Hunter I made the changes you suggested but I'm getting an error on line
13,1
Which is Set objComputer = GetObject
(adoRecordset.Fields.Item("ADSPath")
Do yo
adoRecordset.EOF
fileTxt.WriteLine(adoRecordset.Fields.Item("name") & vbTab &
adoRecordset.Fields.Item("ADSPath"))
adoRecordset.MoveNext
Wend
wscript.echo "End of Script"
'**
-Origina
ction = objConnection
strBase = "<LDAP://"; & strLDAPPath & ">"'.
Al
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Coleman, Hunter
Sent: Friday, October 22, 2004 11:57 AM
To: [EMAIL PROTECTED]
Subject: RE: [ActiveDir] New to A
-Original Message-
From: Stauffer, Christopher [mailto:[EMAIL PROTECTED]
Sent: Friday, October 22, 2004 9:45 AM
To: [EMAIL PROTECTED]
Subject: RE: [ActiveDir] New to AD
Ok what I'm doing is taking the description info from a machine and
adding it to AD.
The script that I was looking
7;s
from all of the domains (yes plural).
I needed the list from just my Child domain.
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Mulnick, Al
Sent: Friday, October 22, 2004 11:18 AM
To: [EMAIL PROTECTED]
Subject: RE: [ActiveDir] New to AD
Do you have
2 AM
To: [EMAIL PROTECTED]
Subject: RE: [ActiveDir] New to AD
Ok this worked but what I'm looking for is a script that I can feed in the
computer name (one at a time from a variable)
That way it only give me the computer I'm after.
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[E
nt: Friday, October 22, 2004 9:48 AM
To: [EMAIL PROTECTED]
Subject: RE: [ActiveDir] New to AD
Chris-
The script below will pull the computers from the specified OU and dump
the computer name and path. If you want all of the computers in your
domain, edit the strLDAPPath line so that it's j
mp; vbTab &
adoRecordset.Fields.Item("ADSPath"))
adoRecordset.MoveNext
Wend
wscript.echo "End of Script"
-Original Message-
From: Stauffer, Christopher [mailto
:[EMAIL PROTECTED] On Behalf Of Coleman, Hunter
Sent: Thursday, October 21, 2004 9:31 PM
To: [EMAIL PROTECTED]
Subject: RE: [ActiveDir] New to AD
Did you want to enter a computer name and have it dump the path, or have
the script dump the path for all computers in a given OU?
-Original
PM
To: [EMAIL PROTECTED]
Subject: RE: [ActiveDir] New to AD
Did you want to enter a computer name and have it dump the path, or have
the script dump the path for all computers in a given OU?
-Original Message-
From: Stauffer, Christopher [mailto:[EMAIL PROTECTED]
Sent: Thursday, October
, October 21, 2004 7:37 PM
To: [EMAIL PROTECTED]
Subject: RE: [ActiveDir] New to AD
A copy of the script could come in handy if you are willing to send me a
copy.
Thanks
_
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Stauffer,
Christopher
Sent: Friday, 22 October 2004 7
, 2004 7:37 PM
To: [EMAIL PROTECTED]
Subject: RE: [ActiveDir] New to AD
A copy of the script could come in handy if you are willing to send me a
copy.
Thanks
_
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Stauffer,
Christopher
Sent: Friday, 22 October 2004 7:50 AM
To
A copy of the script could come in handy if you are willing to send me a
copy.
Thanks
_
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Stauffer,
Christopher
Sent: Friday, 22 October 2004 7:50 AM
To: [EMAIL PROTECTED]
Subject: RE: [ActiveDir] New to AD
Just wanted to
Return Receipt
Your RE: [ActiveDir] New to AD
document
Just wanted to thank everybody who added there two
cents.
I have a working script that does exactly what my boss
wanted.
It could be a little better but I'm not a
coder.
If anybody wants a copy let me
know.
From: Stauffer, Christopher Sent:
Thursday, October 21, 2004 9:02 AMTo:
'[EMA
-Original Message-
From:
[EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Passo, Larry
Sent: Thursday, October 21, 2004
1:24 PM
To: [EMAIL PROTECTED]
Subject: RE: [ActiveDir] New to AD
The following WMI code
will get you the description information from a computer
cription
Next
Regards,
Lou
-Original Message-
From:
[EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Passo, Larry
Sent: Thursday,
October 21, 2004 1:24 PM
To: [EMAIL PROTECTED]
Subject: RE: [ActiveDir] New to AD
The following WMI code
will get you the descriptio
The following WMI code will get you the
description information from a computer:
On Error Resume Next
strComputer = "."
Set objWMIService =
GetObject("winmgmts:\\" & strComputer &
"\root\cimv2")
Set colItems =
objWMIService.ExecQuery("Select * from Win32_ComputerSystem",,48)
For Eac
A good place to start ...
http://www.microsoft.com/technet/prodtechnol/windows2000serv/deploy/conf
eat/grppolsc.mspx
-Original Message-
From: Pyron [mailto:[EMAIL PROTECTED]
Sent: 29 March 2004 13:37
To: [EMAIL PROTECTED]
Subject: [ActiveDir] New to AD
Hi!
I am new to AD. I am plannin
23 matches
Mail list logo