الثلاثاء، 27 مارس 2012

تعلم اظهار المسؤول المستخدم [Administrator User] لما تفتح الجهاز


بسم الله الرحمن الرحيم

تعلم إظهار [Administrator User] عند تشغيل النسخه


افتح النود باد


اكتب الكود دا
ثم احفظه بصيغة (VBS.*) وبعدها شغلو

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

VisitKelly's Korner

Sub VisitKelly's Korner
    If MsgBox("This script came from the Tweaks Section of Kelly's Korner" & vbCRLF & vbCRLF & "Would you like to visit Kelly's Web Site now?", vbQuestion + vbYesNo + vbDefaultButton, "Visit Kelly's Korner") =6 Then
        wshshell.Run "http://www.zerovb.com/"
    End If
End Sub
إضغط هنا للمزيد من البحث حول هذا الموضوع

0 التعليقات:

إرسال تعليق

الاشتراك في: تعليقات الرسالة (Atom)