Errore di caricamento dll

[Orione]

Ciao a tutti ho un errore strano. Di seguito posto il mio script

Option Explicit

'Global variables
Dim strComputer, objReg

strComputer = "." ' Can be changed to name of remote computer.

'Connect with WMI service and StdRegProv class.
Set objReg = GetObject("winmgmts:{impersonationLevel=impersonat e}!\\" & strComputer & "\root\default:StdRegProv")

'Delete from the registry the RunAs value, so use the launcher user
'XXXXX
DeleteValue objReg, "AppID\{B6EACB30-42D5-11d0-9517-0020AFAA4B3C}"
'YYYYY
DeleteValue objReg, "AppID\{A05BB6D6-2F8A-11D1-9BB0-080009D01446}"


'**************

Sub DeleteValue (ByRef objReg, strKeyPath)


'Local constants and variables
Const HKEY_CLASSES_ROOT = &H80000000
Const strValueName = "RunAs"
Dim strValue

Dim intReturn




intReturn = objReg.GetStringValue(HKEY_CLASSES_ROOT, strKeyPath, StrValuename, strValue)


If intReturn = 0 Then
intReturn = objReg.DeleteValue(HKEY_CLASSES_ROOT, strKeyPath, strValueName)
End If

End Sub

Precedentemente ho postato il mio file vbs che dovrebbe cancellarmi il valore della voce di registro se quest'ultima esiste ma quando arrivo al comando *** intReturn = objReg.GetStringValue(HKEY_CLASSES_ROOT, strKeyPath, StrValuename, strValue) ***

mi da il seguente errore:
Errore 800A0030 Impossibile caricare la dll

Qualcuno ha idee?
Ciao e grazie

[oregon]

Il computer di destinazione con quale sistema operativo lavora?

[Orione]

Ciao mi produce lo stesso errore sia su un computer con installato win 2000 sia su un computer con XP