Archive - March 2012

"The future depends on what we do in the present." - Mahatma Gandhi

Index

Facebook Like Button
Change Registered User and Owner
Download a Remote File
Enable Disable Sound
HTA Countdown Timer - Input Variable
Read Word Document
Remove WGA Notification

Restore VBScript Extensions
Parse a URL - Return Page Name
Change Screensaver 3D Text
Testing Batch File Color Codes
Event Log to Text File

Δ Friday, March 30th, 2012

Δ Facebook Like Button

How to add the facebook plugin to your page; html.

[download resource files]

Demo

Everyone has one, and you know you want one. So here it is. Just add this to your webpage.

Δ [email me]

Δ Wednesday, March 28th, 2012

Δ Change Registered User and Owner

How to change registration information; VBScript.

[download resource files]

Demo

This will change the user and the company that is registered to the operating system.

Δ [email me]

Δ Monday, March 26th, 2012

Δ Download a Remote File

How to download a file from a website, method 2; VBScript.

[download resource files]

Demo

This will allow you to specify a file name to be download from a website. Can be used for daily or routine downloads.

function download(sFileURL, sLocation)
 
	'create xmlhttp object
	Set objXMLHTTP = CreateObject("MSXML2.XMLHTTP")
 
	'get the remote file
	objXMLHTTP.open "GET", sFileURL, false
 
	'send the request
	objXMLHTTP.send()
 
	'wait until the data has downloaded successfully
	do until objXMLHTTP.Status = 200 :  wscript.sleep(1000) :  loop
 
	'if the data has downloaded sucessfully
	If objXMLHTTP.Status = 200 Then
 
    		'create binary stream object
		Set objADOStream = CreateObject("ADODB.Stream")
		objADOStream.Open
 
	        'adTypeBinary
		objADOStream.Type = 1
		objADOStream.Write objXMLHTTP.ResponseBody
 
	        'Set the stream position to the start
		objADOStream.Position = 0    
 
	        'create file system object to allow the script to check for an existing file
	        Set objFSO = Createobject("Scripting.FileSystemObject")
 
	        'check if the file exists, if it exists then delete it
		If objFSO.Fileexists(sLocation) Then objFSO.DeleteFile sLocation
 
	        'destroy file system object
		Set objFSO = Nothing
 
	        'save the ado stream to a file
		objADOStream.SaveToFile sLocation
 
	        'close the ado stream
		objADOStream.Close
 
		'destroy the ado stream object
		Set objADOStream = Nothing
 
	'end object downloaded successfully
	End if
 
	'destroy xml http object
	Set objXMLHTTP = Nothing
 
End function
 
download "http://eddiejackson.net/web_images/computeroffice.bmp", "C:\temp\testmydownload.bmp"

Δ [email me]

Δ Thursday, March 15th, 2012

Δ Enable Disable Sound

How to turn sound on and off; VBScript.

[download resource files]

This will toggle the sound on and off. Can be used to add a mute button to your scripted apps.

Δ [email me]

Δ Wednesday, March 14th, 2012

Δ HTA Countdown Timer - Input Variable

How to create a HTA timer; HTA/Javascript.

[download resource files]

Demo

This will allow a user to input the countdown time, and then start counting down.

<html>
<title>Input Timer</title>
<body>
<div id="countdown"></div>
<div id="notifier"></div>
<script type="text/javascript">
function startTimer() {
  userInput = document.getElementById('userTime').value;
  	if(userInput.length == 0){
		alert("Please enter a value");
	} else {
	var numericExpression = /^[0-9]+$/;
	if(!userInput.match(numericExpression)){
	alert("Please enter a number")
	} else {

setTimer(userInput, {
    10: function () { display("notifier", "Just 10 seconds to go"); },
     5: function () { display("notifier", "5 seconds left");        },
     0: function () { display("notifier", "Time is up");       }
  }); 
}  
}
}
</script>
Please Enter A Number: <input type="text" id="userTime" />
<input type="button" value="Go" onclick="startTimer()" />
</body>
</html>Tested in IE9

Δ [email me]

Δ Tuesday, March 13th, 2012

Δ Read Word Document

How to read the contents of a Microsoft Word Doc; VBScript.

[download resource files]

Demo

This will read the text portion of a word doc and return it to a popup window. Could also be changed
to direct the contents to a text file.

Δ [email me]

Δ Monday, March 12th, 2012

Δ Remove WGA Notification

