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!

Register Log in
  • Congratulations Chriss Miller 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: *

  1. Rambeaux007

    Output Array Loop to Textbox in HTA

    Awesome! Thanks!
  2. Rambeaux007

    Output Array Loop to Textbox in HTA

    I like consolidation, but when I do that it seems to have a "Type Mismatch" error on the : Set objFileAgent = objFSOAgent.OpenTextFile("c:\textfile.txt", 1)
  3. Rambeaux007

    Output Array Loop to Textbox in HTA

    Magnificent! Works! Thank you!
  4. Rambeaux007

    Output Array Loop to Textbox in HTA

    Hello All! I am working on a HTA file that will parse thru a text file then output the last 5 or 6 lines of the text file to a Textbox. The script runs but only outputs 1 of the 5 readouts on the screen. I'm stuck. Please help! <head> <HTA:APPLICATION APPLICATIONNAME="HPSA Utility...
  5. Rambeaux007

    Does the Service Exist

    Outstanding!! Thank you!!
  6. Rambeaux007

    Does the Service Exist

    ...strServiceName = "SomeService" Set colServiceList = GetObject("winmgmts:\\.\root\cimv2") Set colItems = colServiceList.ExecQuery("Select * from Win32_Service where name = '" & strServiceName & "'",,48) If (Err.Number = 0) And IsObject(colServiceList) Then If colServiceList.Count > 0 Then...
  7. Rambeaux007

    How do I perform LDAP queries from remotely executed script?

    I believe I am experiencing the same issue. What account are you running the script on the remote machine as? If it is the system account you probably cannot enumerate Domain information with that account.
  8. Rambeaux007

    objShell.Run &quot;cmd to text variable?

    Why not assign the the command a variable? Something like... strCommand = objShell.Run ("cmd /c S:\update1.cmd",1,True) Set objExecObject = objShell.Exec(strCommand) Set objStdOut = objWshScriptExec.StdOut Do Until objStdOut.AtEndOfStream strLine = objStdOut.ReadLine Wscript.Echo...
  9. Rambeaux007

    Select Network Adapter for Configuration

    I seem to be getting a zero on one adapter then 94 on the rest. Any way to see what object it is looking for?
  10. Rambeaux007

    Uninstall &quot;Client for Microsoft Networks&quot;

    I don't know if this will help you if you are trying to do a single nic like I am. http://www.jsifaq.com/SF/Tips/Tip.aspx?id=4705 http://forums.microsoft.com/MSDN/ShowPost.aspx?PostID=1079491&SiteID=1
  11. Rambeaux007

    Select Network Adapter for Configuration

    I keep getting a 94 or 0 for the intSetDNSServers. But the code worked fine. I am still scratching my head on that one. Thanks dm4ever!!
  12. Rambeaux007

    Select Network Adapter for Configuration

    This portion (below) seems to be skiping to "Unable to replace DNS..." Any ideas on this? intSetDNSServers = objNicConfig.SetDNSServerSearchOrder(arrNewDNSServerSearchOrder) If intSetDNSServers = 0 Then WScript.Echo " Replaced DNS server search order list." Else WScript.Echo "...
  13. Rambeaux007

    Select Network Adapter for Configuration

    ...like this? I don't think the quotes are correct because it doesn't seem to grab any NIC's. Set colNicConfigs = objWMIService.ExecQuery _ ("SELECT * FROM Win32_NetworkAdapter WHERE NetConnectionID = 'NIC One'",,48) NICIndex = objItem.Index Set colNicConfigs = objWMIService.ExecQuery _...
  14. Rambeaux007

    Select Network Adapter for Configuration

    ..._ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colNicConfigs = objWMIService.ExecQuery _ ("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE NetconnectionID = 'NIC One'") For Each objNicConfig In colNicConfigs strDNSHostName = objNicConfig.DNSHostName...
  15. Rambeaux007

    Filter info using RegExp

    Awesome that works great!! Now where would be the best place for this in the script I have? At the bottom, as a function?
  16. Rambeaux007

    Filter info using RegExp

    ...strComputers, INPUT_FILE_NAME Dim ObjShell Dim strCurrentLine Dim FileFSO,objFile Dim objRegEx Dim IP_Address, colMatches On Error Resume Next '********************************************************************************* Set ObjShell = CreateObject("WScript.Shell") 'Executes HPONCFG.exe...
  17. Rambeaux007

    Search Multiple Files on Multiple Computers

    Thanks!! This gives me something to work with.
  18. Rambeaux007

    VBS version of delprof?

    I used this script a while back. Not sure if it will help you. Set objOU = GetObject ("LDAP:// OU=<OU>,OU=<OU>,DC=<DC>") objOU.Filter = Array ("Computer") For Each ObjComputer In objOU strName = objComputer.Name strlen = len(strName) size = strlen -3 strComputerName = Mid(strName, 4...
  19. Rambeaux007

    Search Multiple Files on Multiple Computers

    I have made the corrections. The script works....as is. My issue is modifying it so that it will read multiple files of the same file type within a given folder on multiple computers. As you can see it already loops throught multiple computers. I just don't know where to start for reading...
  20. Rambeaux007

    Search Multiple Files on Multiple Computers

    ...Dim pFolderName : pFolderName = "computers.txt" Dim intIndex Dim strMatch2 Dim objpath Dim strComputer Dim AbsoluteRelative Const ForReading = 1 '********************************************************************************* INPUT_FILE_NAME = Inputbox("Type in the location of the...

Part and Inventory Search

Back
Top