Jump to content

kasandoro

Member
  • Posts

    43
  • Joined

  • Last visited

  • Donations

    0.00 USD 
  • Country

    United States

About kasandoro

kasandoro's Achievements

0

Reputation

  1. 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. 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. Looks like the second link is dead now...any idea where it might have moved to?
  5. 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. 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. 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. you could have also used &chr(34) to create quotes...works for me every time.
  9. Windows XP x64 Edition cd's are bootable, and installs just fine.
  10. 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. You have to install the LightScribe system software first.... get it at: http://www.lightscribe.com/support/index.aspx?id=305
  12. 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. I'm in the same situation, and would also like to know if XP x64 is preferred...
  15. 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...
×
×
  • Create New...