big d

What I have been doing is setup constants for I=Information, E=Error,
W=Warning

'**********The start of every script I get the filename.
Source=Split(WScript.ScriptName, ".")(0)
LogIt I, Source, "This is a test" 'This would log to my file as a
information message.


Private Function LogIt (byVal strSeverity, strSource, strMessage)
'************************************************* ********
' Name: LogIt
' Purpose: Sends an entry to the debug log and displays to
' the screen
'************************************************* ********


Wscript.StdOut.WriteLine Now & "|" & strSource & "|" & strMessage

'If log file initialized write line to that
If Not IsEmpty(objLogFile) Then
objLogFile.Writeline Now & "|" & strSeverity & "|" & strSource & "|" &
strMessage
End If

End Function


*************************************
What I would like to do is be able to add properties to the LogIt Function

For example,

LogIt.Information Source, "This is a test"
LogIt.Error Source, "This is a test"
LogIt.Warning Source, "This is a test"

I have no idea how to do that. Any help is definently appreacited. Also, to
make this simple example in post, I actally use this LogIt function in
another script and use WSF file to leverage resuable code.

bg

There are a couple of ways that you can do this:

Thanks to VBScript 5 you can write a class directly in VBscript then
include the script in your WSF.
You can create a COM component in .NET and install it in you global
assembly cache (along with some other steps) and instantiate the
object from VBScript.
Create a legacy COM component in say VB6, register it and instantiate
it from you VBScript. In this case you should be able to copy the
code right over with minor refactoring.

ekkehard.horner

Big D schrieb:


see
http://www.visualbasicscript.com/m_24797/tm.htm

big d

The Logger class mentioned from site look like it will be a good starting
point. Thanks for pointing out site. I do have a few questions.

I have been using resuable code by implementing WSF files and including
other VBS files(<script language="VBScript"
src="C:\MSIF\Scripts\Helper\helper.vbs"/>) and writing functions for
functionality..lik e the logger I posted. Since I am progressing quickly
with vbscript and have not dived into the using vbscript classes, I was
wondering if you could or know of examples of how to use class for me to
come familiar with how to instantiate the logger. I understand most of code
but lack how to use the class. My thinking was not registering as a WSC
object and including in my WSF file. Can that be done versus registering as
a WSC?

My thoughts were to do the following in a WSF file(<script
language="VBScript" src="C:\MSIF\Scripts\Helper\Logger.vbs"/>

Set Logger = CreateObject("Logger") 'not sure how to use

I do not how to use the class? As always your help is appreacited.

ekkehard.horner

Big D schrieb:


[...]


This "library.vbs":

' library.vbs

Option Explicit

Dim gsGlobal : gsGlobal = "Globale Zeichenkette"

Sub doWhatIWant( sText )
MsgBox sText
End Sub

Function getWhatIWant( sText )
getWhatIWant = StrReverse( sText )
End Function

Class cClass

Public Sub about()
MsgBox "all about nothing"
End Sub

End Class

can be included in a plain .vbs:

' main.vbs

Option Explicit

ExecuteGlobal CreateObject( "Scripting.FileSystemObject" )_
.OpenTextFile( ".\library.vbs" )_
.ReadAll

doWhatIWant gsGlobal

Dim sFName : sFName = "getWhatIWant"
Dim fncFnc : Set fncFnc = GetRef( sFName )
WScript.Echo fncFnc( gsGlobal )

Dim oClass : Set oClass = New cClass
oClass.about
or a .wsf:
<?xml version="1.0" standalone="yes" encoding="iso-8859-1" ?>
<package>
<job id="main">
<script language="VBScript" src = "library.vbs"/>
<script language="VBScript">
<![CDATA[
' ################################################## ##########################
Dim oClass : Set oClass = New cClass
oClass.about ' ################################################## ##########################
]]>
</script>
</job>
</package>

To get a cClass object, use:

Dim oClass : Set oClass = New cClass

big d

I havebeen playing with logger class and can not get too work. I tried
calling all Public methods. Not sure if I am using wrong. I even passed the
wrong number on purpose to a Public function to see if its even working and
it threw an error as expected. At one point I used the Err object to see if
creating the class throws something other than 0.

Basically the log file never gets created in the c:\temp\ directory(deafult)

<?xml version="1.0" encoding="utf-8" ?>
<package>
<job id="testLogger">
<?job error="false" debug="false" ?>
<description>
</description>
<script language="VBScript" src="C:\MSIF\Scripts\Helper\Logger.vbs"/>
<script language="VBScript">
<![CDATA[
Dim Source
Source=Split(WScript.ScriptName, ".")(0)

Main() 'goto Main


Sub Main() 'Start here
'************************************************* ********
' Name: Main
' Purpose: Start of program
' Inputs: N/A
' Returns: N/A
'************************************************* ********

Set oLogger = New Logger
oLogger.LogBlankLine
oLogger.LogLine Warning, "Test Message"
oLogger.LogLine 2, "Test Message"
oLogger.LogLine 2 'Purposely pass in wrong # of arguments to see if the
class is even working. Throws error as expected.
End Sub
]]>
</script>
</job>
</package>