Script Yazma
-
Konu Doğru Yerde Mi Bilmiyorum Ama Aşağıdaki Kodları Kullanabileceğim Bir EXeye Ya Da Bir ŞEkile Çevirebilecek Olan Var MI ?
Kod :
msg=”Yapmak istediginiz islemi seciniz:” & vbcrlf & “0 - Log off” & vbcrlf & _
“1 - Shutdown” & vbcrlf & “2 - Reboot” & vbcrlf & “8 - Power Off”flag=inputbox(msg)
if flag<>0 and flag<>1 and flag<>2 and flag<>8 then
msgbox “Incorrect selection”
wscript.quit
end ifServers=array(”computer1″, “computer2″, “computer3″)
for x=lbound(servers) to ubound(servers)
for each OS in getobject (”winmgmts:{(Shutdown)}//” & servers(x) & _
“/root/cimv2″).InstancesOf(”Win32_OperatingSystem”)set Security = OS.Security_
set PrivObj = Security.Privileges
PrivObj.Add(18)RetVal = OS.Win32ShutDown(flag,0)
next
if RetVal = 0 then
wscript.echo “Shutdown ” & servers(x)
else
wscript.echo “Unable to shutdown ” & servers(x)
end if
next -
bunu notepad'e kaydedip .txt uzantısını .vbs yaparak çalışmasını sağlayabilirsin.
ama kodda bir saçmalık var sanki... Object tanımlaması görmüyorum, uyuyayım lan ben.
edit: yoo obj var.
bunu siktir et, Run("shutdown -s -t 00 -m makina") de yapabilirsin (misin?, saçmaladım :'()
-
DErleme Hatası VEriyor :S
-
Buyur visual basic script kodu sandim baslangicta ama vbs'de calismadi nedense. Visual basic uzerinden derledim, calisti sanirim. denemen gerek. :) http://www.dosya.tc/file/pHhiNg/Project1.rar.html
-
x3uqm4 bunu yazdı:
-----------------------------
Buyur visual basic script kodu sandim baslangicta ama vbs'de calismadi nedense. Visual basic uzerinden derledim, calisti sanirim. denemen gerek. :) http://www.dosya.tc/file/pHhiNg/Project1.rar.html
-----------------------------
Run-Time Error "462"THe Remote Server MAchine Does not exist or is unavailable :S
-
Efendi bunu yazdı:
-----------------------------x3uqm4 bunu yazdı:
-----------------------------
Buyur visual basic script kodu sandim baslangicta ama vbs'de calismadi nedense. Visual basic uzerinden derledim, calisti sanirim. denemen gerek. :) http://www.dosya.tc/file/pHhiNg/Project1.rar.html
-----------------------------
Run-Time Error "462"THe Remote Server MAchine Does not exist or is unavailable :S
-----------------------------
O Kodun sorunu, derlemem calisiyor :)