Is Googling wrecking the environment?

This is a interesting blog article that gives some food for thought. According to a British newspaper, we’re pumping carbon dioxide into the air with each query on Google. The blog article does dispute this claim, citing Google’s efforts to reduce its impact on the environment. I can only draw one conclusion from all this. As the Internet continues to grow, it must pay close attention to what it’s doing to our planet in the meantime.

The dangerous side of boredom.

I must’ve been really bored at work today because I found myself going to Google to play with its language tools. I like to type in a sentence in English, translate it to another language and re-translate it back to English. The resulting re-translations are often more interesting than what I started with.
The following nursery rhymes were translated to Japanese and then re-translated back to English. See if you can recognize them.

There was a lamb which is small to Mary
That wool was white as a snow
And thing where Mary goes
The lamb going, was secure.

The dry dock of Dickory of hickory!
The mouse moved on the clock!
The clock struck one
And that moves,
The dry dock of Dickory of hickory!

Scribbling the Yankee went into town
Riding in a car of that foal
He attached the feather of that hat
And it is called that the macaroni.

Bench of circle and circular shoeshop
The monkey pursued the weasel,
As for the monkey entirely having the pleasure which was thought
Explosion sound! The weasel goes.

The last one cracked me up, especially the last line. I can just hear the teachers in Japan telling their classes, “Okay class, today we’re going to sing ‘Explosion Sound! The Weasel Goes’. One, two, three…”
And the rest, as they say, is history.

Of scripts and Firefox.

In case you haven’t been driven bonkers by my posts about scripting, here comes another one that will have you banging your head on the wall a second time. I came up with a bunch of scripts today that take scripting to new online heights.
On the server I use at work, Internet Explorer 7 is set as the default browser, which irritates me. I really get tired of those security alerts that pop up whenever a web site’s content has been blocked. I don’t want to change anything as I’m working at the very server that’s the lifeline of everyone at the office.
Fortunately, Firefox is also installed on the same server. I started looking into having Firefox launch when I type in a web address without making it the default browser. Here’s the script that does the trick.

Set objShell = CreateObject(“Wscript.Shell”)
strURL = InputBox(“Enter a web address:”, _
“Firefox Launcher”)
objShell.Run “firefox.exe ” & strURL

In that script, an input window will open to ask for the web address. Afterwards Firefox will launch and take you to that address.

Another script I made is one that does searches on Google using Firefox.

Set objShell = CreateObject(“Wscript.Shell”)
strSEARCH = InputBox(“Enter a search query:”, _
“Googler”)

strOldText = Chr(32)
strNewText = Chr(43)
strQuery = Replace(strSEARCH, strOldText, strNewText)

objShell.Run “firefox.exe ” & “http://www.google.com/search?hl=en&q=” & Chr(34) & strQuery & Chr(34) & “&btnG=Search”

This script asks for a search query, replaces any spaces between words with plus signs and then sends it to Google.

Here’s a script that utilizes Google’s “I’m Feeling Lucky” function. Here you’ll be asked for a search query and then be taken to the first site Google finds.

Set objShell = CreateObject(“Wscript.Shell”)
strSEARCH = InputBox(“Careful, you are feeling lucky. Enter a search query:”, _
“I’m Feeling Lucky”)

strOldText = Chr(32)
strNewText = Chr(43)
strQuery = Replace(strSEARCH, strOldText, strNewText)

objShell.Run “firefox.exe ” & “http://www.google.com/search?hl=en&q=” & Chr(34) & strQuery & Chr(34) & “&btnI=I’m+Feeling+Lucky”

Here’s a script that does a Google search on Experts Exchange’s web site.

Set objShell = CreateObject(“Wscript.Shell”)
strSEARCH = InputBox(“Enter a search query:”, _
“Experts Exchange Search”)

strOldText = Chr(32)
strNewText = Chr(43)
strQuery = Replace(strSearch, strOldText, strNewText)

objShell.Run “firefox.exe ” & “http://www.google.com/search?q=site%3Awww.experts-exchange.com+” & Chr(34) & strQuery & Chr(34)

I had originally saved this script as expertsexchange.vbs, but the title really looked strange. No script will ever do an expert sex change, so I ended up renaming it to experts-exchange.vbs.

All the above scripts will work with Internet Explorer as well. Just replace “firefox.exe” with “iexplore.exe”.

I close with a cool script that launches a multi-tabbed instance of Firefox.

Set objShell = CreateObject(“Wscript.Shell”)
objShell.Run “firefox.exe google technet kbalertz experts-exchange”

This particular script launches Firefox with tabs for Google, Microsoft Technet, kbAlertz and Experts Exchange. I ran this by Internet Explorer but it got confused and took me to its search page.
That’s enough scripting for today. Who knows what scripts I’m going to come up with tomorrow.