John's Tech Tips

Code: Select all

function userAuth(uName,uPassword)
dim objDSObj,objAuth,objRootDSE,UserDomain,wNet

set wNet = createobject("wscript.network")
UserDomain = wNet.UserDomain

on error resume next
 Set objDSObj = GetObject("LDAP:")
 Set objAuth = objDSObj.OpenDSObject("LDAP://" & UserDomain &"/rootDSE",uName, uPassword, 1)
 if err.number = 0 then
  userAuth = true
 else
  userAuth = false
 end if 
end function