This worked fine for me once I dropped the "Server." from the "Server.CreateObject".  Your vbs file should only have

Set conn = CreateObject("ADODB.Connection")

Set rs = CreateObject("ADODB.Recordset")

I also changed your lock enumerator from...

yes indeed it is and I found out the reason why the script wouldn't compile as well.  apparently a script can only be 3200 nvarcar and my script was over...

The code below generates the following error (where the field name plantext has a text data type):

"String or binary data would be truncated."

DECLARE @hash

I've tried converting it to a varchar(max) in 2005, but with no success as some of the data is lost as the string is truncated.