Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Dim FSO, MyFile
- Set FSO = CreateObject("Scripting.FileSystemObject")
- Set MyFile = FSO.CreateTextFile("C:.bat", True)
- MyFile.WriteLine("@echo off")
- MyFile.WriteLine("chcp 1251 >nul")
- MyFile.WriteLine("echo "&WScript.FullName&"")
- MyFile.WriteLine("pause >nul")
- MyFile.Close
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement