WMIオブジェクト参照からWMIオブジェクトを取得する方法

Question

特定のユーザーをログオフするために特定のCitrix作業を行うためにWMIを使用しています。最初に、MetaFrame_Sessionという名前のオブジェクトを列挙して、現在のセッションを一覧表示してから、ユーザー名を持つCitrix_Userというオブジェクトを取得する必要があります。

SessionオブジェクトにはUserオブジェクトへの参照が含まれていますが、私はWMIに詳しくないので、参照から実際のオブジェクトを取得する方法がわかりません。 VBScriptでこれを行う方法の例としては、非常に参考になる

Answer 1

あなたはどちらか、このother forumに答えを見つけることができなかったようだが、ためHaydn Daviesによって次のようにWMIを使用してCitrixセッションをログオフするコードは、親切にhere投稿されました1つのCitrixサーバー：それは技術のための基準として役立つかもしれないので、

' Logoff Disconnected Sessions 
' If you want to logoff active sessions as well, change the query to include 
' cActive 
On Error Resume Next 

Const cActive = 0 
Const cDisconnected = 4 
Const strComputer = "." 

Set objWMICitrix = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\citrix") 
Set colItems = objWMICitrix.ExecQuery ("Select * from Metaframe_Session Where sessionstate = " & cDisconnected) 

For Each objItem in colItems 
if (objItem.SessionID > 0) and (objItem.SessionID < 65530) then 
objItem.Logoff 
end if 
Next 

Set objWMICitrix = Nothing 

は、Citrix社VirtualIPを取得する方法についてコードのためhereを参照してください。また、サーバー上でWMIが壊れている場合は、hereを参照して修復してください。

Answer 2

"SessionUserは" 文字列

dim name 
For Each objItem in colItems 
name=left(Mid(objItem.SessionUser,InStr(objItem.SessionUser,"=")+2,20),InStr(Mid(objItem.SessionUser,InStr(objItem.SessionUser,"=")+2,20),",")-2) 
if (name="YOUR_SEARCH_NAME") and (objItem.SessionID < 65530) then 
objItem.Logoff 
end if