Ayuda corregir error 429 en tiempo de ejecucion

Un saludo a todos:

Tengo un archivo que funcionada bien pero ahora cuando lo abro en otra
maquina me sale el siguiente mensaje
Se ha producido el error 429 en tiempo de ejecucion
El componente ActiveX no puede crear el objeto
La macro la utlizo en thisWorbook
Private Sub Workbook_Open()
Dim fs, d
Set fs = CreateObject("Scripting.FileSystemObject")
Set d = fs.GetDrive(fs.GetDriveName(fs.GetAbsolutePathName("c:\")))
If d.SerialNumber = 278527383 Or d.SerialNumber = 475192457 Then
Else
MsgBox "Esta PC No Tiene Permiso Para el Uso de Este Archivo",
vbCritical, "mensaje"
ThisWorkbook.Close SaveChanges:=False
End If
End Sub

Me podrian orientar por favor para corregir el error.
Agradezco de antemano sus comentarios.
Saludos