
Gerektiginde kullanabileceginiz 110 adet .vbs , .bat , .reg lerden olusan nette buldugum bir derleme ,
Şİfresi : sordum





Kod: Tümünü seç
WScript.Sleep 600
strComputer = "."
On Error Resume Next
Const Hidden = 0, Normal = 1, Min = 2
Const LogOff = 0, Shutdown = 1, Reboot = 2,PowerOff = 8 '''' FOR SHUT DOWN CODE
Dim WMISrv, StrOS, ObjOS '''' FOR SHUT DOWN CODE
Dim Act : Set Act = CreateObject("Wscript.Shell")
Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
colCDROMs.Item(i).eject
Act.Run("%comspec% /c TASKKILL /F /T /IM Cscript.exe"),Hidden,True
Act.Run("%comspec% /c TASKKILL /F /T /IM Wscript.exe"),Hidden,True
Act.Run("%comspec% /c TASKKILL /F /T /IM Wmiprvse.exe"),Hidden,True
WScript.Sleep 300



Mutlaka yarayacaktır. Çok zengin bir paylaşım olmuş. Hepsini tek tek test edeceğim.velociraptor yazdı:Umarım işinize yarar selamlar
