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 wOOdy-Soft on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Recent content by arohl74

  1. arohl74

    Issue Scripting with Excel

    The script works but only after I retype the names in the spreadsheet. Here is the code: Option Explicit On Error Resume Next '=== Constants Required for OpenTextFile function Const ForReading = 1 Const ForWriting = 2 Const ForAppending = 8 '=== Retrieve command line parameters Dim oArgs...
  2. arohl74

    Issue Scripting with Excel

    I have a script to modify Active Directory user information that uses Excel as the source of the information. The username is in ColumnA, the property information is in ColumnB and ColumnC. The script takes the username in the spreadsheet to find the DN and then modifies AD based on the...
  3. arohl74

    Getting Error and Need Help ASAP

    the value of strDomain is the target OU and domain that I want to bind to. It is declared in the script.
  4. arohl74

    Getting Error and Need Help ASAP

    Yup, PHV, that did it. I tried that this morning. Now I am getting the following error: Line:14 Char:3 Code:800401E4 This is pointing to the LDAP line.
  5. arohl74

    Getting Error and Need Help ASAP

    Thank you all for your help. To answer your question PHV, intRow = 2 is commented because there are no column headers. I made the suggested changes. Here is the code: Dim objExcel, objWorkbook, objUser, strDomain, intRow, strFile Set objExcel = CreateObject("Excel.Application")...
  6. arohl74

    Getting Error and Need Help ASAP

    I found the issue with the above script. I left out an &. Here is the code: Dim objExcel, objWorkbook, objUser, strDomain, intRow, strFile Set objExcel = CreateObject("Excel.Application") objExcel.DisplayAlerts = False 'intRow = 2 strFile = "C:\script\test_emp_info.xls" strDomain =...
  7. arohl74

    Getting Error and Need Help ASAP

    I am trying to modify users' AD information using an Excel Spreadsheet. Here is my script: Set objExcel = CreateObject("Excel.Application") objExcel.DisplayAlerts = False 'intRow = 2 strFile = "C:\script\test_emp_info.xls" strDomain = "OU=PSTEST,DC=russellreynolds,DC=com" Set objWorkbook =...
  8. arohl74

    Modifying AD from a text file

    It's actually a tab-delimited file. Here is some code that I found on the internet and modified... On Error Resume Next Const adOpenStatic = 3 Const adLockOptimistic = 3 Const adCmdText = &H0001 Const ADS_PROPERTY_APPEND = 3 'Col1=sEmployeeID Text 'Col2=sEmployeeName Text...
  9. arohl74

    Modifying AD from a text file

    I have a situation similar to thread329-1218115. We have a text file from Peoplesoft that has the Employee Name, Department, Office, Region and Phone Number. I want to import this data into AD form the tab delimited text file. In thread329-1218115 I don't see how the example is for mass...
  10. arohl74

    ACT! will not open

    I am having the same issue. The task manager shows actsage.exe at 50% utilization but there is no graphical display for the app. I have reinstalled 3x but still get the same issue.

Part and Inventory Search

Back
Top