Script Yazma

  1. KısayolKısayol reportŞikayet pmÖzel Mesaj
    Efendi
    Efendi's avatar
    Kayıt Tarihi: 23/Nisan/2006
    Erkek

    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 if

    Servers=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


    Harabat ehlini hor görme Zakir, defineye malik viraneler var...
  2. KısayolKısayol reportŞikayet pmÖzel Mesaj
    kvasir
    kvasir's avatar
    Kayıt Tarihi: 24/Ağustos/2005
    Erkek

    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 :'()

  3. KısayolKısayol reportŞikayet pmÖzel Mesaj
    Efendi
    Efendi's avatar
    Kayıt Tarihi: 23/Nisan/2006
    Erkek

    DErleme Hatası VEriyor :S


    Harabat ehlini hor görme Zakir, defineye malik viraneler var...
  4. KısayolKısayol reportŞikayet pmÖzel Mesaj
    anarsistherif
    anarsistherif's avatar
    Kayıt Tarihi: 27/Ağustos/2009
    Erkek
    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
    

    =)
  5. KısayolKısayol reportŞikayet pmÖzel Mesaj
    Efendi
    Efendi's avatar
    Kayıt Tarihi: 23/Nisan/2006
    Erkek

    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


    Harabat ehlini hor görme Zakir, defineye malik viraneler var...
  6. KısayolKısayol reportŞikayet pmÖzel Mesaj
    anarsistherif
    anarsistherif's avatar
    Kayıt Tarihi: 27/Ağustos/2009
    Erkek
    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 :)

    =)
Toplam Hit: 2117 Toplam Mesaj: 6