Comments for Jeff Harbert's Blog

Comment on A VBScript ‘Wake on LAN’ Project by ChrisKader

ChrisKader — Wed, 01 Feb 2012 14:59:00 +0000

I know this post is old but I was looking for a method to send WOL by using just vbScripting (No WOL exe). After looking at your script, I found the issue. Here is the fixed section (lines 35 to 46)

DostrLine=objExec.StdOut.ReadLineIf InStr(strLine,”MAC Address”) ThenarrFields = Split(strLine, ” “)strMAC1 = arrFields(7)strMACAddress = Replace(strMAC1, “-”, “”)strCompEntry = strComputer & “,” & strMACAddressSet objFile2 = objFSO.OpenTextFile(“C:toolsdnsmac.txt”, ForAppending)objFile2.WriteLine strCompEntryobjFile2.closeEnd IfLoop While Not ObjExec.Stdout.atEndOfStreamElse

Basically, remove everything from the Do and add the “While Not ObjExec.Stdout.atEndOfStream” after the loop on line 46.

Comment on USPS (Non-)Tracking Service by Souleiman Benhida

Souleiman Benhida — Mon, 28 Nov 2011 22:10:00 +0000

What’s interesting is that I’m buying (small) parts to fix an iPod; I bought the screen assembly off Amazon and the tools from another site. I ordered both Thanksgiving morning. The tools shipped on Friday and the tracking worked perfectly; I got them on Monday. The screen(small) shipped Saturday morning but still hasn’t even updated the tracking. The seller assures that they HAVE GIVEN the package to the USPS. Both are using First-class mail and both are from california. (I live in MA)

It’s pretty hit and miss, and frustrating for the seller and the end-user as well.

Comment on A VBScript ‘Wake on LAN’ Project by Billy Russell

Billy Russell — Tue, 25 Oct 2011 17:38:00 +0000

Sorry for the delay, I was unable to reply here last week. It is still giving an error in the same place. I haven’t had time to troubleshoot it. If I remove True from the end it does run, but it never does the mac address find, just checks for ping and writes all the failures to a txt file but not of the successs get logged.

Comment on A VBScript ‘Wake on LAN’ Project by Jeff Harbert

Jeff Harbert — Wed, 19 Oct 2011 19:39:00 +0000

Billy – I’ve packaged the three VBS (simply created in Notepad) scripts as a ZIP file and (I think) fixed all the WordPress-induced incorrect punctuation. Here’s the link to the ZIP file: http://dl.dropbox.com/u/569310/WakeOnLan.zip

I’ll also add this ZIP file to the post. Do let me know how well the scripts in the ZIP file work for you.

Comment on A VBScript ‘Wake on LAN’ Project by Billy Russell

Billy Russell — Wed, 19 Oct 2011 19:18:00 +0000

I’ve noticed that wordpress does all kinds of nasty things to scripts. Changes formatting, punctuation, etc… Thanks for the quick reply. There are more errors, but most likely due to the copy from word press. I’m going through it line by line. Eventually it will work itself out or my boss will stop asking me to be a vb expert.

Comment on A VBScript ‘Wake on LAN’ Project by Jeff Harbert

Jeff Harbert — Wed, 19 Oct 2011 15:16:00 +0000

There should be a space before ‘True’:

Do While objExec.StdOut.AtEndOfStream True

I recently edited this post and WordPress sometimes drops spaces when copying and pasting. Sorry about that, and thanks for bringing this to my attention.

Comment on A VBScript ‘Wake on LAN’ Project by Billy Russell

Billy Russell — Wed, 19 Oct 2011 14:55:00 +0000

Great scripts. I’m having a slight issue with the one that pings and pulls the MAC. I get a script error on the line:

Do While objExec.StdOut.AtEndOfStreamTrue

It says the object doesn’t support this method. If i remove True from the end it runs, but never stops running. I’m no VBScript expert so any help would be appreciated.

Comment on Convert Unicode Files to ASCII by Michel de Ruiter

Michel de Ruiter — Mon, 03 Oct 2011 11:18:00 +0000

According to http://msdn.microsoft.com/library/314cz14s.aspx, the value -2 is called TristateUseDefault, not TriStateTrue.

Comment on XM Radio Customer Service Failure by Brian

Brian — Tue, 12 Jul 2011 20:33:00 +0000

I had major problems canceling my account. after 3 attempts I think i might have it. they do not allow customers to cancel accounts, instead they hang up after 30 minutes on the phone, claim your phone number isn’t in their data base so they cannot help you, then send you a bill with late charges. I still get 2 or 3 calls every day from XM trying to renew my account which I canceled (hopefully). I prefer not to do business with companies that insist on harassing their customers.

Comment on A VBScript ‘Wake on LAN’ Project by Jeff Harbert

Jeff Harbert — Fri, 08 Jul 2011 17:54:00 +0000

Sorry for the delay in replying, and thank you for your comment. Yes, you are correct. The final WOL script does require all the entries to be on a single line. The easiest way to handle this would be to do it in memory. Add these two lines after “objFile.close”:

strList = Replace(strFile, vbCrLf, “,”)
wScript.Echo strList

This replaces the line feeds at the end of each line with a comma before the entire file is split into an array.

I’ve updated the script in the post as well.