随笔 - 49  文章 - 0 评论 - 19 
<2008年1月>
303112345
6789101112
13141516171819
20212223242526
272829303112
3456789

Web Site Traffic Counter

常用链接

留言簿(3)

随笔分类(48)

随笔档案(49)

搜索

  •  

积分与排名

  • 积分 - 48257
  • 排名 - 106

最新评论

阅读排行榜

评论排行榜

如题,在论坛找到,改了一下,功能是返回用户的SID
$UserName="administrator"
MsgBox(64,"",GetSID($UserName)
Func GetSID($user)
;~ $user = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon", "DefaultUserName") ;取当前登录用户的名称
$objWMIService = ObjGet("winmgmts:\\" & "localhost" & "\root\CIMV2")
$colItems = $objWMIService.ExecQuery ("SELECT * FROM Win32_UserAccount", "WQL")
For $objItem In $colItems
        $username = StringSplit($objItem.Caption, "\", 1)
        If $username[2] = $user Then
             Return $objItem.SID
        EndIf
next
EndFunc
posted on 2008-01-17 11:35 疾风随影 阅读(740) 评论(0)  编辑 收藏 引用 所属分类: AutoIT column
只有注册用户登录后才能发表评论。