Archive - July 2012

"Excellence is the result of habitual integrity." - Lenny Bennett

Index

Simple Green LCD Clock
Apply Group Policy
IE Pop-up Countdown
Lava Lamp
Return Current User SID
ZTI BIOS Check
Automatically Rename Computer

List Windows 7 Updates
Replace Underscores In File Names
Scrollbar Feedback
IE Pop-up Yes-No
Fix PNG Error

Δ Tuesday, July 31st, 2012

Δ Simple Green LCD Clock

How to create a lcd clock

[download resource files]

Demo

By using Document.getElementbyId and by creating a show time function you can nicely
present a green LCD clock on your web page or in your packaged applications.

<script>
<!--

var alternate=0
var standardbrowser=!document.all&&!document.getElementById

if (standardbrowser)
document.write('<form name="tick"><input type="text" name="tock" size="6"></form>')

function show(){
if (!standardbrowser)
var clockobj=document.getElementById? document.getElementById("digitalclock") : document.all.digitalclock
var Digital=new Date()
var hours=Digital.getHours()
var minutes=Digital.getMinutes()
var dn="AM"

if (hours==12) dn="PM" 
if (hours>12){
dn="PM"
hours=hours-12
}
if (hours==0) hours=12
if (hours.toString().length==1)
hours="0"+hours
if (minutes<=9)
minutes="0"+minutes

if (standardbrowser){
if (alternate==0)
document.tick.tock.value=hours+" : "+minutes+" "+dn
else
document.tick.tock.value=hours+"   "+minutes+" "+dn
}
else{
if (alternate==0)
clockobj.innerHTML=hours+"<font color='lime'> : </font>"+minutes+" "+"<sup style='font-size:1px'>"+dn+"</sup>"
else
clockobj.innerHTML=hours+"<font color='black'> : </font>"+minutes+" "+"<sup style='font-size:1px'>"+dn+"</sup>"
}
alternate=(alternate==0)? 1 : 0
setTimeout("show()",1000)
}
window.onload=show

//-->
</script>

</body>
</html>

Δ [email me]

Δ Monday, July 30th, 2012

Δ Apply Group Policy

How to apply group policy via the comand line

[download resource files]

Have you ever needed to deploy a group policy setting to all your usesrs with using AD? Well,
this is how you do it. First do the export, so that you have the .inf. And then, you can script
the .inf to be imported automatically in a login script or a deployment package.

Δ [email me]

Δ Friday, July 27th, 2012

Δ IE Pop-up Countdown

How to create an IE pop-up

[download resource files]

Demo

Here is a nice and simple IE pop-up window that will countdown. A great way to interface
with end-users using an easy pop-up. This of course can be modified to add a lot more style
(using all web technologies).

Δ [email me]

Δ Wednesday, July 25th, 2012

Δ Lava Lamp

How to create your very own lava lamp

[download resource files]

Demo

This uses htmBody.Filters and arrays to build a simple blob like substance using only code,
creating your very own lava lamp. You can experiment with sizes, randomness, and color.

<HTML>
<HEAD>
<TITLE>LAVALAMP</TITLE> 
<HTA:APPLICATION 
APPLICATIONNAME="LAVALAMP" 
SINGLEINSTANCE="Yes" 
CONTEXTMENU="No" 
MAXIMIZEBUTTON="No" 
MINIMIZEBUTTON="No" 
BORDER="Thin" 
SELECTION="No" 
SCROLL="No"/>
</HEAD> 
 
<BODY ID="htmBody" STYLE="BackGround-Color:White;Filter:ProgID:DXImageTransform.Microsoft.Light"> 
<SCRIPT LANGUAGE="VBScript"> 
 
Option Explicit : Randomize Timer 
 
Dim BlobX(10), BlobY(10), BlobDX(10), BlobDY(10), intIndex 
 
Self.ResizeTo 300,600 : Self.MoveTo (Screen.Width/2)-150,(Screen.Height/2)-300 
 
For intIndex = 1 to 10 
 BlobX(intIndex) = Int(Rnd(1)*260)+20 : BlobY(intIndex) = Int(Rnd(1)*260)+280 
 BlobDY(intIndex) = -(Rnd(1)*1)-.4 : BlobDX(intIndex) = Rnd(1)*2-1 
 htmBody.Filters(0).AddPoint BlobX(intIndex),BlobY(intIndex), 1, 255,55,0, 100  
