Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations strongm on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Search results for query: *

  • Users: n3tw0rkadm1n1strat0r
  • Order by date
  1. n3tw0rkadm1n1strat0r

    modify code

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

    modify code

    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)
  3. n3tw0rkadm1n1strat0r

    modify code

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

    modify code

    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...
  5. n3tw0rkadm1n1strat0r

    modify code

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

    modify code

    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?
  7. n3tw0rkadm1n1strat0r

    modify code

    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"
  8. n3tw0rkadm1n1strat0r

    modify code

    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 =...
  9. n3tw0rkadm1n1strat0r

    modify code

    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...
  10. n3tw0rkadm1n1strat0r

    Bulk Contact Import Script

    Thanks that works.
  11. n3tw0rkadm1n1strat0r

    Bulk Contact Import Script

    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...
  12. n3tw0rkadm1n1strat0r

    Bulk Contact Import Script

    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.
  13. n3tw0rkadm1n1strat0r

    Bulk Contact Import Script

    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...
  14. n3tw0rkadm1n1strat0r

    Enable Windows File and Printer Sharing remotly

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

    help with ping script

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

    help with ping script

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

    help with ping script

    Hmmmm that doesn't seem to work...
  18. n3tw0rkadm1n1strat0r

    help with ping script

    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
  19. n3tw0rkadm1n1strat0r

    help with ping script

    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.
  20. n3tw0rkadm1n1strat0r

    help with ping script

    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"?

Part and Inventory Search

Back
Top