How to remove WGA Notification; AutoIT.

[download resource files]

In the rare event that the WGA Notification will not go away, even though your OS is registered, you can give this a try.

; RemoveWGA Notifications v1.0

; This is a response to the Microsoft update WindowsXP-KB905474-ENU-x86-Standalone.exe  
; which fails to include a functional uninstallation process.  The following work Is

; derived through the update.inf file that is extracted to install.

#NoTrayIcon

;Remove Registry Keys  
RegDelete ("HKEY_CLASSES_ROOT\AppID\{2DE6426A-0708-415C-8C19-623CC4855F80}")                ;UnRegister LegitCheckControl.dll  
RegDelete ("HKEY_CLASSES_ROOT\AppID\LegitCheckControl.DLL")                     ;UnRegister LegitCheckControl.dll  
RegDelete ("HKEY_CLASSES_ROOT\LegitCheckControl.LegitCheck")                        ;UnRegister LegitCheckControl.dll  
RegDelete ("HKEY_CLASSES_ROOT\LegitCheckControl.LegitCheck.1")                      ;UnRegister LegitCheckControl.dll  
RegDelete ("HKEY_CLASSES_ROOT\CLSID\{17492023-C23A-453E-A040-C7C580BBF700}")                ;UnRegister LegitCheckControl.dll  
RegDelete ("HKEY_CLASSES_ROOT\TypeLib\{5E649A63-7EE9-43F4-9926-0DEAA462A8FB}")              ;UnRegister LegitCheckControl.dll  
RegDelete ("HKEY_CLASSES_ROOT\Interface\{36CFF953-FB06-45AD-896F-94A0259AB3DD}")            ;UnRegister LegitCheckControl.dll  
RegDelete ("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\Notify\WgaLogon")  ;Un-Hook WgaLogon.dll  
RegDelete ("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\WgaNotify")      ;Remove ARP entry  
    
;Process To Run Before Uninstall  
 If FileExists("C:\WINDOWS\system32\WgaTray.exe") Then  
Run(@ComSpec & " /c WgaTray.exe /u", @SystemDir, @SW_HIDE)  
Run(@ComSpec & " /c spupdsvc.exe /install", @SystemDir, @SW_HIDE)  
EndIf

;Add Registry Keys to perform post-uninstall tasks  
If FileExists("C:\WINDOWS\system32\WgaLogon.dll") Then  
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnce", "RemoveWGA1", "REG_SZ", "C:\WINDOWS\system32\cmd.exe /c del /q C:\WINDOWS\system32\WgaLogon.dll")  
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnce", "RemoveWGA2", "REG_SZ", "C:\WINDOWS\system32\cmd.exe /c del /q C:\WINDOWS\system32\WgaTray.exe")  
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnce", "RemoveWGA3", "REG_SZ", "C:\WINDOWS\system32\cmd.exe /c del /q C:\WINDOWS\system32\dllcache\WgaLogon.dll")  
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnce", "RemoveWGA4", "REG_SZ", "C:\WINDOWS\system32\cmd.exe /c del /q C:\WINDOWS\system32\dllcache\WgaTray.exe")  
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnce", "RemoveWGA5", "REG_SZ", "C:\WINDOWS\system32\cmd.exe /c del /q C:\WINDOWS\system32\LegitCheckControl.dll")  
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnce", "RemoveWGA6", "REG_SZ", "C:\WINDOWS\system32\cmd.exe /c C:\WINDOWS\system32\spupdsvc.exe /delete")  
ProcessWaitClose("cmd.exe")  
;Reboot Required  
;37 Shutdown (2)

Else  
;do nothing  
EndIf

Δ [email me]

Δ Friday, March 9th, 2012

Δ Restore VBScript Extensions

How to repair broken vbs; registry key; registry key.

[download resource files]

This repairs broken VBScript on a computer.

Windows XP

Windows Registry Editor Version 5.00
 
[HKEY_CLASSES_ROOT\.vbs]
@="VBSFile"
 
[HKEY_CLASSES_ROOT\.vbs\PersistentHandler]
@="{5e941d80-bf96-11cd-b579-08002b30bfeb}"
 
 
[HKEY_CLASSES_ROOT\VBSFile]
@="VBScript Script File"
"FriendlyTypeName"=hex(2):40,00,25,00,53,00,79,00,73,00,74,00,65,00,6d,00,52,\
  00,6f,00,6f,00,74,00,25,00,5c,00,53,00,79,00,73,00,74,00,65,00,6d,00,33,00,\
  32,00,5c,00,77,00,73,00,68,00,65,00,78,00,74,00,2e,00,64,00,6c,00,6c,00,2c,\
  00,2d,00,34,00,38,00,30,00,32,00,00,00
 
