Создание и запись строк в файл

Можно ли создать файл и написать строки в vbscript?

Нечто похожее на echo в bat файле (echo something something >>sometextfile.txt).

При выполнении vbscript в зависимости от пути script будет создан файл autorun.inf для выполнения конкретной программы (\smartdriverbackup\sdb.exe).

Также как я могу удалить/удалить букву диска из полного пути к файлу?

Ответ 1

Set objFSO=CreateObject("Scripting.FileSystemObject")

' How to write file
outFile="c:\test\autorun.inf"
Set objFile = objFSO.CreateTextFile(outFile,True)
objFile.Write "test string" & vbCrLf
objFile.Close

'How to read a file
strFile = "c:\test\file"
Set objFile = objFS.OpenTextFile(strFile)
Do Until objFile.AtEndOfStream
    strLine= objFile.ReadLine
    Wscript.Echo strLine
Loop
objFile.Close

'to get file path without drive letter, assuming drive letters are c:, d:, etc
strFile="c:\test\file"
s = Split(strFile,":")
WScript.Echo s(1)

Ответ 2

Вам нужно будет иметь дело с File System Object. См. Образец метода OpenTextFile.

Ответ 3

Выведите данные в текстовый файл. Сохраните это как файл.vbs и запустите. Выход будет сохранен в D:\key.txt

    Set WshShell = CreateObject("WScript.Shell")
MsgBox ConvertToKey(WshShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\DigitalProductId"))

Function ConvertToKey(Key)
Const KeyOffset = 52
i = 28
Chars = "BCDFGHJKMPQRTVWXY2346789"
Do
Cur = 0
x = 14
Do
Cur = Cur * 256
Cur = Key(x + KeyOffset) + Cur
Key(x + KeyOffset) = (Cur \ 24) And 255
Cur = Cur Mod 24
x = x -1
Loop While x >= 0
i = i -1
KeyOutput = Mid(Chars, Cur + 1, 1) & KeyOutput
If (((29 - i) Mod 6) = 0) And (i <> -1) Then
i = i -1
KeyOutput = "-" & KeyOutput
End If
Loop While i >= 0
ConvertToKey = KeyOutput
Set objFSO=CreateObject("Scripting.FileSystemObject")

outFile="d:\key.txt"
Set objFile = objFSO.CreateTextFile(outFile,True)
objFile.Write ConvertToKey & vbCrLf
objFile.Close
End Function