Search results for query: *

Ahh ok...how would I specify 1 group? ...we have A LOT of groups in our directory...

Wow thank you! So do I only have to fill in the name of my group here: If Len(GroupName)> 31 Then or just here: Set objGroup = GetObject(GroupPath)

I know what you talking about with objUser...but will it recognize that through the .ldf file?

Ok...I am familiar with vbscript. What I am doing is exporting members of a group from AD. I am using "ldifde.exe" to export the users to a .ldf file, because thats that only way ldifde can do it that I have found. It then uses the modify script to open the .ldf files, sort out all the crap...

I tried using what you gave me and I got errors trying to open the excel file...

It runs this after the ldife command which exports it: objShell.Run("%comspec% /c cscript Modify.vbs > ""Users.txt"""), 0, True Do you know how to change it to lastname, firtname?

Sorry here is the top half of the code that I didn't paste in right: Dim objFileSystem, objInputFile Dim strOutputFile, inputData, strData, strTemp Const OPEN_FILE_FOR_READING = 1 ' generate a filename base on the script name, here readfile.in strOutputFile = "groups.ldf"

Because it's using "ldifde" to export the users...it exports using "ldifde" and then uses modify.vbs to sort out the names in the "ldf" file that "ldifde" generates. Here is the full modifying code: Set objFileSystem = CreateObject("Scripting.fileSystemObject") Set objInputFile =...

I have a script that reads from a file, and sorts the data out into a text file. Here is the format it reads from: CN=Lastname\, Firstname,OU=Users,OU=sports group,DC=domain,DC=name, DC=com This code will read the data and put it into a text file: if Mid(strData,1,2)=" C" then...

Thanks that works.

Yeah but thats only for the first row, which is the contact name...so if there are no more contacts the the script stops...makes sense to me. Anyway...I've messed around with this and gotten most of it to work. This works for blanks cells you might have, other than first cell which will be the...

I've tried using "On Error Resume Next"...but that doesn't really skip it. It completes the script with that but it doesn't put the contact in AD.

I need a little help with this script...it seems that if a cell is blank, it error's out and stops the script. Also, if the contact already exists it errors out...does anyone know how to fix this? Option Explicit Dim objRootLDAP, objContainer, objContact, objExcel, objSheet Dim strOU...

Is is possible to enable windows file and printer sharing remotly via a vbs script?

Nevermind figured it out, I had to add this part: Do While Ping(strHost) = True

Thanks. I tested this. The pc was on, I ran the script and it said it was unreachable...

Hmmmm that doesn't seem to work...

Ahh ok I understand now....would it be like this? Do While Ping(strHost) = False WScript.Sleep 1000 Loop if Ping(strHost) = False then Wscript.Echo "Host " & strHost & " is now shutdown!" Else end if

It's only going to be checking 1 computer...and it will have to be a continuous ping untill it is unreachable...I don't see how sleep will do that.

Hmmm not quit sure I know what your talking about...How would that stop the continuous ping once it has found a "Request timed out"?