Help with ADSI 2

[Brycspain]

I'm trying to find if an executable exists and if so, I want the script to write out the computer name to a text file. I have 3 problems: 1. I would normally do more research and testing however, I have to have this completed in a few hours. 2. I'm not that familiar with using ADSI and 3, I'm not sure how to represent each computer that is returned when I attach to the computers OU.

When I attach to the Computers OU I can echo out all 1400 of my computers..does the are these computer names placed in some dynamic array or do I need to use a dictionary array and count through each computer?

How do I tie strComputer into this script so I can writeline it to the text file?

Any help would be appreciated.

'Option Explicit

Const ForAppending = 8
Const pLogFileName = "c:\outlooklog.txt"

'On Error Resume Next

Dim objFSO, objOU, objComputer, strComputer, searchDir
Dim objItem, sName, objTextFile, oLogFile

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set oLogFile = objFSO.OpenTextFile(pLogFileName, ForAppending)

Set searchDir = "C:\Program Files\Microsoft Office\OFFICE11"

Set objOU = GetObject("LDAP://OU=Computers, DC=fabrikim, DC=com")

For Each objComputer in objOU
	strComputer = 
	If exists searchDir & "outlook.exe"
	    pLogFile.WriteLine strComputer
		Else
	Err.clear
	End If  
Next

oLogFile.Close
WScript.echo "Script Finished"

 

[dm4ever]

You can try this to see if it works...haven't tested it. You may want to think about how you will keep track of those machines that were unreachable,

'Option Explicit
'On Error Resume Next

Dim objFSO, objOU, objComputer, strComputer, searchDir
Dim objItem, sName, objTextFile, oLogFile

Const ForAppending = 8

pLogFileName = "c:\outlooklog.txt"
searchDir = "\C$\PROGRAM FILES\MICROSOFT OFFICE\OFFICE11\OUTLOOK.EXE"

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set oLogFile = objFSO.OpenTextFile(pLogFileName, ForAppending)

Set objOU = GetObject("LDAP://OU=Computers, DC=fabrikim, DC=com")

For Each objComputer in objOU
	On Error Resume Next
    strComputer = objComputer.cn
    If objFSO.FileExists(strComputer & searchDir) Then
        oLogFile.WriteLine strComputer
    End If 
    On Error GoTo 0
Next

oLogFile.Close
WScript.echo "Script Finished"

--------------------------------------------------------------------------------
dm4ever
My philosophy: K.I.S.S - Keep It Simple Stupid

 

[Brycspain]

Thanks DM.

The script is running however, it's not writing any computer names to the text file. I checked everything variable and file name...everything checks out.

Seems like I'm missing something in the script...although ADSI returns the computer name, is this script actually connecting to it's file system correctly?

 

[djtech2k]

It could be in the mapping string. It looks to me that you will be looking for a file in this location:

"computername.fabrikam.com\C$\PROGRAM FILES\MICROSOFT OFFICE\OFFICE11\OUTLOOK.EXE"

Maybe change this line:

strComputer = objComputer.cn

To this:

strComputer = "\\" & objComputer.cn

Thats just a quick observation. Also, to make it simpler, you may want to consider not writing to the text file if you are not 100% about that part of your code. Its just as easy to just specify the output in the code and then run the script by command line and capture it in a log:

ie:

cscript //nologo your.vbs >>c:\output.txt

 

[dm4ever]

oops...haha, thanks for that catch djtech2k.

--------------------------------------------------------------------------------
dm4ever
My philosophy: K.I.S.S - Keep It Simple Stupid

 

[Brycspain]

Thanks both of you. The script is working as intended. I will add a ping check into it if I ever want to use it again.

=)

 

[djtech2k]

Glad to help.