set WshShell = WScript.CreateObject("WScript.Shell")
strData1 = WshShell.RegRead ("HKCR\Basp21\CLSID\")
strData2 = WshShell.RegRead ("HKCR\CLSID\" & strData1 & "\InprocServer32\" )
Wscript.echo "CLSID = " & strData1 & vbCrLf & "InprocServer32 = " & strData2