2010 2月 - とぷろぐ

2010年2月26日

CiscoのVPNクライアントで接続するとき

ルータの開ける受信ポートを下記のように設定する。

TCP   10000
ESP
UDP   500
TCP   3390
UDP   1900

カテゴリー: PC関係 — admin 9:08 AM コメント (0)

2010年2月25日

首が痛くてたまらん＆いつも行ってる整形外科がじーちゃんばーちゃんばっかりの医院なので、いまいち信用できずに、総合病院に行ってMRI検査してくれって言ってみた。
まー、その前に普通にレントゲン撮られ、骨は異常ないですねーっていわれ、そのままMRI撮られ、これもまたきれいな頚椎ですねって言われたよ。
仕事でPC使ってプログラムとかばっかりやってるからいかんのだって言われた。
まーそうだろうなーー。
夜に近づくほどつらくなってくるもん。
いつまでこの手の仕事ができるんだろうな。

カテゴリー: 一般 — admin 5:30 PM コメント (0)

2010年2月24日

クラシックASPでLDAP認証

どこかの掲示板でみつけたやつ。まだ未テスト

This script works for me in Classic ASP Vbscript to authentication in LDAP – iPlanet

struser= “your_user”
strpwd= “your_user_pwd”
strdomain= “your_domain.com”
strvaliddn= “uid=” & struser & “,ou=People,o=” & strdomain & “,o=isp”
strservername=”your_server_name_or_ip:389″

Set conn = CreateObject(“ADODB.Connection”)
conn.Provider = “ADsDSOObject”
conn.Properties(“User ID”) = struser
conn.Properties(“Password”) = strpwd
conn.Open “ADs Provider”, strvaliddn, strpwd

Set objldap = CreateObject(“ADODB.Command”)
objldap.ActiveConnection = conn
on error resume next
objldap.CommandText = “SELECT cn FROM ‘LDAP://” & strservername & “/” & strvaliddn & “‘ ”
set rs = objldap.Execute

If rs.eof or rs.bof then
authresult=”"
else
authresult=”Y”
end if

set objldap=nothing
set rs=nothing
Set conn=nothing