-
VB / ADSI Prompt User for OU.
I am creating an HTML document for My company's IT maintenance. On this page, will be several vbscripts that will perform various inventory and data collection tasks. The data will be collected on a 'per OU' basis. I have a working script which binds to a specific OU, however I would like to be able to prompt the user to type an OU name and have the script run against that OU. Here is a piece of the code:
Set objOU = GetObject("LDAP://ou=MY OU,dc=MY DC,dc=com")
objOU.Filter = Array("Computer")
For Each objComputer in objOU
strComputer = objComputer.CN
Set objShell = CreateObject("WScript.Shell")
strCommand = "%comspec% /c ping -n 3 -w 1000 " & strComputer & ""
Set objExecObject = objShell.Exec(strCommand)
Do While Not objExecObject.StdOut.AtEndOfStream
strText = objExecObject.StdOut.ReadAll()
If Instr(strText, "Reply") > 0 Then
I have a Dim statement that will prompt, however I cannot get the variable into the LDAP statement. This has been tearing at me for over a week.
Any help would be graciously appreciated.
Last edited by ScriptRookie; 08-26-2005 at 09:10 AM.
Similar Threads
-
By vbdude in forum VB Classic
Replies: 8
Last Post: 07-18-2007, 10:22 AM
-
Replies: 3
Last Post: 08-30-2001, 11:45 AM
-
By Todd in forum Enterprise
Replies: 0
Last Post: 07-17-2001, 08:26 AM
-
By tami in forum VB Classic
Replies: 0
Last Post: 01-09-2001, 02:00 PM
-
By Ken McLean in forum authorevents.vaughn
Replies: 1
Last Post: 05-30-2000, 09:25 PM
Posting Permissions
- You may not post new threads
- You may not post replies
- You may not post attachments
- You may not edit your posts
-
Forum Rules
|
Development Centers
-- Android Development Center
-- Cloud Development Project Center
-- HTML5 Development Center
-- Windows Mobile Development Center
|