You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
68 lines
1.8 KiB
68 lines
1.8 KiB
'stop
|
|
|
|
'
|
|
' Type Library Constants (UPLOADMANAGERLib)
|
|
'
|
|
'
|
|
' Enums for IMPCUploadJob.Mode
|
|
'
|
|
Const UL_MODE_BACKGROUND = &H0
|
|
Const UL_MODE_FOREGROUND = &H1
|
|
'
|
|
' Enums for IMPCUploadJob.Status
|
|
'
|
|
Const UL_STATUS_NOTACTIVE = &H0
|
|
Const UL_STATUS_ACTIVE = &H1
|
|
Const UL_STATUS_SUSPENDED = &H2
|
|
Const UL_STATUS_TRANSMITTING = &H3
|
|
Const UL_STATUS_ABORTED = &H4
|
|
Const UL_STATUS_FAILED = &H5
|
|
Const UL_STATUS_COMPLETED = &H6
|
|
Const UL_STATUS_DELETED = &H7
|
|
'
|
|
' Enums for IMPCUploadJob.Flags
|
|
'
|
|
Const UL_HISTORY_NONE = &H0
|
|
Const UL_HISTORY_LOG = &H1
|
|
Const UL_HISTORY_LOG_AND_DATA = &H2
|
|
|
|
Set fso = CreateObject("Scripting.FileSystemObject")
|
|
|
|
Set obj = CreateObject( "UploadManager.MPCUpload" )
|
|
|
|
Set job1 = obj.CreateJob()
|
|
Set job2 = obj.CreateJob()
|
|
|
|
|
|
job1.Sig = "{2B12E858-F61B-11d2-938E-00C04F72DAF7}"
|
|
job1.Server = "http://dmassare2/pchealth/uploadserver.dll"
|
|
job1.ProviderID = "NonEsc"
|
|
job1.History = UL_HISTORY_LOG
|
|
job1.Mode = UL_MODE_BACKGROUND
|
|
job1.Priority = -10
|
|
job1.GetDataFromFile fso.GetAbsolutePathName( "test_files\100k" )
|
|
|
|
|
|
job2.Sig = "{2B12E858-F61B-11d2-938E-00C04F72DAF7}"
|
|
job2.Server = "http://dmassare2/pchealth/uploadserver.dll"
|
|
job2.ProviderID = "Esc"
|
|
job2.History = UL_HISTORY_LOG
|
|
job2.Mode = UL_MODE_BACKGROUND
|
|
job2.Priority = 10
|
|
job2.GetDataFromFile fso.GetAbsolutePathName( "test_files\100k" )
|
|
|
|
|
|
job1.ActivateAsync
|
|
|
|
while job1.SentSize = 0 and job1.Status < UL_STATUS_ABORTED
|
|
wscript.Echo "job1 " & job1.SentSize
|
|
wend
|
|
|
|
job2.ActivateAsync
|
|
|
|
while job1.Status < UL_STATUS_ABORTED or job2.Status < UL_STATUS_ABORTED
|
|
wscript.Echo "job1 " & job1.SentSize & " Status: " & job1.Status
|
|
wscript.Echo "job2 " & job2.SentSize & " Status: " & job2.Status
|
|
wend
|
|
|
|
|