Scripting

Hi,

I have created a VBS which does the following,

Checks for a HKCU key, i its there, delete it, then checks if a patch is installed, if not there install the patch. However after these 2 functions i need to delete a shortcut on the desktop and add another registry key, I tried running a batch file which is called by the same script but it doesnt run. The shortcuts are created by the MSP install so im assuming, the action to delete the shortcut is done before even the shortcuts are there....is there anyway I can make this work? the one in bold is not working

On Error Resume Next
Const HKEY_CURRENT_USER = &H80000001

Dim sPath, LRC, wshShell, wshNetwork, wmiLocator, wmiNameSpace, objRegistry, strCmd, myRun, strCurrentDir
Set wshShell = WScript.CreateObject ("WScript.Shell")
Set wshNetwork = CreateObject("WScript.Network")
Set wmiLocator = CreateObject("WbemScripting.SWbemLocator")
Set wmiNameSpace = wmiLocator.ConnectServer(wshNetwork.ComputerName, "root\default")
Set objRegistry = wmiNameSpace.Get("StdRegProv")

sPath = "SOFTWARE\IXOS\IXOS_ARCHIVE\CWin\DesktopLink\NA_R3_620"
lRC = DeleteRegEntry(HKEY_CURRENT_USER, sPath)
WScript.Sleep 100

Function DeleteRegEntry(sHive, sEnumPath)
Dim sNames, sKeyName
lRC = objRegistry.DeleteKey(sHive, sEnumPath)
If (lRC <> 0) Then
On Error Resume Next
lRC = objRegistry.EnumKey(HKEY_CURRENT_USER, sEnumPath, sNames)

For Each sKeyName In sNames
If Err.Number <> 0 Then Exit For
lRC = DeleteRegEntry(sHive, sEnumPath & "\" & sKeyName)
Next

On Error Goto 0
lRC = objRegistry.DeleteKey(sHive, sEnumPath)
End If
End Function

On Error Resume Next

strCurrentDir = Left(Wscript.ScriptFullName, (InstrRev(Wscript.ScriptFullName, "\") -1))
If RegistryValueExists("HKLM","Software\Microsoft\Windows\CurrentVersion\Uninstall\{96538711-469D-4B19-B2F3-F1E49F4A9E0E}","Comments") Then
strCmd = "msiexec.exe /update " & chr(34) & strCurrentDir & "\Config\VU095-052.msp" & chr(34) &_
"REBOOT=ReallySuppress /l*v c:\wdgt.log /qb-!"
myRun = WshShell.run(strCmd,0,True)
End If
WScript.Quit


Function RegistryValueExists(LNGHKEY, strKeyPath, strValueName)

On Error Resume Next

Const HKLM = &H80000002
Const HKCR = &H80000000
Const HKCU = &H80000001
Const HKUSERS = &H80000003
RegistryValueExists = False

Dim hkRoot, strValue, stdOut, oReg

If LNGHKEY = "HKLM" Then hkRoot = HKLM
If LNGHKEY = "HKCU" Then hkRoot = HKCU
If LNGHKEY = "HKCR" Then hkRoot = HKCR
If LNGHKEY = "HKUSERS" Then hkRoot = HKUSERS

Set StdOut = WScript.StdOut
Set oReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
oReg.GetStringValue hkroot,strKeyPath,strValueName,strValue

If strValue <> "Patch VU095-052 is installed" Then
RegistryValueExists = True
End If
End Function

On Error Resume Next
Set sho = Wscript.CreateObject("Wscript.Shell")
strCurrentDir = Left(Wscript.ScriptFullName, (InstrRev(Wscript.ScriptFullName, "\") -1))
strCommand = "cmd.exe /c " & chr(34) & strCurrentDir & "\DeleteShortcuts.bat"
intRet = sho.run(strCommand,0,True)
wscript.quit(intRet)