ªð¦^¦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®É¤é²öªÅ¹L¡j¤@­Ó¤H¦b¥@¶¡°µ¤F¦h¤Ö¨Æ¡A´Nµ¥©ó¹Ø©R¦³¦hªø¡C¦]¦¹¥²¶·»P®É¶¡Ävª§¡A¤Á²ö¨Ï®É¤éªÅ¹L¡C
ªð¦^¦Cªí ¤W¤@¥DÃD