Jump to content

kasandoro

Member
  • Posts

    43
  • Joined

  • Last visited

  • Donations

    0.00 USD 
  • Country

    United States

Everything posted by kasandoro

  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...
  16. I do agree that an unattended setup is better for most situations, but our process works better with images. We have never EVER had a single problem with imaging, and we have multicasted to upwards of 700 pc's at a time before...not a single call complaining of problems. But, again, if the image needs to be changed often, then the unattended install on a network share is the way to go. Our images don't change very often, so it works for us.
  17. I prefer zipgenius as well...never had a problem with it.
  18. Exactly, as long as they use an IDE controller. The key was changing the IDE controller to "Standard Dual Channel IDE Controller"...then it gets re-detected during the mini setup...and life is good
  19. I use disk imaging... We install the base image, install all our software (ms office, citrix client, sms client, etc.), then change the IDE controller to Standard Dual-Channel IDE Controller, then run sysprep -mini (we use a sysprep.inf file for automating sysprep), then image the system. Works on all our different PC models (about 15 at the moment, ranging from Dells to HP's). Works great for us, and we never have a problem. The coolest part is it only takes 4 minutes to re-image a dead system...
  20. I guess what I need to know is if there is a way to specify the product key and basic user info in the oobeinfo.inf...and what the syntax is. I have tried searching, but there isn't much info on this.
  21. I'm using the same key that is in sysprep.inf, and it works fine...
  22. I want to use the OOBE, and have succeeded in creating an image using SYSPREP, but the OOBE asks for the product key and everything, even though it is specified in the sysprep.ini file. Is there a way to automate the OOBE wizard?
  23. Any way to register it, or can this be done via registry import?
  24. If you are referring to DEP (data execution prevention), then this has nothing to do with freeware, and everything to do with preventing the proliferation of viruses. From what I've read, it removes the ability to allow bits of code to be executed while in memory, bypassing some safety measures... Correct me if I'm wrong...
  25. SmoothWall ClarkConnect Try these two...I'm using ClarkConnect, and it works pretty well. --Kas
×
×
  • Create New...