文档介绍:Action_Init
Option Explicit
'=====================================================
Dim fso,file,filename,objTestLib,objmsgbox
'=====================================================
'create a new file system object to output information
Set objTestLib = createobject("")
'create a new sqamsgbox object
Set objmsgbox = CreateObject("")
'=====================================================
'add global varibles to global sheet
"filename", ""
"UI_Flag",""
"Appno1", ""
"Appno2", ""
"Appno3", ""
'=====================================================
'define a global file name variable
filename = "c:\log\log" & mid(date,1,2) & mid(date,4,2) & ""
DataTable("filename",dtGlobalSheet) = filename
Set fso = CreateObject("")
Set file = (filename,2,True)
'=====================================================
Call (file,3,"The beginning of all the scripts!")
"We will start demo for Presidio" ,"AA Auto Test",3,0
'===========================================
Set objTestLib = nothing
Set objmsgbox = nothing
Set fso = nothing
Set file = nothing
Login As Admin
Option Explicit
'=================================================================
Dim fso,file,filename,objTestLib,objmsgbox
Dim UI_Flag,TrueOrFlase
'fetch filename form the global sheet
'filename = "c:\"
filename = ("filename",dtGlobalSheet)
'=================================================================
'create a new file system object to output information
Set fso = CreateObject("")
Set file = (filename,8,True)
Set objTestLib = createobject("")
'create a new sqamsgbox object
Set objmsgbox = Cre