Next 
 
Window.SetInterval "Lavaloop", 30 
 
Sub Lavaloop 
 For intIndex = 1 to 10 
 BlobX(intIndex) = BlobX(intIndex) + BlobDX(intIndex)     
 BlobY(intIndex) = BlobY(intIndex) + BlobDY(intIndex) 
 If BlobX(intIndex) < 20 Or BlobX(intIndex) > 280 Then BlobDX(intIndex)=-BlobDX(intIndex) 
 If BlobY(intIndex) < 20 Or BlobY(intIndex) > 580 Then BlobDY(intIndex)=-BlobDY(intIndex) 
 htmBody.Filters(0).MoveLight intIndex-1, BlobX(intIndex), BlobY(intIndex), 60, True 
 Next 
End Sub 
</SCRIPT>
</BODY>
</HTML>

Δ [email me]

Δ Tuesday, July 24th, 2012

Δ Return Current User SID

How to return SID

[download resource files]

Demo

Sometimes there is need to run programs in the system account, example when you deploy
software using LANDesk, SCCM, etc. But what if your script needs to write to the current user
registry hive key? You would normally be out of luck. Except now, you can use this script to
return the logged on username, then do the translation from username to SID. Once you have
the SID, you can write directly to the Users registry hive key (via the SID). Looking something
like this: HKEY_USERS\S-1-5-21-4044905809-3024829031-2151773552-1000.

' Use custom error handling
On Error Resume Next

' Define constants and initialize variables
Const wbemFlagReturnImmediately = &h10
Const wbemFlagForwardOnly       = &h20
Const ForReading                = 1
Const ForWriting                = 2
Const ForAppending              = 8
strComputer = "."
strUserName = ""
strMsg      = vbCrLf

' Check "named" command line arguments (command line switches)
If WScript.Arguments.Named.Count > 0 Then
	Syntax( )
End If

' Check "unnamed" command line arguments
If WScript.Arguments.Unnamed.Count > 2 Then
	Syntax( )
Else
	For numArg = 0 To WScript.Arguments.Unnamed.Count - 1 Step 1
		If Left( Wscript.Arguments.Unnamed( numArg ), 2 ) = "\\" Then
			strComputer = Mid( Wscript.Arguments.Unnamed( numArg ), 3 )
		Else
			strUserName = Wscript.Arguments.Unnamed( numArg )
		End If
	Next
End If
If WScript.Arguments.Unnamed.Count = 2 Then
	If strComputer = "." Then
		Syntax( )
	End If
End If

' Abort if no user was specified for a remote computer
If Not strComputer = "." Then
	If strUserName = "" Then
		Syntax( )
	End If
End If

' Fill in logged on user's name if omitted
If strUserName = "" Then
	Set WshShell  = WScript.CreateObject( "WScript.Shell" )
	If Err.Number Then ShowError( )
	Set WshSysEnv = WshShell.Environment( "PROCESS" )
	If Err.Number Then ShowError( )
	strUserName   = WshSysEnv( "USERNAME" )
End If

Set objWMIService = GetObject( "winmgmts://" & strComputer & "/root/CIMV2" )
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_UserAccount", _
               "WQL", wbemFlagReturnImmediately + wbemFlagForwardOnly)
If Err.Number Then ShowError( )

For Each objItem In colItems
	If LCase( objItem.Name ) = LCase( strUserName ) Then
		strMsg = strMsg _
		       & "Name : " & objItem.Name & vbCrLf _
		       & "SID  : " & objItem.SID
	End If
Next

' Display the result
WScript.Echo strMsg

Sub ShowError( )
	strMsg = vbCrLf & "Error # " & Err.Number & vbCrLf _
	       & Err.Description & vbCrLf & vbCrLf
	Syntax( )
End Sub

