Jump to content
Strawberry Orange Banana Lime Leaf Slate Sky Blueberry Grape Watermelon Chocolate Marble
Strawberry Orange Banana Lime Leaf Slate Sky Blueberry Grape Watermelon Chocolate Marble

MSFN is made available via donations, subscriptions and advertising revenue. The use of ad-blocking software hurts the site. Please disable ad-blocking software or set an exception for MSFN. Alternatively, register and become a site sponsor/subscriber and ads will be disabled automatically. 



kasandoro

Member
  • Content count

    43
  • Donations

    $0.00 
  • Joined

  • Last visited

Community Reputation

0 Neutral

About kasandoro

  1. Shaded column in Outlook 2003

    It's shaded because that is the column you are sorting your emails by.
  2. It's funny you'd ask for this, as I posted it today in another thread This does exactly what you asked, but I don't think it provides the results you asked for specifically. Also, it creates a .csv file, but that can easily be opened in excel for easy viewing. You can obviously edit it for your needs. Anyway, here you go: Const ForReading = 1 Set objFSO = CreateObject("Scripting.FileSystemObject") Set objShell = CreateObject("WScript.Shell") If not objFSO.FileExists("servers.txt") THEN wscript.echo "Please create a file named 'servers.txt' with one PC name to be pinged per line,"&_ vbcrlf&"with a hard return at the end of each line." wscript.quit end if tempobj="temp.txt" Set objTextFile = objFSO.OpenTextFile("servers.txt", ForReading) logfile="results.csv" Set ofile=objFSO.CreateTextFile(logfile,True) strText = objTextFile.ReadAll objTextFile.Close wscript.echo "Ping batch starting, please be patient. This could take some time to"&_ vbcrlf&"finish, depending on the number of hosts to check. You "_ &"will be "&vbcrlf&"notified upon the completion of this script." ofile.WriteLine ","&"Ping Report -- Date: " & Now() & vbCrLf arrComputers = Split(strText, vbCrLF) for each item in arrcomputers objShell.Run "cmd /c ping -n 1 -w 1000 " & item & " >temp.txt", 0, True Set tempfile = objFSO.OpenTextFile(tempobj,ForReading) Do Until tempfile.AtEndOfStream temp=tempfile.readall striploc = InStr(temp,"[") If striploc=0 Then strip="" Else strip=Mid(temp,striploc,16) strip=Replace(strip,"[","") strip=Replace(strip,"]","") strip=Replace(strip,"w"," ") strip=Replace(strip," ","") End If If InStr(temp, "Reply from") Then ofile.writeline item & ","&strip&","&"Online." ElseIf InStr(temp, "Request timed out.") Then ofile.writeline item &","&strip&","&"No response (Offline)." ELSEIf InStr(temp, "try again") Then ofile.writeline item & ","&strip&","&"Unknown host (no DNS entry)." End If Loop Next tempfile.close objfso.deletefile(tempobj) ofile.writeline ofile.writeline ","&"Ping batch complete "&now() wscript.echo "Ping batch completed. The results will now be displayed." objShell.Run("""C:\Program Files\Microsoft Office\OFFICE11\excel.exe """&logfile) Create a file named servers.txt in the same folder as this script, with one computername/ip address that you'd like to ping per line. That should be all you need
  3. [Help] Making an auto ping tool

    Try this out, I wrote it for checking long lists of hosts (just put one host per line in a text file): Const ForReading = 1 Set objFSO = CreateObject("Scripting.FileSystemObject") Set objShell = CreateObject("WScript.Shell") If not objFSO.FileExists("servers.txt") THEN wscript.echo "Please create a file named 'servers.txt' with one PC name to be pinged per line,"&_ vbcrlf&"with a hard return at the end of each line." wscript.quit end if tempobj="temp.txt" Set objTextFile = objFSO.OpenTextFile("servers.txt", ForReading) logfile="results.csv" Set ofile=objFSO.CreateTextFile(logfile,True) strText = objTextFile.ReadAll objTextFile.Close wscript.echo "Ping batch starting, please be patient. This could take some time to"&_ vbcrlf&"finish, depending on the number of hosts to check. You "_ &"will be "&vbcrlf&"notified upon the completion of this script." ofile.WriteLine ","&"Ping Report -- Date: " & Now() & vbCrLf arrComputers = Split(strText, vbCrLF) for each item in arrcomputers objShell.Run "cmd /c ping -n 1 -w 1000 " & item & " >temp.txt", 0, True Set tempfile = objFSO.OpenTextFile(tempobj,ForReading) Do Until tempfile.AtEndOfStream temp=tempfile.readall striploc = InStr(temp,"[") If striploc=0 Then strip="" Else strip=Mid(temp,striploc,16) strip=Replace(strip,"[","") strip=Replace(strip,"]","") strip=Replace(strip,"w"," ") strip=Replace(strip," ","") End If If InStr(temp, "Reply from") Then ofile.writeline item & ","&strip&","&"Online." ElseIf InStr(temp, "Request timed out.") Then ofile.writeline item &","&strip&","&"No response (Offline)." ELSEIf InStr(temp, "try again") Then ofile.writeline item & ","&strip&","&"Unknown host (no DNS entry)." End If Loop Next tempfile.close objfso.deletefile(tempobj) ofile.writeline ofile.writeline ","&"Ping batch complete "&now() wscript.echo "Ping batch completed. The results will now be displayed." objShell.Run("""C:\Program Files\Microsoft Office\OFFICE11\excel.exe """&logfile) This might not be at all what you wanted to do...but I'll offer anyway Just put one server/hostname per line in a file named servers.txt in the same folder as this script and you'll be good to go. It creates a .csv file you can open in excel with the results.
  4. Windows Automated Installation Kit RTM

    Looks like the second link is dead now...any idea where it might have moved to?
  5. Weird RIS Problem

    Wow, that's pretty! Seriously, though...that looks like you've got a flaky piece of hardware (maybe your video card?) What boot O/S are you using to install Winx64?
  6. cable signal keeps dropping

    Call your cable provider's internet technical support. I had the exact same problem a while back, and I ended up calling them. It turns out that my cable modem was bad. They brought me another one, and the problem went away. Your problem might be different, though...I've also heard of this happening with a loose/frayed/bad cable run or connection somewhere in the line (might not be in your house).
  7. Help me pls.. comp going haywire..

    Mine doesn't do a ram test either if I do a soft reboot (start-shutdown-restart). Only when then computer is powered off and back on (or reset is pressed) will the RAM test show up. Don't know if yours does the same...
  8. Syntax Problem with VBScript

    you could have also used &chr(34) to create quotes...works for me every time.
  9. Install Windows x64 with BartPE and WinPE - How To

    Windows XP x64 Edition cd's are bootable, and installs just fine.
  10. Light Scribe

    Not sure, but it won't hurt to try it. I didn't have ANY lightscribe burning options available in any software until I installed this...I did install the SureThing software and it seemed to work just fine for me...had issues with the Nero version (only allowed me to create a very small text box)...
  11. Light Scribe

    You have to install the LightScribe system software first.... get it at: http://www.lightscribe.com/support/index.aspx?id=305
  12. Terminal Server

    Check terminal server licensing...had this problem once with expired temporary licenses.
  13. I believe Windows MCE does not support Domains. I think you'd have to buy windows XP Professional for that...
  14. Run XP 64 bit on my new rig?

    I'm in the same situation, and would also like to know if XP x64 is preferred...
  15. Webview *Argh*

    Looks good, but wouldn't you need to place this in HKEY_DEFAULT_USER? At t-12, when cmdlines.txt is processed, there are no accounts to apply this to except the administrator account... correct me if I'm wrong guys...
×