Webspinner Tech Blog

Battling it out against the clock for the Google HTML5 Game Jam was a blast. The Google offices were, as always, totally legit. Good crowd showed up and team sizes were restricted so the teams were going in light and fast. Our team took a crack at upgrading the memblox app from the GTUG campout and decided to go with the effectgames.com game engine. Doing a full redesign I think helped us to focus on certain critical issues and stay on task with our feature set. Using the Game engine helped a lot to keep the cruft off the coders.

There was a pretty interesting bit of learning curve getting going with effect games but once we got it going things seemed to move along faster and the built in functionality helped us get features in quick. Our second day was short so we ended up leaving plenty of features on the cutting room floor but we were able to:

fix a large number of bugs from the original version
implement themes and theme changes

You can check it out at http://scubedgame.com and the team to thank for it was:

David Gregory
Estelle Weyle
Stacie Hibino
Perry Chow
Gabriel Hernandez

You ever get a question that just bugs you until you solve it every way you can think. Today I was asked to write in pseudo-code a short algorithm for determining if a string was a palindrome. I wrote ECMAScript like scrawl and short a couple of important things that I missed I basically made a working palindrome function. But then I got home and wanted t actually test my code so I did and these are what I came up with. If you know a better way of have a language implementation I would love to see it to have some fun:

// JavaScript
function pal(w){
 return w.split('').reverse().join('') == w;
}

#Python
def pal(w):
 return w == w[:-1]

I read a great joke on StackOverflow a while back and was reading again recently and thought I would share it here/store it here... whatever.

A man flying in a hot air balloon suddenly realizes he’s lost. He reduces height and spots a man down below. He lowers the balloon further and shouts to get directions, "Excuse me, can you tell me where I am?"

The man below says: "Yes. You're in a hot air balloon, hovering 30 feet above this field."

"You must work in Information Technology," says the balloonist.

"I do" replies the man. "How did you know?"

"Well," says the balloonist, "everything you have told me is technically correct, but It's of no use to anyone."

The man below replies, "You must work in management."

"I do," replies the balloonist, "But how'd you know?"

"Well", says the man, "you don’t know where you are, or where you’re going, you expect me to be able to help. You’re in the same position you were before we met, but now it’s my fault."

The key with appearance is just like programming UI. Encapsulate like elements using id and class tags within each html element. Once you have consistent content layout among the pages you can use simple css code to make things look good. It often helps to do a UI specification for your web pages.

For instance <p> tags will always contain Arial style fonts with size 10. All links will be #e33 if they are not being hovered(#3ee) or clicked(#fff). The background of the page will always be #eee. Colors, margins, fonts and borders all fall into such a specification but are not necessary. One trick you can use is find a Content Management Framework, like drupal or dotnetnuke, check out some themes for each of them and borrow and steal code from those to suit your needs.

Oh and of course at the top of each generated page put the style sheet attachment call:

  
    <link href="your_stylesheet.css" rel="stylesheet"/>
  

or place all style declarations in a generator to land inside a:

  
    <style>
      body{
        font-face: Arial;
      }
    </style>
  

if you are comfortable with a certain tools look and feel (I use Jira but you might use campfire) then look at how they do it and copy and paste the styles they are using. You will find it easier to use your own web documents when they match the other systems you use.

So I needed to use images in a simple navigation for a customer using Drupal 6.0. Custom theming in drupal is something I have not done a great deal of and my last experience with it was back in drupal 5. So here I am going to document the method I used to change the primary link stack over to images.

/themes/nameoftheme/images/page_title.png

is the method I am storing the image files in. I open up template.php and add the following code to it:

<?php
function imagemenu($linkset){
 foreach($linkset as $link){
  /*
  set image path to theme directory/images/page_title.png
  */
  $imgpath = base_path() . path_to_theme() . "/images/" . strtolower(str_replace(" ", "_", $link["title"])) . ".png";
  $hrefpath = base_path() . $link["href"];
  if (file_exists($_SERVER{'DOCUMENT_ROOT'} . $imgpath)){
   $imageout .= "";
  };
 };
 return $imageout;
};
?>

Then in the page.tpl.php file where the primary link navigation was going to appear I used the following code:

<?php if (isset($primary_links)) { ?><?php print imagemenu($primary_links)?><?php } ?>

it is crude but it working for the time being and has the added benefit of hiding pages that I do not currently have images for.