[HKEY_CLASSES_ROOT\VBSFile\DefaultIcon]
@=hex(2):25,00,53,00,79,00,73,00,74,00,65,00,6d,00,52,00,6f,00,6f,00,74,00,25,\
  00,5c,00,53,00,79,00,73,00,74,00,65,00,6d,00,33,00,32,00,5c,00,57,00,53,00,\
  63,00,72,00,69,00,70,00,74,00,2e,00,65,00,78,00,65,00,2c,00,32,00,00,00
 
[HKEY_CLASSES_ROOT\VBSFile\ScriptEngine]
@="VBScript"
 
[HKEY_CLASSES_ROOT\VBSFile\ScriptHostEncode]
@="{85131631-480C-11D2-B1F9-00C04F86C324}"
 
[HKEY_CLASSES_ROOT\VBSFile\Shell]
 
[HKEY_CLASSES_ROOT\VBSFile\Shell\Edit]
@="&Edit"
 
[HKEY_CLASSES_ROOT\VBSFile\Shell\Edit\Command]
@=hex(2):25,00,53,00,79,00,73,00,74,00,65,00,6d,00,52,00,6f,00,6f,00,74,00,25,\
  00,5c,00,53,00,79,00,73,00,74,00,65,00,6d,00,33,00,32,00,5c,00,4e,00,6f,00,\
  74,00,65,00,70,00,61,00,64,00,2e,00,65,00,78,00,65,00,20,00,25,00,31,00,00,\
  00
 
[HKEY_CLASSES_ROOT\VBSFile\Shell\Open]
@="&Open"
 
[HKEY_CLASSES_ROOT\VBSFile\Shell\Open\Command]
@=hex(2):25,00,53,00,79,00,73,00,74,00,65,00,6d,00,52,00,6f,00,6f,00,74,00,25,\
  00,5c,00,53,00,79,00,73,00,74,00,65,00,6d,00,33,00,32,00,5c,00,57,00,53,00,\
  63,00,72,00,69,00,70,00,74,00,2e,00,65,00,78,00,65,00,20,00,22,00,25,00,31,\
  00,22,00,20,00,25,00,2a,00,00,00
 
[HKEY_CLASSES_ROOT\VBSFile\Shell\Open2]
@="Open &with Command Prompt"
 
[HKEY_CLASSES_ROOT\VBSFile\Shell\Open2\Command]
@=hex(2):25,00,53,00,79,00,73,00,74,00,65,00,6d,00,52,00,6f,00,6f,00,74,00,25,\
  00,5c,00,53,00,79,00,73,00,74,00,65,00,6d,00,33,00,32,00,5c,00,43,00,53,00,\
  63,00,72,00,69,00,70,00,74,00,2e,00,65,00,78,00,65,00,20,00,22,00,25,00,31,\
  00,22,00,20,00,25,00,2a,00,00,00
 
[HKEY_CLASSES_ROOT\VBSFile\Shell\Print]
@="&Print"
 
[HKEY_CLASSES_ROOT\VBSFile\Shell\Print\Command]
@=hex(2):25,00,53,00,79,00,73,00,74,00,65,00,6d,00,52,00,6f,00,6f,00,74,00,25,\
  00,5c,00,53,00,79,00,73,00,74,00,65,00,6d,00,33,00,32,00,5c,00,4e,00,6f,00,\
  74,00,65,00,70,00,61,00,64,00,2e,00,65,00,78,00,65,00,20,00,2f,00,70,00,20,\
  00,25,00,31,00,00,00
 
[HKEY_CLASSES_ROOT\VBSFile\ShellEx]
 
[HKEY_CLASSES_ROOT\VBSFile\ShellEx\DropHandler]
@="{60254CA5-953B-11CF-8C96-00AA00B8708C}"
 
[HKEY_CLASSES_ROOT\VBSFile\ShellEx\PropertySheetHandlers]
 
[HKEY_CLASSES_ROOT\VBSFile\ShellEx\PropertySheetHandlers\WSHProps]
@="{60254CA5-953B-11CF-8C96-00AA00B8708C}"

Δ

Windows 7

Windows Registry Editor Version 5.00
 
