📄 nt用户账号查看器.asp
字号:
<html>
<head>
<title>NT用户账号查看器</title>
</head>
<body>
<%
Dim objLocator, objService, objWEBMCol, objWEBM
Set objLocator = CreateObject("WbemScripting.SWbemLocator")
Set objService = objLocator.ConnectServer
Set objWEBMCol = objService.InstancesOf("Win32_Account")
Response.write "<H2><center>NT用户账号查看器</center></H2><HR><UL>"
For Each objWEBM in objWEBMCol
Response.write "<LI>账号: " & objWEBM.Caption
response.write "<BR>描述: " & objWEBM.Description
response.write "<BR>域名: " & objWEBM.Domain
response.write "<BR>安全ID: " & objWEBM.SID
response.write "<BR>安全ID类型: " & objWEBM.SIDType
response.write "<BR>状态: " & objWEBM.Status & "<BR></LI>"
Next
Response.write "</UL>"
Set objLocator = Nothing
Set objService = Nothing
Set objWEBMCol = Nothing
Set objWEBM = Nothing
%>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -