ªð¦^¦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 : ¬°¤H³B¥@­n¤p¤ß²Ó¤ß¡A¦ý¤£­n¡u¤p¤ß²´¡v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD