本站招兵买马

Y8论坛-舟山东路论坛

 找回密码
 注册发帖

QQ登录

只需一步,快速开始

查看: 1129|回复: 1
打印 上一主题 下一主题

登录是否显示超级管理员

[复制链接]
跳转到指定楼层
1#
发表于 2008-3-13 15:06:51 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
Dim WSHShell, n, MyBox, p, p1, t, cn, Caption, itemtype, errnum
Set WSHShell = WScript.CreateObject("WScript.Shell")
p = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\SpecialAccounts\UserList\Administrator"
itemtype = "REG_DWORD"
t= "Choose Accordingly"

On Error Resume Next
n = ws.RegRead(p)
errnum = Err.Number
If errnum <> 0 then  
n = 0
End If
Caption = "1 = Show Administrator on Destop, 0 = Don't Show Administrator on Desktop"
On Error Goto 0
cn = InputBox(Caption, t, n)
If cn <> "" Then
WSHShell.RegWrite p, cn, itemtype
End If
If cn <>"" Then
MyBox = MsgBox("You must Log Off/Log On for the changes to take effect.", vbOKOnly,"Done")
End If


VBS代码
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 反正我信了反正我信了 反正我不信反正我不信
2#
发表于 2008-3-13 18:15:03 | 只看该作者
哈哈...VBS没玩过...ASP的话还是没问题的...哈哈
您需要登录后才可以回帖 登录 | 注册发帖

本版积分规则

未经书面授权 不得复制或建立镜像,舟山东路论坛所有内容,发表者自行负担版权责任,
版权纠纷请版权所有者寻找发行者自行解决,舟山东路论坛尽力协助,但不负任何法律责任!
本站原创内容,发表者拥有版权,舟山东路论坛拥有展示权,转载请注明出处!


关于Y8 | 广告服务 | 法律声明 | 联系我们

在线客服:我是Y8BBS管理员,点此联系我! (Admin) | 我是Y8BBS野叶,点此联系我! (野叶)

小黑屋|手机版|Archiver|Y8论坛-Y8bbs.com ( 浙ICP备09036201号  

GMT+8, 2024-11-29 04:30 , Processed in 0.103323 second(s), 22 queries .

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表