Posted on 2008-06-15 17:55
nt05 阅读(1177)
评论(0) 编辑 收藏 引用 所属分类:
windows nt
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProfileList
一共3种方法修改
1、wmic useraccount get name,sid
然后在profilelist下找到相应的SID 进行修改
2、set 记下userprofile路径 在注册表里搜索
3、写脚本
On Error Resume Next
版权保护版权保护,请不要随意复制^%#$32353)98sa。^_^,请不要随意复制^%#$32353)98sa。^_^
版权保护版权保护,请不要随意复制^%#$32353)98sa。^_^,请不要随意复制^%#$32353)98sa。^_^
If WScript.Arguments.Count < 1 Then
版权保护版权保护,请不要随意复制^%#$32353)98sa。^_^,请不要随意复制^%#$32353)98sa。^_^
ShowSID ""
版权保护版权保护,请不要随意复制^%#$32353)98sa。^_^,请不要随意复制^%#$32353)98sa。^_^
Else
版权保护版权保护,请不要随意复制^%#$32353)98sa。^_^,请不要随意复制^%#$32353)98sa。^_^
ShowSID Trim(WScript.Arguments(0))
版权保护版权保护,请不要随意复制^%#$32353)98sa。^_^,请不要随意复制^%#$32353)98sa。^_^
End If
版权保护版权保护,请不要随意复制^%#$32353)98sa。^_^,请不要随意复制^%#$32353)98sa。^_^
版权保护版权保护,请不要随意复制^%#$32353)98sa。^_^,请不要随意复制^%#$32353)98sa。^_^
Function ShowSID(strUser)
版权保护版权保护,请不要随意复制^%#$32353)98sa。^_^,请不要随意复制^%#$32353)98sa。^_^
On Error Resume Next
版权保护版权保护,请不要随意复制^%#$32353)98sa。^_^,请不要随意复制^%#$32353)98sa。^_^
Dim oWMI, oAs, oA, sSid
版权保护版权保护,请不要随意复制^%#$32353)98sa。^_^,请不要随意复制^%#$32353)98sa。^_^
Set oWMI = GetObject("winmgmts:\\.\root\cimv2")
版权保护版权保护,请不要随意复制^%#$32353)98sa。^_^,请不要随意复制^%#$32353)98sa。^_^
If strUser <> "" Then
版权保护版权保护,请不要随意复制^%#$32353)98sa。^_^,请不要随意复制^%#$32353)98sa。^_^
Set oAs = oWMI.ExecQuery("Select SID From Win32_Account" & _
版权保护版权保护,请不要随意复制^%#$32353)98sa。^_^,请不要随意复制^%#$32353)98sa。^_^
" WHERE SIDType=1 AND Name='" & strUser & "'")
版权保护版权保护,请不要随意复制^%#$32353)98sa。^_^,请不要随意复制^%#$32353)98sa。^_^
For Each oA In oAs
版权保护版权保护,请不要随意复制^%#$32353)98sa。^_^,请不要随意复制^%#$32353)98sa。^_^
sSid= Mid(oA.SID, InStrRev(oA.SID, "-") + 1)
版权保护版权保护,请不要随意复制^%#$32353)98sa。^_^,请不要随意复制^%#$32353)98sa。^_^
WScript.Echo "Short SID: " & sSid & " (" & HEX(sSid) & "H)"
版权保护版权保护,请不要随意复制^%#$32353)98sa。^_^,请不要随意复制^%#$32353)98sa。^_^
Next
版权保护版权保护,请不要随意复制^%#$32353)98sa。^_^,请不要随意复制^%#$32353)98sa。^_^
Else
版权保护版权保护,请不要随意复制^%#$32353)98sa。^_^,请不要随意复制^%#$32353)98sa。^_^
Set oAs = oWMI.ExecQuery("Select Name, SID From Win32_Account WHERE SIDType=1")
版权保护版权保护,请不要随意复制^%#$32353)98sa。^_^,请不要随意复制^%#$32353)98sa。^_^
For Each oA In oAs
版权保护版权保护,请不要随意复制^%#$32353)98sa。^_^,请不要随意复制^%#$32353)98sa。^_^
WScript.Echo "User: " & oA.Name & _
版权保护版权保护,请不要随意复制^%#$32353)98sa。^_^,请不要随意复制^%#$32353)98sa。^_^
vbCrLf & vbTab & "SID: " & oA.SID
版权保护版权保护,请不要随意复制^%#$32353)98sa。^_^,请不要随意复制^%#$32353)98sa。^_^
Next
版权保护版权保护,请不要随意复制^%#$32353)98sa。^_^,请不要随意复制^%#$32353)98sa。^_^
End If
版权保护版权保护,请不要随意复制^%#$32353)98sa。^_^,请不要随意复制^%#$32353)98sa。^_^
版权保护版权保护,请不要随意复制^%#$32353)98sa。^_^,请不要随意复制^%#$32353)98sa。^_^
Set oA = Nothing
版权保护版权保护,请不要随意复制^%#$32353)98sa。^_^,请不要随意复制^%#$32353)98sa。^_^
Set oAs = Nothing
版权保护版权保护,请不要随意复制^%#$32353)98sa。^_^,请不要随意复制^%#$32353)98sa。^_^
Set oWMI = Nothing
版权保护版权保护,请不要随意复制^%#$32353)98sa。^_^,请不要随意复制^%#$32353)98sa。^_^
If Err.Number <> 0 Then
版权保护版权保护,请不要随意复制^%#$32353)98sa。^_^,请不要随意复制^%#$32353)98sa。^_^
WScript.Echo "Error ocurred: " & Err.Description
版权保护版权保护,请不要随意复制^%#$32353)98sa。^_^,请不要随意复制^%#$32353)98sa。^_^
Err.Clear
版权保护版权保护,请不要随意复制^%#$32353)98sa。^_^,请不要随意复制^%#$32353)98sa。^_^
End If
版权保护版权保护,请不要随意复制^%#$32353)98sa。^_^,请不要随意复制^%#$32353)98sa。^_^
End Function
版权保护版权保护,请不要随意复制^%#$32353)98sa。^_^,请不要随意复制^%#$32353)98sa。^_^
版权保护版权保护,请不要随意复制^%#$32353)98sa。^_^,请不要随意复制^%#$32353)98sa。^_^ 另存为getsid.vbs 在命令行窗口中输入cscript [路径]getsid.vbs <用户名>
如果不输入用户名版权保护,请不要随意复制^%#$32353)98sa。^_^,则显示所有的SID
如何设置所有用户配置文件路径
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProfileList\ProfilesDirectory
为路径
其它为文件夹名称
版权保护版权保护,请不要随意复制^%#$32353)98sa。^_^,请不要随意复制^%#$32353)98sa。^_^