Problém(windows script host)

[Dipp]

Zdravím, stala se mi taková nepříjemná věc. Pokaždé když zapnu počítač objeví se mi tabulka že se za půl hodiny vypne aniž bych já tomu kdy dal příkaz. Sice toto automatické vypnutí lze přerušit jediným příkazem v CMD ale byl bych radši kdyby to přestalo úplně. Společně s tím se mi vyhazuje tabulka s následujícím textem:

Skript: C:\Documents and Settings\All Users\Nabídka Start\Programy\Po spuštění\systemovy.vbs
Řádek: 6
Znak: 32
Chyba: Chybná syntaxe
Kód: 800A03EA
Zdroj: Microsoft VBSscript - chyba kompilace

Neví někdo co to znamená? Popř jak se to dá vyřešit?

Předem děkuji
Dipp.

[Reklama]

[Uziv00]

A vložit sem ten systemovy.vbs tě nenapadlo?
Buď vlož kód, nebo přejmenuj soubor na systemovy.txt a vlož ho sem jako přílohu.

[Dipp]

Aha, to mě nenapadlo. Teďka když sem to zkoušel přiložit tk to nešlo i když sem připsal tu koncovku.

[Uziv00]

Jestli je tk totalcommander - tedy tc, pak existuje klávesa F6, pomocí níž lze přejmenovat soubor.
Vložení do kódu vypadá takto:

Kód: Vybrat vše

'******************************************************
'*       Script slučuje dva soubory do jednoho        *
'*           První řádek ze souboru1                  *
'*           Druhý řádek ze souboru2                  *
'*           Třetí řádek ze souboru1                  *
'*            Vytvořeno pro PC-HELP                   *
'*            Etienn@Script v. 1.0                    *
'******************************************************

Option Explicit
Dim fso, Text1, Text2, txtStream0, txtStream, txtStream2

Const file1 = "C:\GO\big5_string.txt"
Const file2 = "C:\GO\big5_string2.txt"
Const fileout = "C:\GO\big5_string0.txt"

' vytvoreni objektu pro pristup k souborum
Set fso = CreateObject("Scripting.FileSystemObject")

Set txtStream = fso.OpenTextFile(file1)
Set txtStream2 = fso.OpenTextFile(file2)
Set txtStream0 = fso.OpenTextFile(fileout, 2, True)

Do While Not (txtStream2.AtEndOfStream)
   
   Text1 = txtStream.ReadLine
      Text2 = txtStream2.ReadLine
      txtStream0.WriteLine Text1   
 
   Text1 = txtStream.ReadLine
      Text2 = txtStream2.ReadLine
      txtStream0.WriteLine Text2
     
   Text1 = txtStream.ReadLine
      Text2 = txtStream2.ReadLine
      txtStream0.WriteLine Text1   
           
Loop   

txtStream0.Close
MsgBox "Script proběhl", vbOKOnly + vbInformation, "Zpráva"

Set fso = Nothing

[Dipp]

Proste sem to zazipoval to bude asi nejjednodussi.

[Uziv00]

Nejjednodušší bude udělat to jak jsem řekl. Absolutně nehodlám si zatáhnout nějakého vira do svého počítače. To neznamená, že tam nutně musí být.

[Dipp]

aha.. mno.. ja skusil vsechno co si mi radil ale nikdy se mi to nepodarilo nahrat tak nwm. Kde vlastne najdu ten kod?

--- Doplnění předchozího příspěvku (07 Dub 2013 10:42) ---

Nbo spis kde ho zobrazim? abych ho teda mohl zkopirovat.

--- Doplnění předchozího příspěvku (07 Dub 2013 10:44) ---

Napadlo me ze by ti mohlo pomoct ete tohle. Kdyz sem otevrel ten soubor v bloku tk tam stalo presne toto:

MsgBox "Čus draku! Neboj, neni to žádnej vir, jen nasrávací prográmek, kterej tě bude srát každej den! :) Dokud ho neodstraníš!"
MsgBox "FATAL ERROR! Váš držák na pivo je prázdný!!!"
Set ovladani = Createobject("wMPlayer.OCX.7" )
Set mechaniky = ovladani.cdromCollection
If mechaniky.count Then
For i = O To mechaniky.Count -
mechaniky.Item(i).Eject
Next
End If

[Uziv00]

Hehe! Spíše přemýšlej, jak se ten skript k tobě dostal
Nemá nic společného se systémem. Prostě napíše tu hlášku a pak se pokusí o vysunutí mechaniky. Zřejmě tam žádnou nemáš, proto to skončí chybou.
Bez obav to smaž. jde o tzv. joke.

[Dipp]

Heh.. ted je mi tak trochu trapne.. Jako.. ja to chtel smazal ale tk vis co nikdy nevis Diky moc za tvuj cas :)

--- Doplnění předchozího příspěvku (07 Dub 2013 11:15) ---

Tabulka uz nevyskakuje alep ocitac se chce sam vypinat dal..

[Uziv00]

A nemáš tam po spuštění ještě jeden? Jak vlastně rušíš vypínání pomocí cmd?
A není důvod aby ses cítil trapně. Nikdo učený z nebe nespadl....Někdo umí to a jiný tohle.

[Dipp]

mno prez prikaz shutdown -a

Ta tabulka co mi to oznamuje vypada presne jako kdyz do cmd napises napr shutdown -s -f -t 999 az na to ze vyskakuje sama od sebe pokazde kdyz zapnu pc.

[Uziv00]

Udělej log z HijakThis a pošli ho virobijcům na kontrolu. Něco tam po spuštění bude, ale je několik míst kde to mít v systému umístěno. Pokud tedy nemáš nic podezřelého v položce po spuštění, vytvoř ten log.