Listing 3: Code to Customize in Computer_Inventory.vbs

Const ForReading = 1
Const ForWriting = 2
Const Forappend = 8

' ------- BEGIN CALLOUT A -------
filecomputer = ".\computer.txt"
' ------- END CALLOUT A -------

strComputer = "."
Star = "*"

' ------- BEGIN CALLOUT B -------
dbname = "inventory.mdb"
tablename = "Inventory"
' ------- END CALLOUT B -------

' ------- BEGIN CALLOUT C -------
logfilename = ".\inventory.log"
' ------- END CALLOUT C -------

Const adOpenStatic = 3
Const adLockOptimistic = 3