Sub Syntax( )
	strMsg = strMsg & vbCrLf _
	       & "GetSID.vbs,  Version 1.00" & vbCrLf _
	       & "Retrieve Security ID for the specified user on any computer." & vbCrLf & vbCrLf _
	       & "Usage:  [ CSCRIPT ]  GETSID.VBS  [ username [ \\computername ] ]" & vbCrLf & vbCrLf _
	       & "Where:  " & Chr(34) & "username" & Chr(34) & "      is the optional user name (mandatory if computername" & vbCrLf _
	       & "                        is specified; default is the logged on user name)" & vbCrLf _
	       & "        " & Chr(34) & "computername" & Chr(34) & "  is the optional name of a remote computer (default" & vbCrLf _
	       & "                        is the local computer name)" & vbCrLf _
	       & vbCrLf _
	       & "Created with Microsoft's Scriptomatic 2.0 tool" & vbCrLf _
	       & "http://www.microsoft.com/downloads/details.aspx?" & vbCrLf _
	       & ""
	WScript.Echo strMsg
	WScript.Quit(1)
End Sub

Δ [email me]

Δ Tuesday, July 16th, 2012

Δ ZTI BIOS Check

How to check BIOS

[download resource files]

This script will retrieve the information required for populating the ZTIBIOSCheck.xml fields,
located in c:\deploymentshare\scripts\ of the MDT server. It's output is stored in a file in the same
directory as the script with the filename of the computer model.txt. This was done to accomodate
using this script with LANDesk/SCCM on multiple models of machines to differentiate the outputs.
This text file contains all of the necessary fields required for populating the information for a new
system. There is a template field at the top of the xml file that you can copy and populate with the
output data from this script. It is suggested that you update the BIOS to the latest version first before
running this script, as that will update the information acquired by this script.

' ***************************************************************************  
 Option Explicit  
   
' Define Objects  
 DIM FSO           : Set FSO           = CreateObject("Scripting.FileSystemObject")  
 DIM objFile       : Set objFile       = Nothing  
 DIM objHotfixFile : Set objHotfixFile = Nothing  
   
' Define Variables  
 DIM BIOS     : Set BIOS     = Nothing  
 DIM Computer : Set Computer = Nothing  
   
 For each Computer in GetObject("winmgmts:\\.\root\cimv2").InstancesOf("Win32_ComputerSystemProduct")  
      For each BIOS in GetObject("winmgmts:\\.\root\cimv2").InstancesOf("Win32_BIOS")  
           Set objFile = FSO.CreateTextFile(Trim(Computer.Name) & ".txt", True)  
           Set objHotfixFile = FSO.OpenTextFile(Trim(Computer.Name) & ".txt", 1,True)  
           objFile.WriteLine("Lookup Name:" & Chr(32) & Chr(60) & BIOS.Description & Chr(62))  
           objFile.WriteLine("Computer Manufacturer:" & Chr(32) & Chr(60) & Computer.Vendor & Chr(62))  
           objFile.WriteLine("Model:" & Chr(32) & Chr(60) & Computer.Name & Chr(62))  
           objFile.WriteLine("Date:" & Chr(32) & Chr(60) & BIOS.ReleaseDate & Chr(62))  
      next  
 next  
 
 objFile.Close  
 
' Cleanup  
 Set FSO           = Nothing  
 Set objFile       = Nothing  
 Set objHotfixFile = Nothing  
 Set BIOS          = Nothing  
 Set Computer      = Nothing

Δ [email me]

Δ Friday, July 13th, 2012

Δ Automatically Rename Computer

How to rename computer

[download resource files]

Accesses the required registry keys to change the computer name; it uses a randomized loop to
generate the name.

On Error Resume Next

On Error GoTo 0

set args = WScript.Arguments

Set strObj = WScript.CreateObject("WScript.Shell")
Dim args, strObj, strTitle,  RegKey2, RegKey3, RegKey4, RegKey5, RegKey6, strValue1, strValue2, strValue3, strValue4, strCharacter
Dim itemtype,num
Dim ScriptFile, myDestinationFile

num=args.count
if num<>0 then strCharacter=args.Item(0)

RegKey2 = "HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\ComputerName\ComputerName\"
RegKey3 = "HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Services\Tcpip\Parameters\"
RegKey4 = "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\ComputerName\ComputerName\"
RegKey5 = "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\"
RegKey6 = "HKEY_CURRENT_USER\Software\Microsoft\WindostrObj\CurrentVersion\Run\"