the Pragmatic Programmer by Andrew Hunt and David Thomas has often been referred to as an essential book to read for any programmer. I see it spoken of often on StackOverflow, and the methods and tips it covers are often considered among the most valuable gems of wisdom currently circulating the developer community.

I finally got a chance to pick this book up and give it a read, and it does not disappoint. With remarkable wit and plenty of entertaining anecdotes, I literally have not been able to put it down. My lovely wife Melanie and I picked it up during an outing to Walnut Creek.

I will try to come back and edit this post with information from the book as it strikes me.

Update 8/3/2010:

I cranked through the book in no time. Great fun reading it and all useful things to consider as a developer. I was happy to find a log of the advice was practices I had already figured out and started implementing on my own, though the insight on certain implementation methods was great. I have started seeing bookshelves of computer books in two different sets, those books that are Pragmatic Books and those that are not. I am now diving into Language Implementation Patterns by Terence Parr, not the same kind of read as the other book but definitely well written.

So this last week I have been Designing a Blogger theme as part of a larger project for my friend and ally Paul Kooiman and the process was actually really enjoyable. I was able to overcome some interesting technical hurdles, implement some fun doodads to enhance the nature of his blog and just generally outline what I think is a good approach to taking a Blogger Theme project on.

I first outlined the things we needed to accomplish:

• Had to look simple and elegant, Client provided some Blogs he liked
• Showcasing Photographic content, use jQuery and Lightbox to get a polished look
• Branding is all lowercase letters; orange, white, grey; match existing collateral

Next it was time to get a baseline and listen to some music. I grabbed the simple Blog theme, expanded the widgets in Edit HTML mode and copied the contents out to SciTE for editing. Ended up saving this file as an xml file which worked out for handing the work over to the client (Darjeeling Limited Soundtrack for most of this part).

Getting your head around the CSS in the blogger themes is a bit tricky because each blogger theme kind of makes it up as they go along. I needed to a way to easily see the changes I intended to make to the css, without the save/view process getting in the way. To solve this problem I first decided to get jQuery loaded up in the theme, and view it in the Google Chrome browser, which gives me handy developers toolset for testing CSS and JavaScript from a console.(Jamaroquai, Canned Heat)

To implement jQuery quickly in blogger put this in your blogger theme xml file and upload it.

<script src='http://ajax.googleapis.com/ajax/libs/jquery/1.4.2/jquery.min.js' type='text/javascript'/>

With this setup it was a straight forward trial and error process of utilizing jquery console selectors, for instance: Let us imagine I want to see what on the output page is affected by changing the date-header class, in the console I type $(".date-header").css("color","#f00") which will turn any text directly beneath that class bright red. This was awesome for finding all the css I wanted to include to just clean things up. For example try the following in your console:

$("#navbar").css("display","none")

So now you know the css to remove the navbar at the top.

Implementing the lightbox and custom images was a little less straight forward but was still pretty easy to achieve. First you need to determine where you will store your remote files, we needed to load a custom favicon, graphical header, javascript file, css file and all the images that go along the with the Lightbox Plugin. Once you know where everything is going to be, ftp it, set the locations on all href, src and other attributes you need. Use the same method from importing jQuery to import any other scripts and plugins you want. Make sure you do not add script tags before the </b:skin> tag.

note: You can change the header link (image) to point at your website by replacing expr:href='data.blog.homepageURL' with href='http://YOURADDRESS' in the header widget area.

I put all my document ready script at the bottom of the file, you don't have to but it made it easier to find. Anyway that is all for this post. Happy hacking.

Object hyperlinking - Wikipedia, the free encyclopedia

I got my invite today for Google Wave. Really neat! I have only gotten a couple of invites out that have resulted in people coming on. Anyway I already have a pretty good concept of the first couple of test uses for the product. First I know I need to plan next years vacation with my wife, so I was happy to find trippy available for the first post.

I was hanging around today and thinking about the qwerty problem. This mechanism was put in place to prevent typewriter jams, not much of a concern today. Today I propose a solution to the problem that enables to users used to the old way but flexibility for those living on the edge and creating the boundary. Each key or the entire keyboard surface is an LED touch interface. I prefer the first option to account for the tactile feel of pushing a key. Anyway the keys themselves are programmable and the led on the key will represent its new key assignment. This would allow users interested in creating a vowel break system or different layout without requiring a great deal of expenditure. If the software for this were released as an open source project with the purpose of devising the most effective keyboard implementation for future word input interfaces, we could expect to devise a more efficient system in just a few weeks and potentially affirm a new industry standard within a year.

