Windows2000Serverﾀｰﾐﾅﾙｻｰﾋﾞｽに環境において、各ｾｯｼｮﾝのｸﾗｲｱﾝﾄｺﾝﾋﾟｭｰﾀ名を取得したいのですが、
WTSQuerySessionInformationというAPIを使用すれば可能な事はわかったのですが、うまくいきません。
どなたかご存知の方教えて下さい。ｺｰﾃﾞｨﾝｸﾞ内容は以下の通りです。

＜ｸﾞﾛｰﾊﾞﾙ外部関数に下記を記述＞
//呼び出し側プロセスのプロセス識別子を取得
Function long GetCurrentProcessId() library \"kernel32.dll\"
//指定したプロセスに対応するターミナルサービスセッションを取得
Function long ProcessIdToSessionId(long lProcessId, Ref long lSessionId) library \"kernel32.dll\"
//指定したターミナルサーバ上の、指定したセッションの情報を取得
Function long WTSQuerySessionInformation(long hServer , long SessionId, string WTSInfoClass, Ref 
string ppBuffer, Ref long pBytesReturned)  LIBRARY \"wtsapi32.dll\" 

＜関数を実行しているｽｸﾘﾌﾟﾄは下記の通り＞
long lProcId          //カレントプロセスのID
long lRet             //関数の戻り値
long lMySessionId     //自プロセスに対応するターミナルセッションの識別子
string  WTSClientName //クライアント(コンピュータ)名
string lpBuffer       //クライアント(コンピュータ)名
long lBytes           //取得バイト数

CONSTANT long WTS_CURRENT_SERVER_HANDLE = 0     //現在プログラムを実行中のTerminalServer
WTSClientName = \"WTSClientName\"
 
//呼び出し側プロセスのプロセス識別子を取得
lProcId = GetCurrentProcessId()
//指定したプロセスに対応するターミナルサービスセッションを取得
lRet = ProcessIdToSessionId(lProcId, lMySessionId)
//カレントプロセス実行中のターミナルサーバ上のセッションの情報を取得
lRet = WTSQuerySessionInformation
(WTS_CURRENT_SERVER_HANDLE,lMySessionId,WTSClientName,lpBuffer,lBytes)