Create CheckDomain.vbs

2026-06-08 10:25:16 +00:00 · 2021-05-28 07:53:17 +02:00
parent a30eb0aac6
commit b7c4b3b987
1 changed files with 10 additions and 0 deletions
@@ -0,0 +1,10 @@
+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