I have the bug. It took me in the early evening and carried me through the next few days of heated investigation and discovery. Bouts of doubt and contemplation dotted a vast plain of consumption and digestion. Google had released its much awaited and touted open source project Chromium OS.

First I got my VirtualBox fired up and installed the image from gdgt and poked around feverishly to see what it was, what it does, and maybe most importantly why. This last point caught me unprepared. This was not my computing experience, this was not something I would use in 80% of my computer work as it is right now. I am a programmer, web application developer, graphic designer... how was I going to take advantage of this experience.

The reviewers had posted opinions ranging from the utopian to the disgusted. I was left baffled, reaching in the dark for answers and being forced to evaluate myself and my reliance on the PC experience of yore. What I soon discovered is that this was exactly what I had been wanting; for every other user in the world. It became clear to me that there has been a class based society sitting on the PC world from the beginning and google chrome set the lords and the vassals distinctly apart.

This new paradigm, the browsing experience model was brilliant for users eager to consume web applications, social networks and content. This is the PC for the masses. It is light, fast, and secure. You don't have to know what you don't know to stay protected and connected. This changes everything.

And where chrome is the village for the peasantry, the classic PC will become the Castles of the Land Owners. I see now a change for we the developers, the content providers, the makers of worlds that I have hoped for all my life. Where chrome lives on the cloud, the classic PC will become the cloud. The desktop PC must evolve into the server, the broadband connection no longer relegated to downloading but to serving up our constructions.

In turn this will result in services offering desktop like access to our castles via the chrome interface. Development will be done remotely on thin clients and compiled and published from any access point. Local will become a geographical statement once again and data will become simultaneously free and contained.

One immediately recognized reality is that linux is more suited for this transition than either Mac or Windows. The playing field will be leveled by this. Power users and creators will still get the castle of their preference, but they will act as beacons of power and community for the satellite chromebooks.

I also noted the number of people arguing against chrome for its absence of desktop applications, some for their graphics applications (photoshop), others for their business software. I use aviary.com now for most of my graphics work, and it works beautifully on chrome (though the screen resolution could do with a boost). Business software has been evolving rapidly online with big hitters like salesforce.com and microsoft bringing their applications to the ASP space. Maybe I am blind but I don't see the argument as very valid.

For me as a web application developer, the future is bright.

My boss was hounding me about why he had to have multiple usernames for our different DNN portals (we have one for Customer Support, one for Sales and one for Intranet purposes). By default DNN didn't allow me to create users for those portals with identical user names. So after playing with the data a bit I figured out a way and wanted to share it with you and keep it here in case I need to do it again and forget how.

First we need to understand the fundamental underpinnings of the Users structure inside the database. We will be using the Host SQL tab to perform data manipulation so make sure you have the database backed up before attempting these hacks.

So User permissions are basically set in three tables:

1. Users
2. UserPortals
3. UserRoles

These are all important tables to keep consistent. So lets say you have user 'foo' in the Users table, his record would be something like this:

UserID	Username	FirstName	LastName	IsSuperUser	AffiliateId	Email	DisplayName	UpdatePassword
1	foo	Foo	Bar			foo@bar.com	Foo Bar

You could get access to this record to see it in this state by passing the SQL query:

SELECT * FROM Users WHERE Username = 'foo'

So now lets say that you have another portal where foo also needs access and you have set him up another user for that portal called foo2:

UserID	Username	FirstName	LastName	IsSuperUser	AffiliateId	Email	DisplayName	UpdatePassword
1	foo	Foo	Bar			foo@bar.com	Foo Bar
2	foo2	Foo	Bar			foo@bar.com	Foo Bar

As you can see these are essentially identical users but DNN will not let you log into portal 1 with user 2 or into portal 2 with user 1. The secret here is UserPortals. First determine what user is assigned to which portal. To do this will use the SQL statement:

SELECT * FROM Users INNER JOIN UserPortals ON Users.UserID = UserPortals.UserID WHERE Email = 'foo@bar.com'

Now notice that since the usernames are not the same, the ticket was to use a field where they match and since email is the usual suspect I decided to use that. The results of that query would look something like this:

UserID	Username	FirstName	LastName	IsSuperUser	AffiliateId	Email	DisplayName	UpdatePassword	UserId1	PortalId	UserPortalId	CreatedDate	Authorised
5	foo	Foo	Bar			foo@bar.com	Foo Bar		5	3	4	11/11/2009 9:54:51 PM
6	foo2	Foo	Bar			foo@bar.com	Foo Bar		6	4	5	11/11/2009 9:56:05 PM

Ok so now we know which portals are for which user, next lets also get the roles, because the roles are different for each portal. So we add to the above SQL statement:

SELECT * FROM Users INNER JOIN UserPortals ON Users.UserID = UserPortals.UserID INNER JOIN UserRoles ON Users.UserID = UserRoles.UserID WHERE Email = 'foo@bar.com'

Which yields us:

UserID	Username	FirstName	LastName	IsSuperUser	AffiliateId	Email	DisplayName	UpdatePassword	UserId1	PortalId	UserPortalId	CreatedDate	Authorised	UserRoleID	UserID2	RoleID	ExpiryDate	IsTrialUsed	EffectiveDate
5	foo	Foo	Bar			foo@bar.com	Foo Bar		5	3	4	11/11/2009 9:54:51 PM		9	5	7
5	foo	Foo	Bar			foo@bar.com	Foo Bar		5	3	4	11/11/2009 9:54:51 PM		10	5	8
5	foo	Foo	Bar			foo@bar.com	Foo Bar		5	3	4	11/11/2009 9:54:51 PM		11	5	6
6	foo2	Foo	Bar			foo@bar.com	Foo Bar		6	4	5	11/11/2009 9:56:05 PM		12	6	10
6	foo2	Foo	Bar			foo@bar.com	Foo Bar		6	4	5	11/11/2009 9:56:05 PM		13	6	11
6	foo2	Foo	Bar			foo@bar.com	Foo Bar		6	4	5	11/11/2009 9:56:05 PM		14	6	9

Ok so there is a lot going on now. Clearly these users are both administrators of their respective sites, now we just need to trim it down to one user, we will use UserID 5 since that is 'foo'. The SQL statement for this would be:

UPDATE UserPortals SET UserID = 5 WHERE UserID = 6;
UPDATE UserRoles Set UserID = 5 WHERE UserID = 6;
DELETE FROM Users WHERE UserID = 6;
SELECT * FROM Users INNER JOIN UserPortals ON Users.UserID = UserPortals.UserID INNER JOIN UserRoles ON Users.UserID = UserRoles.UserID WHERE Email = 'foo@bar.com'

This yields us the following result:

UserID	Username	FirstName	LastName	IsSuperUser	AffiliateId	Email	DisplayName	UpdatePassword	UserId1	PortalId	UserPortalId	CreatedDate	Authorised	UserRoleID	UserID2	RoleID	ExpiryDate	IsTrialUsed	EffectiveDate
5	foo	Foo	Bar			foo@bar.com	Foo Bar		5	3	4	11/11/2009 9:54:51 PM		9	5	7
5	foo	Foo	Bar			foo@bar.com	Foo Bar		5	4	5	11/11/2009 9:56:05 PM		9	5	7
5	foo	Foo	Bar			foo@bar.com	Foo Bar		5	3	4	11/11/2009 9:54:51 PM		10	5	8
5	foo	Foo	Bar			foo@bar.com	Foo Bar		5	4	5	11/11/2009 9:56:05 PM		10	5	8
5	foo	Foo	Bar			foo@bar.com	Foo Bar		5	3	4	11/11/2009 9:54:51 PM		11	5	6
5	foo	Foo	Bar			foo@bar.com	Foo Bar		5	4	5	11/11/2009 9:56:05 PM		11	5	6
5	foo	Foo	Bar			foo@bar.com	Foo Bar		5	3	4	11/11/2009 9:54:51 PM		12	5	10
5	foo	Foo	Bar			foo@bar.com	Foo Bar		5	4	5	11/11/2009 9:56:05 PM		12	5	10
5	foo	Foo	Bar			foo@bar.com	Foo Bar		5	3	4	11/11/2009 9:54:51 PM		13	5	11
5	foo	Foo	Bar			foo@bar.com	Foo Bar		5	4	5	11/11/2009 9:56:05 PM		13	5	11
5	foo	Foo	Bar			foo@bar.com	Foo Bar		5	3	4	11/11/2009 9:54:51 PM		14	5	9
5	foo	Foo	Bar			foo@bar.com	Foo Bar		5	4	5	11/11/2009 9:56:05 PM		14	5	9

