0

This question may be a little stupid, but i'm curious if it is possible or not. I have a file named library.xxx(contains vbscript code), which contains predefined functions. And i have an other file test.vbs(also contains vbscript code, just here i use the functions, which are defined in library.xxx). In test.vbs the library is "included", which means, i can use the functions from library.xxx. For example, there is a function called ProgramFiles, and if i call it in test.vbs, i will receive the Program Files folder location.

The problem is, that library.xxx is visible in this way. There is an application called ScriptCryptor. With this application, i can open my library.xxx and make an .exe of it, which would be better for me, since it is not clear text.

My problem is now, how could i execute the command which are called in test.vbs? I think i should read line by line the test.vbs file, and process it somehow. But how? How do i know if the line i read is a function or just a variable? Or both? And how to process them?

Is there some way to do that?

Hopefully it is understandable what i want.

Thanks!

kampi
  • 2,362
  • 12
  • 52
  • 91

1 Answers1

1

By far the easiest way to accomplish this is to include "library.vbs" in to your "test.vbs" file.

For example:

Library.vbs:

Function ProgramFiles()

    ProgramFiles = "C:\Foo"

End Function

test.vbs:

sub includeFile (fSpec)
    dim fileSys, file, fileData
    set fileSys = createObject ("Scripting.FileSystemObject")
    set file = fileSys.openTextFile (fSpec)
    fileData = file.readAll ()
    file.close
    executeGlobal fileData
    set file = nothing
    set fileSys = nothing
end sub

includeFile "library3.vbs"

wscript.echo ProgramFiles

Your question seems to indicate that you may already be doing this so if you are then I apologize.

=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=

If clear text truly is bothering you then from what I have seen there is no way to make the executable from ScryptCryptor to be made available to your vbscript.

Instead you could create a COM Library DLL to be used as an object in your test.vbs file.

The downside to this is that it will be necessary to learn a new language. Visual Studio Visual Basic certainly is different from Windows Shell Script Visual Basic but it would work for what you want.

Steps to take:

  1. Download Visual Studio 2013 Express for Windows Desktop (or trial version of Ultimate or whatever you feel is appropriate for you)
  2. Open Visual Studio as an Administrator
  3. Create a new Project. Select a "Class Library" under the "Visual Basic" templates

  4. Copy and paste the code below

    <ComClass(OurLibrary.ClassId, OurLibrary.InterfaceId, OurLibrary.EventsId)> Public Class OurLibrary

    Private userNameValue As String

Public Const ClassId As String = "40491A82-D53A-46A6-B7E0-1CDF78A33AB6"
Public Const InterfaceId As String = "B49C996C-B039-471D-BF17-0DDA5B3CF517"
Public Const EventsId As String = "6245E3DD-DEB5-4B75-AC03-F4430BC18FDE"

Public Sub New()

    MyBase.New()

End Sub

Public Sub mycopy(mySource As String, myDest As String)

    My.Computer.FileSystem.CopyFile(mySource, myDest, True)

End Sub

    End Class

  5. Click on Project -> ClassLibrary1 Properties

  6. Click on "Compile" and check the box for "Register for COM interop"
  7. Click on Build -> Build Solution

You now have a library that your test.vbs can use:

Set myLib = CreateObject("ClassLibrary1.OurLibrary")

mySource = "C:\mytextfile1.txt"
myDest = "C:\mytextfile2.txt"

myLib.mycopy mySource, myDest

If your like me test.vbs needed to be called as C:\Windows\SysWOW64\cscript.exe test.vbs

For more information about creating COM classes in Visual Basic see here: Walkthrough: Creating COM Objects with Visual Basic

Sean W.
  • 863
  • 5
  • 14
  • Yes, you are right. That's what i do now, but the clear text is big problem. With the ScriptCryptor generated .exe the teest.vbs, what was given as a parameter to the exe i was able to use the functions. That worked fine. The problem was "only" with the complicated statements. If i read a line, i can use Execute or ExecuteGlobal, to execute the current line, but if the line is a complex statement in a syntax that stays from more line, than i will get a syntax error. Example ´If Architecture = "x86" Then a=10 b=4 Else a=0 b=0 End If´ In this case if i read a line and execute it, i get a ... – kampi Jun 10 '14 at 20:12
  • ...syntax error, because there is no else nor End If. I thought on the hard way to. Maybe it is possible to write a small function which read the line, and if there is no End If, then read it until it is found, store the lines in a variable, and then execute it. This could theoratically work. But it is not that simple to handle every possible syntax. This would theoratically do what i want. But who knows which case did i forget? :) I have to give it a try – kampi Jun 10 '14 at 20:16
  • in the first comment the example i wanted to write it in seperate rows. – kampi Jun 10 '14 at 20:16