strValue1 = strObj.RegRead(RegKey2 & "ComputerName")
strValue2 = strObj.RegRead(RegKey3 & "NV Hostname")
strValue3 = strObj.RegRead(RegKey4 & "ComputerName")
strValue4 = strObj.RegRead(RegKey5 & "NV Hostname")

strTitle = "Auto Rename Utility"
if num=0 then
  do
    Randomize
     strCharacter = Rnd()
  loop while strCharacter=""
end if

If strCharacter <> "" Then
strObj.RegWrite RegKey2 & "ComputerName", strCharacter
strObj.RegWrite RegKey3 & "NV Hostname", strCharacter
strObj.RegWrite RegKey4 & "ComputerName", strCharacter
strObj.RegWrite RegKey5 & "NV Hostname", strCharacter
strObj.RegWrite RegKey6 & "ChangeComputerName", "C:\Windows\AutoChangeComputerName.vbs"
End If

set ScriptFile = CreateObject ("Scripting.FileSystemObject")
set myDestinationFile = ScriptFile.GetFile("ChangeComputerName.vbs")
myDestinationFile.Copy("C:\Windows\AutoChangeComputerName.vbs")

Δ [email me]

Δ Wednesday, July 11th, 2012

Δ List Windows 7 Updates

How to list updates

[download resource files]

Demo

This is a simple script that uses WMI to query the installed updates.

'*******************************************************************************  
 '  
 ' Description: This will output a list of all installed updates to a csv file  
 '*******************************************************************************  
 ' Define Local Variables  
 DIM strComputer : strComputer = "."  
    
 ' Define Local Objects  
 DIM FSO           : Set FSO = CreateObject("Scripting.FileSystemObject")  
 DIM objFile       : Set objFile = FSO.CreateTextFile("Updates.csv", True)  
 DIM objHotfixFile : Set objHotfixFile = FSO.OpenTextFile("Updates.csv", 1,True)  
 DIM objWMIService : Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" _  
                     & strComputer & "\root\cimv2")  
 DIM colQuickFixes : Set colQuickFixes = objWMIService.ExecQuery _  
                     ("Select * from Win32_QuickFixEngineering")  
   
    
 For Each objQuickFix in colQuickFixes  
      objFile.WriteLine(objQuickFix.Description & Chr(44) & objQuickFix.HotFixID)  
 Next  
 Wscript.Echo "Done"  
 objFile.Close  
   
 ' Cleanup Local Objects and Variables  
 Set colQuickFixes = Nothing  
 Set FSO           = Nothing  
 Set objFile       = Nothing  
 Set objHotfixFile = Nothing  
 Set objWMIService = Nothing

Δ [email me]

Δ Monday, July 9th, 2012

Δ Replace Underscores In File Names

How to replace characters

[download resource files]

Demo

Uses the Instr to replace underscores with a space.

Δ [email me]

Δ Thursday, July 5th, 2012

Δ Scrollbar Feedback

How to get feedback from a scrollbar

[download resource files]

Demo

Uses style scroll and hidden along with Document.Title to provide you with feedback from the scrollbar.

Δ [email me]

Δ Tuesday, July 3rd, 2012

Δ IE Pop-up Yes-No

How to ask yes or no

[download resource files]

Demo

Have you ever needed to get Yes or No from the end-suer and place it within fields? That's
exactly what this does using pop-ups. You could then use this information to change
available options or features.

<html>
<head>
 <title>window-ontop</title>

function YesNoCancel(BodyText,EventHandler)
  {
     var Buttons=''; 
    Buttons = '<a href=javascript:CloseForm("Yes");>Yes</a>  ';
     Buttons += '<a href=javascript:CloseForm("No");>No</a>  ';
     Buttons += '<a href=javascript:CloseForm("Cancel");>Cancel</a>  ';
     ontopDialogShow("Dialog",BodyText,Buttons,EventHandler);
  }
 
 function YesNoMaybe(BodyText,EventHandler)
  {
     var Buttons=''; 
     Buttons = '<a href=javascript:CloseForm("Yes");>Yes</a>  ';
     Buttons += '<a href=javascript:CloseForm("No");>No</a>  ';
     Buttons += '<a href=javascript:CloseForm("Maybe");>Maybe</a>  ';
     ontopDialogShow("Dialog",BodyText,Buttons,EventHandler);
  }

