{"id":2864,"date":"2010-10-04T13:09:08","date_gmt":"2010-10-04T17:09:08","guid":{"rendered":"http:\/\/nuxx.net\/blog\/?p=2864"},"modified":"2010-10-12T23:05:28","modified_gmt":"2010-10-13T03:05:28","slug":"vbscript-function-to-check-active-directory-domain-access","status":"publish","type":"post","link":"https:\/\/nuxx.net\/blog\/2010\/10\/04\/vbscript-function-to-check-active-directory-domain-access\/","title":{"rendered":"VBScript Function to Check Active Directory Domain Access"},"content":{"rendered":"

The following VBScript<\/a> function can be used to check if a given username and password has access to the specified domain. It will return true or false depending on whether or not access was granted.<\/p>\n

function fnCheckAccess(strDomain, strUserID, strUserPWD)<\/tt>
\n <\/tt>
\n    const ADS_SECURE_AUTHENTICATION = &H01<\/tt>
\n    const ADS_CHASE_REFERRALS_ALWAYS = &H60<\/tt>
\n <\/tt>
\n    dim objDSO<\/tt>
\n    dim objUser<\/tt>
\n    dim strPath<\/tt>
\n <\/tt>
\n    strPath = \"LDAP:\/\/\" & strDomain<\/tt>
\n <\/tt>
\n    On Error Resume Next<\/tt>
\n    set objDSO = GetObject(\"LDAP:\")<\/tt>
\n    set objUser = objDSO.OpenDSObject(strPath, strUserID, strUserPWD, ADS_SECURE_AUTHENTICATION OR ADS_CHASE_REFERRALS_ALWAYS)<\/tt>
\n    if Err.Number <> 0 then<\/tt>
\n        fnCheckAccess = False<\/tt>
\n    else<\/tt>
\n        fnCheckAccess = True<\/tt>
\n    end if<\/tt>
\n    Err.Clear<\/tt>
\n    On Error Goto 0<\/tt>
\n <\/tt>
\n    set objDSO = Nothing<\/tt>
\n    set objUser = Nothing<\/tt>
\n <\/tt>
\nend function<\/tt><\/p>\n","protected":false},"excerpt":{"rendered":"

The following VBScript function can be used to check if a given username and password has access to the specified domain. It will return true…<\/p>\n

Continue readingVBScript Function to Check Active Directory Domain Access<\/span><\/a><\/div>\n","protected":false},"author":2,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[13,11],"tags":[],"class_list":["post-2864","post","type-post","status-publish","format-standard","hentry","category-computers","category-making-things","entry"],"amp_enabled":true,"_links":{"self":[{"href":"https:\/\/nuxx.net\/blog\/wp-json\/wp\/v2\/posts\/2864","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/nuxx.net\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/nuxx.net\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/nuxx.net\/blog\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/nuxx.net\/blog\/wp-json\/wp\/v2\/comments?post=2864"}],"version-history":[{"count":5,"href":"https:\/\/nuxx.net\/blog\/wp-json\/wp\/v2\/posts\/2864\/revisions"}],"predecessor-version":[{"id":2887,"href":"https:\/\/nuxx.net\/blog\/wp-json\/wp\/v2\/posts\/2864\/revisions\/2887"}],"wp:attachment":[{"href":"https:\/\/nuxx.net\/blog\/wp-json\/wp\/v2\/media?parent=2864"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/nuxx.net\/blog\/wp-json\/wp\/v2\/categories?post=2864"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/nuxx.net\/blog\/wp-json\/wp\/v2\/tags?post=2864"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}