امتیاز موضوع:
  • 0 رای - 0 میانگین
  • 1
  • 2
  • 3
  • 4
  • 5
کد های Script
#1
سلام

سعی بر این میشه یک سری کدهای اسکریپتی که برای سهولت کاربران تهیه شده را برای شما بگذارم .
این کدهای اسکریپتی ، کدهای .vbs هستند که با ذخیره و سیو کردن آنها خیلی راحت عمل مورد نظر تنها با دوبار کلیک انجام میگیرد .

نحوه استفاده :

اول یک notepad باز کنید
بعد کدها رو داخل این notepad کپی کنید
و در نهایت به اسم اون کد با فرمت .vbs ذخیره کنید
و در نهایت با دوبار کلیک اجرا میشود.


کد اول :
ری استارت کردن سیستم[font]Restart a Computer[/font]
کد:
strComputer = "atl-dc-01"
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate,(Shutdown)}!\" & strComputer & "\root\cimv2")
Set colOperatingSystems = objWMIService.ExecQuery _
    ("Select * from Win32_OperatingSystem")
For Each objOperatingSystem in colOperatingSystems
    ObjOperatingSystem.Reboot()
Next

کد کپی کردن یک فایل از درایوی به درایو دیگر
لازم به ذکر هست که دو ادرس پیش فرضی که در کد هست باید عوض شود ادرس اول ادرس مبدا فایلی که می خواهیم کپی شود و ادرس دوم ادرس مقصد که میخواهیم فایل در ان جا کپی شود
کد:
C:\FSO\ScriptLog.txt" , "D:\Archive\", OverwriteExisting
 
کد:
Const OverwriteExisting = True
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.CopyFile "C:\FSO\ScriptLog.txt" , "D:\Archive\", OverwriteExisting

 
[font]Copy a Folder[/font]
کد:
Const OverWriteFiles = True
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.CopyFolder "C:\Scripts" , "C:\FSO" , OverWriteFiles
 
پاسخ
#2
مطالب خوبی هست، یه امتحان کنیم ببینیم چی میشه.
راستی گارانتی داره دیگه ؟ معتبر هم هست انشاء الله... Big Grin Big Grin
پاسخ
#3
(02-01-2016، 11:10 PM)naderi نوشته: مطالب خوبی هست، یه امتحان کنیم ببینیم چی میشه.
راستی گارانتی داره دیگه ؟ معتبر هم هست انشاء الله... Big Grin Big Grin

Big GrinBig Grin  بله ما محصولاتمون رو تضمین می کنیم .

حذف یک فایل :
کد:
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.DeleteFile("C:\FSO\ScriptLog.txt")
حذف یک فولدر :
کد:
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.DeleteFolder("C:\FSO")
حذف همه فایل های یک فولدر :
کد:
Const DeleteReadOnly = True
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.DeleteFile("C:\FSO\*.txt"), DeleteReadOnly
حذف فولدر ها :
کد:
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colFolders = objWMIService.ExecQuery _
    ("Select * from Win32_Directory where Name = 'c:\\Scripts'")
For Each objFolder in colFolders
    errResults = objFolder.Delete
    Wscript.Echo errResults
Next
پاسخ
#4
خوبه، متشکرم.
هنوز امتحان نکردم البته با این سرعتی که شما پیش میرید من عقب می افتم. چند تا دیگه اضافه کردید بازم....
پاسخ
#5
(02-01-2016، 11:35 PM)naderi نوشته: خوبه، متشکرم.
هنوز امتحان نکردم البته با این سرعتی که شما پیش میرید من عقب می افتم. چند تا دیگه اضافه کردید بازم....

Big Grin Smile  خب پس ادامه نمیدم تا تست کنید و نتیجه رو بفرمایید
پاسخ
#6
کد ریستارت برای من کار نکرد و یک خطا داد. یه نگاه به عکس بندازید.
   
پاسخ
#7
(02-01-2016، 11:52 PM)naderi نوشته: کد ریستارت برای من کار نکرد و یک خطا داد. یه نگاه به عکس بندازید.

 

عه ؟
الان بررسی می کنم ببینم مشکل از چی هست
یحتمل یکی از پارامترها رو بر اساس سیستم خودمون تنظیم کنیم الان نگاه می کنم

(02-01-2016، 11:52 PM)naderi نوشته: کد ریستارت برای من کار نکرد و یک خطا داد. یه نگاه به عکس بندازید.

 


کدها یحتمل به خاطر نسخه های ویندوز یه وقتا شاید کار نکنن و دستکاری توی پارامترها نیازمند بررسی فایل های سیستمی موجود توی ویندوزهاست
حتما پارامترها ر سر فرصت بررسی می کنم

الان شما این کد رو برای خاموش کردن تست کن باید جواب بده
Set colOperatingSystems = GetObject("winmgmts:{(Shutdown)}").ExecQuery("Select * from Win32_OperatingSystem")
For Each objOperatingSystem in colOperatingSystems
    ObjOperatingSystem.Win32Shutdown(1)
Next
پاسخ
#8
شاید برای نسخه سیستم عامل باشه.
پاسخ
#9
(03-01-2016، 12:23 AM)Karamzadeh نوشته: شاید برای نسخه سیستم عامل باشه.

نه برای پارامترهای دستوراته
بررسی می کنم ببینم کدوم پارامتره
پاسخ
#10
(02-01-2016، 11:52 PM)naderi نوشته: کد ریستارت برای من کار نکرد و یک خطا داد. یه نگاه به عکس بندازید.






 






فكر كنم كد زير براي ريستارت ويندوز صحيح است،‌خودم تست كردم كه جواب داد. مواظب باشيد فقط اصلا نترسيد فقط سيستم دوباره راه اندازي خواهد شد.
کد:
Set OpSysSet = GetObject("winmgmts:{authenticationlevel=Pkt," _
     & "(Shutdown)}").ExecQuery("select * from Win32_OperatingSystem where "_
     & "Primary=true")
for each OpSys in OpSysSet
    retVal = OpSys.Reboot()
next

.zip   Restart.zip (اندازه 362 بایت / تعداد دانلود: 0)

رمز عبور:
کد:
www.parsia.net
پاسخ


پرش به انجمن:


کاربران در حال بازدید این موضوع: 1 مهمان