as you can see, user foo2 has been deleted entirely and if you log into either site with foo you will have the permissions of foo and foo2 from before the hack.

Hope this helps some people out there make sense of their DNN user issues.

REF

Here's the helper function courtesy of Simon Willison:

function addLoadEvent(func)
{ var oldonload = window.onload;
  if (typeof window.onload != 'function')
  { window.onload = func; }
  else
  { window.onload = function()
    { oldonload();
      func();
    }
  }
}

To use the helper, call it with the name of our target function:

addLoadEvent(msgPgLoaded);

Now our 'msgPgLoaded' function will not fire until the page is fully loaded. Perfect!

REF

Const ForReading = 1

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objOutputFile = objFSO.CreateTextFile("output.txt")

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

Set FileList = objWMIService.ExecQuery _
    ("ASSOCIATORS OF {Win32_Directory.Name='C:\Logs'} Where " _
        & "ResultClass = CIM_DataFile")

For Each objFile In FileList
    Set objTextFile = objFSO.OpenTextFile(objFile.Name, ForReading) 
    strText = objTextFile.ReadAll
    objTextFile.Close
    objOutputFile.WriteLine strText
Next

objOutputFile.Close

From REF

' Full Computer Name
' can be found by right-clicking My Computer,
' then click Properties, then click the Computer Name tab)
' or use the computer's IP address
strComputer = "FullComputerName" 
strDomain = "DOMAIN" 
Wscript.StdOut.Write "Please enter your user name:"
strUser = Wscript.StdIn.ReadLine 
Set objPassword = CreateObject("ScriptPW.Password")
Wscript.StdOut.Write "Please enter your password:"
strPassword = objPassword.GetPassword()
 
Set objSWbemLocator = CreateObject("WbemScripting.SWbemLocator")
Set objSWbemServices = objSWbemLocator.ConnectServer(strComputer, _
    "root\cimv2", _
     strUser, _
     strPassword, _
     "MS_409", _
     "ntlmdomain:" + strDomain)
Set colSwbemObjectSet = _
    objSWbemServices.ExecQuery("Select * From Win32_Process")
For Each objProcess in colSWbemObjectSet
    Wscript.Echo "Process Name: " & objProcess.Name 
Next

Sniped from REF

    Function URLDecode(str) 
        str = Replace(str, "+", " ") 
        For i = 1 To Len(str) 
            sT = Mid(str, i, 1) 
            If sT = "%" Then 
                If i+2 < Len(str) Then 
                    sR = sR & _ 
                        Chr(CLng("&H" & Mid(str, i+1, 2))) 
                    i = i+2 
                End If 
            Else 
                sR = sR & sT 
            End If 
        Next 
        URLDecode = sR 
    End Function 

Jerold SchulmanREF

Set oShell = CreateObject( "WScript.Shell" )
user=oShell.ExpandEnvironmentStrings("%UserName%")
comp=oShell.ExpandEnvironmentStrings("%ComputerName%")
WScript.Echo user & " " & comp

This is a repost of Jerold Schulman's article on Windowsitpro.com: REF

MakeDir.vbs contains:

dim objArguments, Obj
Set objArguments = Wscript.Arguments
If WScript.Arguments.Count = 0 then
 Wscript.Echo "Syntax: cscript //nologo MakeDir.vbs FolderPath"
 Wscript.Quit
End If
Obj = objArguments(0)
X = MakeDir(Obj)
Wscript.Quit
Function MakeDir (strPath)
Dim strParentPath, objFSO
Set objFSO = CreateObject("Scripting.FileSystemObject")
On Error Resume Next
strParentPath = objFSO.GetParentFolderName(strPath)

If Not objFSO.FolderExists(strParentPath) Then MakeDir strParentPath
If Not objFSO.FolderExists(strPath) Then objFSO.CreateFolder strPath
On Error Goto 0
MakeDir = objFSO.FolderExists(strPath)
End Function

I have compiled a list of the numbers and description of possible VBScript Error codes so I can use them later for more accurate error handling.

