ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ¦p¦ó¦bEXCEL VBA¤¤ §Q¥ÎLDAPÅçÃÒ¨Ï¥ÎªÌ ¨Ã¨ú¦^¨Ï¥ÎªÌ¦W¦r

[µo°Ý] ¦p¦ó¦bEXCEL VBA¤¤ §Q¥ÎLDAPÅçÃÒ¨Ï¥ÎªÌ ¨Ã¨ú¦^¨Ï¥ÎªÌ¦W¦r

¨Ï¥ÎªÌ
ºô¸ô§ì¨ú ¤£¹L¤£³q

'¤Þ¥Î Active DS Type Library

Dim MyNamespace As IADsOpenDSObject
Dim X
oUsername="MyUserName"
oPassword="MyPassword"
On Error GoTo CleanuUp
Set MyNamespace = GetObject("LDAP:")
Set X = MyNamespace.OpenDSObject("LDAP://192.168.xx.xx",  oUserName, oPassword, ADS_SECURE_AUTHENTICATION)
'§ì¨Ï¥ÎªÌ
CleanUp:
    MsgBox ("An error has occurred.")
    Set MyNamespace = Nothing
    Set X = Nothing
max

        ÀR«ä¦Û¦b : §Ú­Ì­n°µ¦nªÀ·|ªºÀô«O¡A¤]­n°µ¦n¤º¤ßªºÀô«O¡C
ªð¦^¦Cªí ¤W¤@¥DÃD