[HKEY_CLASSES_ROOT\.VBS]
@="VBSFile"
 
[HKEY_CLASSES_ROOT\.VBS\PersistentHandler]
@="{5e941d80-bf96-11cd-b579-08002b30bfeb}"
 
[HKEY_CLASSES_ROOT\VBScript]
@="VB Script Language"
 
[HKEY_CLASSES_ROOT\VBScript\CLSID]
@="{B54F3741-5B07-11cf-A4B0-00AA004A55E8}"
 
[HKEY_CLASSES_ROOT\VBScript\OLEScript]
 
[HKEY_CLASSES_ROOT\VBSFile]
"FriendlyTypeName"=hex(2):40,00,25,00,53,00,79,00,73,00,74,00,65,00,6d,00,52,\
  00,6f,00,6f,00,74,00,25,00,5c,00,53,00,79,00,73,00,74,00,65,00,6d,00,33,00,\
  32,00,5c,00,77,00,73,00,68,00,65,00,78,00,74,00,2e,00,64,00,6c,00,6c,00,2c,\
  00,2d,00,34,00,38,00,30,00,32,00,00,00
@="VBScript Script File"
 
[HKEY_CLASSES_ROOT\VBSFile\DefaultIcon]
@=hex(2):25,00,53,00,79,00,73,00,74,00,65,00,6d,00,52,00,6f,00,6f,00,74,00,25,\
  00,5c,00,53,00,79,00,73,00,74,00,65,00,6d,00,33,00,32,00,5c,00,57,00,53,00,\
  63,00,72,00,69,00,70,00,74,00,2e,00,65,00,78,00,65,00,2c,00,32,00,00,00
 
[HKEY_CLASSES_ROOT\VBSFile\ScriptEngine]
@="VBScript"
 
[HKEY_CLASSES_ROOT\VBSFile\ScriptHostEncode]
@="{85131631-480C-11D2-B1F9-00C04F86C324}"
 
[HKEY_CLASSES_ROOT\VBSFile\Shell]
@="Open"
 
[HKEY_CLASSES_ROOT\VBSFile\Shell\Edit]
 
[HKEY_CLASSES_ROOT\VBSFile\Shell\Edit\Command]
@=hex(2):22,00,25,00,53,00,79,00,73,00,74,00,65,00,6d,00,52,00,6f,00,6f,00,74,\
  00,25,00,5c,00,53,00,79,00,73,00,74,00,65,00,6d,00,33,00,32,00,5c,00,4e,00,\
  6f,00,74,00,65,00,70,00,61,00,64,00,2e,00,65,00,78,00,65,00,22,00,20,00,25,\
  00,31,00,00,00
 
[HKEY_CLASSES_ROOT\VBSFile\Shell\Open]
 
[HKEY_CLASSES_ROOT\VBSFile\Shell\Open\Command]
@=hex(2):22,00,25,00,53,00,79,00,73,00,74,00,65,00,6d,00,52,00,6f,00,6f,00,74,\
  00,25,00,5c,00,53,00,79,00,73,00,74,00,65,00,6d,00,33,00,32,00,5c,00,57,00,\
  53,00,63,00,72,00,69,00,70,00,74,00,2e,00,65,00,78,00,65,00,22,00,20,00,22,\
  00,25,00,31,00,22,00,20,00,25,00,2a,00,00,00
 
[HKEY_CLASSES_ROOT\VBSFile\Shell\Open2]
@=hex(2):4f,00,70,00,65,00,6e,00,20,00,26,00,77,00,69,00,74,00,68,00,20,00,43,\
  00,6f,00,6d,00,6d,00,61,00,6e,00,64,00,20,00,50,00,72,00,6f,00,6d,00,70,00,\
  74,00,00,00
"MUIVerb"=hex(2):40,00,25,00,53,00,79,00,73,00,74,00,65,00,6d,00,52,00,6f,00,\
  6f,00,74,00,25,00,5c,00,53,00,79,00,73,00,74,00,65,00,6d,00,33,00,32,00,5c,\
  00,77,00,73,00,68,00,65,00,78,00,74,00,2e,00,64,00,6c,00,6c,00,2c,00,2d,00,\
  34,00,35,00,31,00,31,00,00,00
 
