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 dencom 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: mefanning
  • Content: Threads
  • Order by date
  1. mefanning

    Problem with MD5 Script

    I'm working on this function, but the output is always an incorrect hash. Any ideas? Thanks. Function SHA1(s) Dim asc, enc, bytes, outstr, pos Set asc = CreateObject("System.Text.UTF8Encoding") Set enc = CreateObject("System.Security.Cryptography.MD5CryptoServiceProvider")...
  2. mefanning

    Remove Hyphens from output

    I have a script that pulls the SHA1 hash off a file and sends the output to a logfile. Currently the output separates includes hyphens. I'm curious if I can edit the output as it is written to remove the hyphens, or if I need edit the logfile after it has been written to. $Log =...
  3. mefanning

    Getting a process path and show modules loaded by a process

    I have two objectives with this vbscript that I am having trouble with. 1. I can get a list of running processes, but I cannot get the process path. 2. I would like to also see all of the modules loaded by a process. I can achieve this very easily with powershell, but I'm having trouble with...
  4. mefanning

    Help with CIM_Datafile query

    I'm putting a script together to query the flash install directory and log any ocx file and its file type. When I execute it I get an error: flash.vbs(12, 1) (null): 0x80041017 Any help is appreciated. Const ForAppending = 8 Set objFSO = CreateObject("Scripting.FileSystemObject") Set...
  5. mefanning

    Outlook 2003 Form - Copy text from text box to the message body

    My text box is named textbox1 and the value name is "text". I get an error message - One or more parameter values are not valid. Sub CommandButton1_Click Dim strText set strText = Item.UserProperties("TextBox1") Item.To = "email@email.com" Item.Subject = "This is the subject" Item.Body...
  6. mefanning

    Stop Service, Copy File, Start Service

    Hello, I am attempting to use VBScript to import a list of servers, stop a service, copy a replacement exe, then restart the service. I am almost there, however the service is failing to restart once the file is copied. Any help is appreciated. On Error Resume Next Const ForAppending = 8...
  7. mefanning

    Assistance with vbscript to query services for service account

    I have created a script to query services to retrieve their service account information. To begin, I execute the script locally and it does retrieve the correct information. However, I would like to modify the script to poll a list of services for their service account info and write the...

Part and Inventory Search

Back
Top