5: Invalid procedure call or argument
6: Overflow
7: Out of memory
9: Subscript out of range
10: This array is fixed or temporarily locked
11: Division by zero
13: Type mismatch
14: Out of string space
17: Can't perform requested operation
28: Out of stack space
35: Sub or Function not defined
48: Error in loading DLL
51: Internal error
52: Bad file name or number
53: File not found
54: Bad file mode
55: File already open
57: Device I/O error
58: File already exists
61: Disk full
62: Input past end of file
67: Too many files
68: Device unavailable
70: Permission denied
71: Disk not ready
74: Can't rename with different drive
75: Path/File access error
76: Path not found
91: Object variable not set
92: For loop not initialized
94: Invalid use of Null
322: Can't create necessary temporary file
424: Object required
429: ActiveX component can't create object
430: Class doesn't support Automation
432: File name or class name not found during Automation operation
438: Object doesn't support this property or method
440: Automation error
445: Object doesn't support this action
446: Object doesn't support named arguments
447: Object doesn't support current locale setting
448: Named argument not found
449: Argument not optional
450: Wrong number of arguments or invalid property assignment
451: Object not a collection
453: Specified DLL function not found
455: Code resource lock error
457: This key is already associated with an element of this collection
458: Variable uses an Automation type not supported in VBScript
462: The remote server machine does not exist or is unavailable
481: Invalid picture
500: Variable is undefined
501: Illegal assignment
502: Object not safe for scripting
503: Object not safe for initializing
504: Object not safe for creating
505: Invalid or unqualified reference
506: Class not defined
507: An exception occurred
1001: Out of memory
1002: Syntax error
1003: Expected ':'
1005: Expected '('
1006: Expected ')'
1007: Expected ']'
1010: Expected identifier
1011: Expected '='
1012: Expected 'If'
1013: Expected 'To'
1014: Expected 'End'
1015: Expected 'Function'
1016: Expected 'Sub'
1017: Expected 'Then'
1018: Expected 'Wend'
1019: Expected 'Loop'
1020: Expected 'Next'
1021: Expected 'Case'
1022: Expected 'Select'
1023: Expected expression
1024: Expected statement
1025: Expected end of statement
1026: Expected integer constant
1027: Expected 'While' or 'Until'
1028: Expected 'While', 'Until' or end of statement
1029: Expected 'With'
1030: Identifier too long
1031: Invalid number
1032: Invalid character
1033: Unterminated string constant
1034: Unterminated comment
1037: Invalid use of 'Me' keyword
1038: 'loop' without 'do'
1039: Invalid 'exit' statement
1040: Invalid 'for' loop control variable
1041: Name redefined
1042: Must be first statement on the line
1043: Cannot assign to non-ByVal argument
1044: Cannot use parentheses when calling a Sub
1045: Expected literal constant
1046: Expected 'In'
1047: Expected 'Class'
1048: Must be defined inside a Class
1049: Expected Let or Set or Get in property declaration
1050: Expected 'Property'
1051: Number of arguments must be consistent across properties specification
1052: Cannot have multiple default property/method in a Class
1053: Class initialize or terminate do not have arguments
1054: Property set or let must have at least one argument
1055: Unexpected 'Next'
1056: 'Default' can be specified only on 'Property' or 'Function' or 'Sub'
1057: 'Default' specification must also specify 'Public'
1058: 'Default' specification can only be on Property Get
4096: Microsoft VBScript compilation error
4097: Microsoft VBScript runtime error
5016: Regular Expression object expected
5017: Syntax error in regular expression
5018: Unexpected quantifier
5019: Expected ']' in regular expression
5020: Expected ')' in regular expression
5021: Invalid range in character set
30000: EN
32766: True
32767: False
32768: OK
32769: Cancel
32770: Help
32811: Element not found
32812: The specified date is not available in the current locale's calendar

I wrote a script to produce this list, it can be run from command line as

errout.vbs [count] [fileoutput]

count is the highest error you want to check (I verified up to 40000) and fileoutput is where you want the values stored on disk. The file will be overwritten so careful.

errout.vbs:

On Error Resume Next

Dim args : Set args = WScript.Arguments
Dim count : count = args(0)
Dim flout : flout = args(1)
Dim strValue : strValue = ""
Dim objFSO : Set objFSO = CreateObject("Scripting.FileSystemObject")
Dim objTXT : Set objTXT = objFSO.CreateTextFile(flout, True)
Dim i : i = 0

For i = 1 to count
strValue = ""
Err.Raise i
If Not Err.Description = "Unknown runtime error" Then
  strValue = Err.Number & ": " & Err.Description
  objTXT.WriteLine strValue
End If
Err.Clear
Next

objTXT.Close
Set objTXT  = Nothing
Set objFSO = Nothing