检索服务器和工作站之间建立会话的信息
#Include <NetShare.au3>
_Net_Share_SessionGetInfo($sServer, $sClientName, $sUserName)
$sServer | 指定函数将操作远程服务器的 DNS 或 NetBIOS 名称字符串 如果参数为空, 则使用本地计算机. |
$sClientName | 指定返回信息的计算机会话名称. 此参数不能为空. |
$sUserName | 指定返回会话信息的用户名称. 此参数不能为空. |
成功: | 返回以下格式的数组: | |
[0] - 计算机确定的会话名称 | ||
[1] - 建立会话的用户名称 | ||
[2] - 文件, 设备的数量, 并在会话期间打开的管道 | ||
[3] - 有效会话时间的秒数 | ||
[4] - 会话闲置时间的秒数 | ||
[5] - 指定用户如何确定会话: | ||
1 - 用户使用来宾帐户建立的会话 | ||
2 - 用户不使用密码建立的会话 | ||
[6] - 指定客户端建立的会话类型 | ||
失败: | 设置@error: |
在MSDN中搜索
#include <GUIConstantsEx.au3>
#include <NetShare.au3>
#include <WindowsConstants.au3>
Global $iMemo
_Main()
Func _Main()
Local $sServer, $aInfo
; 创建 GUI
GUICreate("NetShare", 400, 300)
; 创建 memo 控件
$iMemo = GUICtrlCreateEdit("", 2, 2, 396, 296, $WS_VSCROLL)
GUICtrlSetFont($iMemo, 9, 400, 0, "Courier New")
GUISetState()
; Get server and share information
$sServer = InputBox("NetWork Demo", "Enter Server Name:", "\\MyServer", "", 200, 130)
If @error Then Exit
; Get session information
$aInfo = _Net_Share_SessionGetInfo($sServer, @ComputerName, "Administrator")
MemoWrite("Error ..........: " & @error)
MemoWrite("Computer name ..: " & $aInfo[0])
MemoWrite("User name ......: " & $aInfo[1])
MemoWrite("Resources open .: " & $aInfo[2])
MemoWrite("Seconds active .: " & $aInfo[3])
MemoWrite("Seconds idle ...: " & $aInfo[4])
MemoWrite("Connection type : " & $aInfo[5])
MemoWrite("Client type ....: " & $aInfo[6])
; 循环直到用户退出
Do
Until GUIGetMsg() = $GUI_EVENT_CLOSE
EndFunc ;==>_Main
; 写入消息到 memo
Func MemoWrite($sMessage = "")
GUICtrlSetData($iMemo, $sMessage & @CRLF, 1)
EndFunc ;==>MemoWrite