[HKEY_CLASSES_ROOT\VBSFile\Shell\Open2\Command]
@=hex(2):22,00,25,00,53,00,79,00,73,00,74,00,65,00,6d,00,52,00,6f,00,6f,00,74,\
  00,25,00,5c,00,53,00,79,00,73,00,74,00,65,00,6d,00,33,00,32,00,5c,00,43,00,\
  53,00,63,00,72,00,69,00,70,00,74,00,2e,00,65,00,78,00,65,00,22,00,20,00,22,\
  00,25,00,31,00,22,00,20,00,25,00,2a,00,00,00
 
[HKEY_CLASSES_ROOT\VBSFile\Shell\Print]
 
[HKEY_CLASSES_ROOT\VBSFile\Shell\Print\Command]
@=hex(2):22,00,25,00,53,00,79,00,73,00,74,00,65,00,6d,00,52,00,6f,00,6f,00,74,\
  00,25,00,5c,00,53,00,79,00,73,00,74,00,65,00,6d,00,33,00,32,00,5c,00,4e,00,\
  6f,00,74,00,65,00,70,00,61,00,64,00,2e,00,65,00,78,00,65,00,22,00,20,00,2f,\
  00,70,00,20,00,25,00,31,00,00,00
 
[HKEY_CLASSES_ROOT\VBSFile\ShellEx]
 
[HKEY_CLASSES_ROOT\VBSFile\ShellEx\DropHandler]
@="{60254CA5-953B-11CF-8C96-00AA00B8708C}"
 
[HKEY_CLASSES_ROOT\VBSFile\ShellEx\PropertySheetHandlers]
 
[HKEY_CLASSES_ROOT\VBSFile\ShellEx\PropertySheetHandlers\WSHProps]
@="{60254CA5-953B-11CF-8C96-00AA00B8708C}"

Δ [email me]

Δ Thursday, March 8th, 2012

Δ Parse a URL - Return Page Name

How to parse a URL; VBScript.

[download resource files]

Demo

This allows you to return only the page portion of the URL. In my example, nothing.html would be returned.

Δ [email me]

Δ Tuesday, March 6th, 2012

Δ Change Screensaver 3D Text

How to programmatically change text in a screensaver; registry key.

[download resource files]

Demo

Changing the DisplayString in this registry will allow you to change the 3D Screensaver text to
what you want. This could be used to change the text everyday to something new, perhaps a
quote or word of the day.

Δ [email me]

Δ Friday, March 2nd, 2012

Δ Testing Batch File Color Codes

How to accept input and change console colors; batch.

[download resource files]

Demo

Uses input from the set /p to change the text color in the console window.

Δ [email me]

Δ Thursday, March 1st, 2012

Δ Event Log to Text File

How to dump the event log into a text file; VBScript.

[download resource files]

This uses simple VBScript to grab the application event log and dump it into the c:\temp\events.txt
text file.

strComputer = "."
On error resume next

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

Set colEvents = objWMIService.ExecQuery _
    ("Select * from Win32_NTLogEvent Where LogFile='Application'")

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.CreateTextFile("C:\temp\Events.txt")

For Each objEvent in colEvents
on error resume next
    strTimeWritten = objEvent.TimeWritten

dtmTimeWritten = CDate(Mid(strTimeWritten, 5, 2) & "/" & _
        Mid(strTimeWritten, 7, 2) & "/" & Left(strTimeWritten, 4) _
            & " " & Mid (strTimeWritten, 9, 2) & ":" & _
                Mid(strTimeWritten, 11, 2) & ":" & Mid(strTimeWritten, 13, 2))

dtmDate = FormatDateTime(dtmTimeWritten, vbShortDate)
    dtmTime = FormatDateTime(dtmTimeWritten, vbLongTime)

strEvent = dtmDate & vbTab
    strEvent = strEvent & dtmTime & vbTab
    strEvent = strEvent & objEvent.SourceName & vbTab
    strEvent = strEvent & objEvent.Type & vbTab
    strEvent = strEvent & objEvent.Category & vbTab
    strEvent = strEvent & objEvent.EventCode & vbTab
    strEvent = strEvent & objEvent.User & vbTab
    strEvent = strEvent & objEvent.ComputerName & vbTab

strDescription = objEvent.Message
    If IsNull(strDescription) Then
	on error resume next
        'strDescription = "The event description cannot be found."
    End If
    strDescription = Replace(strDescription, vbCrLf, " ")
    strEvent = strEvent & strDescription

objFile.WriteLine strEvent
Next

objFile.Close

Δ [email me]

About

   I'm a Computer
   Systems Engineer

   Living and Loving Life

Author