vbs file error with database...

[Jes|er]

I just started learning about database's, and downloaded a vbs file from the website of the book I'm learning from. But when I run the vbs file to connect(?) the mdf and ldf files I get an error:

ActiveX component cant create object. Can someone take a look at the code and see whats going on? Or maybe I didnt do something right....

When it talks about my "sa" password is that my XP logon pass?
Both files are in the same dir. I have access 2002, but Im not sure about sql.

'*********************************************************
' Purpose: Attaches the CD database to your SQL Server or 
'          MSDE Database. 
'
' Inputs:  Requires that CD.mdf and CD.ldf are in the same
'          folder and that the correct password for the "sa"
'          account is entered in this file.
'
' Result:  If Attach of DB succeeds, cd.mdf and cd.ldf will
'          not move, but they will be associated with your
'          local SQL or MSDE database
'*********************************************************

'Change this line if your "sa" account does not have
'a blank password.
Const SA_PASSWORD = ""

Dim sPath




sPath = Replace(WScript.ScriptFullName, WScript.ScriptName, "")

mdfPath = sPath & "cd.mdf"
ldfPath = sPath & "cd.ldf"

Dim fso

Set fso = CreateObject("Scripting.FileSystemObject")

If fso.FileExists(mdfPath) Then

	If fso.FileExists(ldfPath) Then

	   On Error Resume Next
  	   Dim oSvroot
   	   Set oSvroot = CreateObject("SQLDMO.SQLServer")
	   If Err.Number <> 0 Then
		WScript.Echo "Error: " & Err.Description
		WScript.Quit
	   End If

	   oSvroot.Connect "(local)", "sa", SA_PASSWORD

	   If Err.Number <> 0 Then
		WScript.Echo "Error: " & Err.Description
		WScript.Quit
	   End If

	   oSvroot.AttachDB "CD", "[" & mdfPath & "],[" & ldfPath & "]"

	   If Err.Number <> 0 Then
		WScript.Echo "Error: " & Err.Description
		WScript.Quit
	   Else
 	   	WScript.Echo "Attachment of CD database has completed successfully!"
	   End If

	Else

	   WScript.Echo "LDF File not found at " & ldfPath
	   WScript.Quit

	End If

Else

   Wscript.Echo "MDF File not found at " & mdfPath
   WScript.Quit

End If


WScript.Quit

AttachError:

	WScript.Echo "There has been an Error: " & Err.Description

	WScript.Quit