function YesNoCancelReturnMethod()
 {
   document.getElementById('ontopreturn1').value =  ontopDialog.value;
   ontopDialogRemoveWatch();
 }
 
function YesNoMaybeReturnMethod()
 {
    document.getElementById('ontopreturn2').value = ontopDialog.value;
    ontopDialogRemoveWatch();
 }
 
</script>
 </head>
 
 <BODY >
 
 <table border=1 cellpadding=2 cellspacing=2 align=center width="60%">
    <tr><td align=left></td></tr>
    <tr><td align=left></td></tr>
    <tr><td align=left></td></tr>
    <tr>
      <td align=left><a href="javascript:YesNoCancel('Yes, no, or cancel me','YesNoCancelReturnMethod()');">Show On Top Window #1</a>   
          1. <input type=text id=ontopreturn1 name=ontopreturn1 value=''></td>
     </tr>
    <tr>
      <td align=left><a href="javascript:YesNoMaybe('Yes, no, or maybe me','YesNoMaybeReturnMethod()');">Show On Top Window #2</a>   
         2. <input type=text id=ontopreturn2 name=ontopreturn2 value=''></td>
     </tr>

</table>
 
</BODY>
 </HTML>

Δ [email me]

Δ Monday, July 2nd, 2012

Δ Fix PNG Error

How to fix png image

[download resource files]

When you open a Web page, the .PNG images in that page may not be displayed. Instead,
a red X, or a placeholder, may appear in place of the images. However, all other image file
types may display correctly in Internet Explorer.

Windows Registry Editor Version 5.00

[HKEY_CLASSES_ROOT\.png]
@="pngfile"
"Content Type"="image/png"
"PerceivedType"="image"

[HKEY_CLASSES_ROOT\.png\PersistentHandler]
@="{098f2470-bae0-11cd-b579-08002b30bfeb}"

[HKEY_CLASSES_ROOT\pngfile]
@="PNG Image"
"EditFlags"=dword:00010000
"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,73,00,68,00,65,00,6c,00,6c,00,33,00,32,00,2e,00,64,00,6c,00,6c,\
  00,2c,00,2d,00,33,00,30,00,35,00,39,00,38,00,00,00
"ImageOptionFlags"=dword:00000003

[HKEY_CLASSES_ROOT\pngfile\CLSID]
@="{25336920-03F9-11cf-8FD0-00AA00686F13}"

