Scripting

Hi All,
I have been working on trying to fix my script but don't know how to output from the function.
My script finds a GUID from the registry and dumps the results to an MSIEXEC command.  I need to put it into a function so it can be called a number of times for different GUID's/applications.
Here is my script.  I'm don't normally do scripts but I have been asked to remove all versions of QuickTime and dependencies from all Corp machines.  If the function is removed and  a variable set as "strName = "QuickTime"" with references to MsiGuid removed and appropriate renaming to strName, the script works.  it might not be the best option, someone else pointed out I should be using stdregprov getstringvalue, but couldn't help out.
Could someone please have a look and help out.  Thanks

On Error Resume Next

Dim strName, WshShell, oReg, keyname

Const HKEY_LOCAL_MACHINE = &H80000002

Set WshShell = CreateObject("WScript.Shell")
Set oReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")

strKeyPath64 = "SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\"
strKeyPath32 = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\"

MsiGuid "QuickTime",""
MsiGuid "Apple Application Support",""
MsiGuid "Apple Mobile Device Support",""

Function  MsiGuid(keyname,subkey)

    oReg.EnumKey HKEY_LOCAL_MACHINE, strKeyPath32, arrSubKeys
    For Each subkey In arrSubKeys
        keyname = ""
        keyname = wshshell.RegRead("HKLM\" & strKeyPath32 & subkey & "\DisplayName")
        If keyname = MsiGuid Then
            MsiGuid = subkey
        End If
    Next
    If MsiGuid Then
        MsgBox "MSIEXEC.EXE /X " & MsiGuid & " /QB!"
        'WshShell.Run "MSIEXEC.EXE /X " & MsiGuid & " /QB!", 1, True
    End If

    oReg.EnumKey HKEY_LOCAL_MACHINE, strKeyPath64, arrSubKeys
    For Each subkey In arrSubKeys
        keyname = ""
        keyname = wshshell.RegRead("HKLM\" & strKeyPath64 & subkey & "\DisplayName")
        If keyname = MsiGuid Then
            MsiGuid = subkey
        End If
    Next
    If MsiGuid Then
        MsgBox "MSIEXEC.EXE /X " & MsiGuid & " /QB!"
        'WshShell.Run "MSIEXEC.EXE /X " & MsiGuid & " /QB!", 1, True
    End If

End Function

Option Explicit
Dim objWMIService, objItem, colItems, strComputer,  _
  objReg, strKeyPath, arrSubKeys, intDrive, _
  subkey, sValue1, sValue2, ret1, ret2, ret3, ret4, _
  colProcessList, SHL, retpop, colProcess, objProcess
' On Error Resume Next
strComputer = "."
intDrive = 0
Set SHL = CreateObject("WScript.Shell")
killQt()
'Constants
Const HKCU = &H80000001
Const HKLM = &H80000002
' WMI connection to Root CIM
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set objReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
'Get installed software
strKeyPath = "Software\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall" 
'Search the registry for PPC modules to remove
objReg.EnumKey HKLM, strKeyPath, arrSubKeys
For Each subkey In arrSubKeys
    ret1 = objReg.GetStringValue(HKLM, strKeyPath & "\" & subkey, "DisplayName", sValue1)
    ret1 = objReg.GetStringValue(HKLM, strKeyPath & "\" & subkey, "UninstallString", sValue2)
    
    if ret1=0 and ret2=0 Then
      'MsgBox(sValue1 & " : " & sValue2)    
      ret3 = InStr(sValue1, "QuickTime")
      
      if ret3>0 Then
        'For testing, leave these two MsgBox calls un-rem'd
        'MsgBox(sValue1)
        'MsgBox("msiexec.exe /x" & subkey & " /qn /norestart /log C:\Windows\KACE\uninstall\Quicktime.txt")
        SHL.Run "msiexec.exe /x" & subkey & " /qn /norestart /log C:\Windows\KACE\uninstall\Quicktime.txt", 1, True
      End If
    End If
Next
Sub killQt()
  Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\.\root\cimv2")
  
  Set colProcess = objWMIService.ExecQuery("Select * from Win32_Process Where Name = 'QuickTimePlayer.exe'")
  For Each objProcess in colProcess
  objProcess.Terminate()
  Next  
End Sub

Function MsiGuid(keyname,subkey)
    <snipped fluff out>
    If keyname = MsiGuid Then
            MsiGuid = subkey
    End If
End Function