Skip to content

Instantly share code, notes, and snippets.

@leftp
Created October 20, 2020 10:39
Show Gist options
  • Save leftp/2d0012ffd028c1f6f7509741b97a42d2 to your computer and use it in GitHub Desktop.
Save leftp/2d0012ffd028c1f6f7509741b97a42d2 to your computer and use it in GitHub Desktop.
WMI dns canary
Dim dnsname
dnsname= "canary.troubleshootdomain.com"
Set wmi = GetObject("winmgmts:")
Set response = wmi.ExecQuery("Select * from Win32_PingStatus WHERE address='" & dnsname & "'")
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment