?? win32_account.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 + -