[HKEY_CLASSES_ROOT\pngfile\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,69,00,6d,00,\
  61,00,67,00,65,00,72,00,65,00,73,00,2e,00,64,00,6c,00,6c,00,2c,00,2d,00,38,\
  00,33,00,00,00

[HKEY_CLASSES_ROOT\pngfile\shell]

[HKEY_CLASSES_ROOT\pngfile\shell\open]
"MuiVerb"=hex(2):40,00,25,00,50,00,72,00,6f,00,67,00,72,00,61,00,6d,00,46,00,\
  69,00,6c,00,65,00,73,00,25,00,5c,00,57,00,69,00,6e,00,64,00,6f,00,77,00,73,\
  00,20,00,50,00,68,00,6f,00,74,00,6f,00,20,00,47,00,61,00,6c,00,6c,00,65,00,\
  72,00,79,00,5c,00,70,00,68,00,6f,00,74,00,6f,00,76,00,69,00,65,00,77,00,65,\
  00,72,00,2e,00,64,00,6c,00,6c,00,2c,00,2d,00,33,00,30,00,34,00,33,00,00,00

[HKEY_CLASSES_ROOT\pngfile\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,72,00,75,00,\
  6e,00,64,00,6c,00,6c,00,33,00,32,00,2e,00,65,00,78,00,65,00,20,00,22,00,25,\
  00,50,00,72,00,6f,00,67,00,72,00,61,00,6d,00,46,00,69,00,6c,00,65,00,73,00,\
  25,00,5c,00,57,00,69,00,6e,00,64,00,6f,00,77,00,73,00,20,00,50,00,68,00,6f,\
  00,74,00,6f,00,20,00,47,00,61,00,6c,00,6c,00,65,00,72,00,79,00,5c,00,50,00,\
  68,00,6f,00,74,00,6f,00,56,00,69,00,65,00,77,00,65,00,72,00,2e,00,64,00,6c,\
  00,6c,00,22,00,2c,00,20,00,49,00,6d,00,61,00,67,00,65,00,56,00,69,00,65,00,\
  77,00,5f,00,46,00,75,00,6c,00,6c,00,73,00,63,00,72,00,65,00,65,00,6e,00,20,\
  00,25,00,31,00,00,00

[HKEY_CLASSES_ROOT\pngfile\shell\open\DropTarget]
"Clsid"="{FFE2A43C-56B9-4bf5-9A79-CC6D4285608A}"

[HKEY_CLASSES_ROOT\pngfile\shell\printto]

[HKEY_CLASSES_ROOT\pngfile\shell\printto\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,72,00,\
  75,00,6e,00,64,00,6c,00,6c,00,33,00,32,00,2e,00,65,00,78,00,65,00,22,00,20,\
  00,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,73,00,68,\
  00,69,00,6d,00,67,00,76,00,77,00,2e,00,64,00,6c,00,6c,00,22,00,2c,00,49,00,\
  6d,00,61,00,67,00,65,00,56,00,69,00,65,00,77,00,5f,00,50,00,72,00,69,00,6e,\
  00,74,00,54,00,6f,00,20,00,2f,00,70,00,74,00,20,00,22,00,25,00,31,00,22,00,\
  20,00,22,00,25,00,32,00,22,00,20,00,22,00,25,00,33,00,22,00,20,00,22,00,25,\
  00,34,00,22,00,00,00

[HKEY_CLASSES_ROOT\pngfile\shellex]

[-HKEY_LOCAL_MACHINE\SOFTWARE\Classes\MIME\Database\Content Type\image/x-png]

[HKEY_LOCAL_MACHINE\SOFTWARE\Classes\MIME\Database\Content Type\image/x-png]
"Extension"=".png"
"Image Filter CLSID"="{A3CCEDF7-2DE2-11D0-86F4-00A0C913F750}"

[HKEY_LOCAL_MACHINE\SOFTWARE\Classes\MIME\Database\Content Type\image/x-png\Bits]
"0"=hex:08,00,00,00,ff,ff,ff,ff,ff,ff,ff,ff,89,50,4e,47,0d,0a,1a,0a

[-HKEY_LOCAL_MACHINE\SOFTWARE\Classes\MIME\Database\Content Type\image/png]

[HKEY_LOCAL_MACHINE\SOFTWARE\Classes\MIME\Database\Content Type\image/png]
"Extension"=".png"
"Image Filter CLSID"="{A3CCEDF7-2DE2-11D0-86F4-00A0C913F750}"

[HKEY_LOCAL_MACHINE\SOFTWARE\Classes\MIME\Database\Content Type\image/png\Bits]
"0"=hex:08,00,00,00,ff,ff,ff,ff,ff,ff,ff,ff,89,50,4e,47,0d,0a,1a,0a

[HKEY_CLASSES_ROOT\CLSID\{A3CCEDF7-2DE2-11D0-86F4-00A0C913F750}]
@="CoPNGFilter Class"

[HKEY_CLASSES_ROOT\CLSID\{A3CCEDF7-2DE2-11D0-86F4-00A0C913F750}\InprocServer32]
@="C:\\Windows\\system32\\pngfilt.dll"
"ThreadingModel"="Both"

[HKEY_CLASSES_ROOT\CLSID\{A3CCEDF7-2DE2-11D0-86F4-00A0C913F750}\ProgID]
@="PNGFilter.CoPNGFilter.1"

[HKEY_CLASSES_ROOT\PNGFilter.CoPNGFilter.1]
@="CoPNGFilter Class"

[HKEY_CLASSES_ROOT\PNGFilter.CoPNGFilter.1\CLSID]
@="{A3CCEDF7-2DE2-11D0-86F4-00A0C913F750}"

[HKEY_CLASSES_ROOT\PNGFilter.CoPNGFilter]
@="CoPNGFilter Class"

[HKEY_CLASSES_ROOT\PNGFilter.CoPNGFilter\CLSID]
@="{A3CCEDF7-2DE2-11D0-86F4-00A0C913F750}"

Δ [email me]

About

   I'm a Computer
   Systems Engineer

   Living and Loving Life

Author