mirror of
https://github.com/Arvanaghi/CheckPlease
synced 2026-06-08 10:25:16 +00:00
S3cur3Th1sSh1t
11 lines
173 B
Plaintext
11 lines
173 B
Plaintext
Sub CheckDomain()
|
|
On Error Resume Next
|
|
Set objRootDSE = GetObject("LDAP://RootDSE")
|
|
If Err.Number <> 0 Then
|
|
wscript.Quit
|
|
Else
|
|
MsgBox ("Evil")
|
|
End If
|
|
On Error GoTo 0
|
|
End Sub
|