AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |
Back to Blog
Ds for windows9/5/2023 ![]() If (strQueryType = "CNAME") And Not ( Instr(1, strStdOut, "canonical name =", 1) >= 1 ) Then StrIgnoredErr = strIgnoredErr & strTempLineĮlseIf strTempLine = "*** Can't find server name for address " & strServerName & ": Non-existent domain" Then If boolAcceptNonAuth And boolIsNonAuth Then StrTempLine = Replace(strTempLine, Chr(135), Chr(231)) StrTempLine = Replace(strTempLine, Chr(130), Chr(233)) ![]() StrTempLine = Replace(strTempLine, vbLf, "") StrTempLine = Replace(strTempLine, vbCr, "") Set objWshScriptExec = objShell.Exec(strCommand) StrCommand = "NSLookup.exe -timeout=" & CStr(intQueryTimeout) & " -querytype=" & strQueryType & " " & strHostName & " " & strServerName If (strHostName = "") Or (strServerName = "") ThenĮrrorMessage = "HostName and ServerName may not be blank" Received " & CStr(oArgs.Count)ĮrrorMessage = "Query Type must be A, CNAME, NS, PTR, or SOA"ĮrrorMessage = "AcceptNonAuthoritative must be TRUE or FALSE"īoolAcceptNonAuth = CBool(strAcceptNonAuth) Set objShell = CreateObject("WScript.Shell")ĮrrorMessage = "Expected 5 arguments. WmiQueryString = "SELECT EventLogLevel FROM MicrosoftDNS_Server"ĪrrNAStrings(0) = "R� ponse ne faisant pas autorit� :"ĪrrNAStrings(1) = "Nicht autorisierende Antwort:"ĪrrNAStrings(2) = "Respuesta no autoritativa:"ĪrrNAStrings(3) = "Risposta da un server non autorevole:"ĪrrNAStrings(4) = "Non-authoritative answer:"ĪrrNAStrings(5) = "Nao � resposta de autoriza� ao:" WmiNamespaceString = "winmgmts://./root/MicrosoftDNS" ![]() ' File: .NSLookup.DS.vbsĭim wmiNamespaceString, wmiQueryString, strCommand, strResult, ErrorMessage, ErrorNumber, strStdErr, strIgnoredErr, strStdOutĭim strQueryType, strHostName, strServerName, strAcceptNonAuth, intQueryTimeout, strTempLine, NAStringĭim boolAcceptNonAuth, boolQTypeValid, boolIgnoreNAValid, boolIsNonAuthĭim oArgs, objShell, objWshScriptExec, objStdOut, objStdErr ![]() ' Purpose: DNS Server DNS NSLookup DataSource ![]()
0 Comments
Read More
Leave a Reply. |