ªð¦^¦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 : ¡i®É¶¡¦pÆp¥Û¡j®É¶¡¹ï¤@­Ó¦³´¼¼zªº¤H¦Ó¨¥¡A´N¦pÆp¥Û¯ë¬Ã¶Q¡F¦ý¹ï·M¤H¨Ó»¡¡A«o¹³¬O¤@§âªd¤g¡A¤@ÂI»ù­È¤]¨S¦³¡C
ªð¦^¦Cªí ¤W¤@¥DÃD