system_lib.vbs

'''''''''''''''''''''''''''
'
' Author : Shay Ashkenazi
'
' VBScript System Library
'
'''''''''''''''''''''''''''

' Run system command
Function Run(command)
	Run = WScript.CreateObject("WScript.Shell").Run command
End Function

' Kill System process
Function KillProcess(process)
	KillProcess = CreateObject("WScript.shell").Exec "taskkill /IM " & process
End Function

' Read file from file system
Function ReadFile(path)
	Set objFileToRead = CreateObject("Scripting.FileSystemObject").OpenTextFile(path, 1)
	raw = objFileToRead.ReadAll()
	objFileToRead.Close
	Set objFileToRead = Nothing
	ReadFile = raw
End Function

' Write string to a file
Function WriteToFile(path, text)
	Set objFileToWrite = CreateObject("Scripting.FileSystemObject").OpenTextFile(path, 2, true)
	objFileToWrite.Write(text)
	objFileToWrite.Close
	Set objFileToWrite = Nothing
End Function