Send Value from VBScript to InfoPath Form

[lshields]

I am running the following VBScript behind a button on an InfoPath Form:

dim UserString
dim Domain
dim WSHNetwork
dim Workstation

Set WSHNetwork = CreateObject("WScript.Network")
UserString = WSHNetwork.UserName
Workstation = WSHNetwork.ComputerName

Obviously I am trying to obtain the current user and workstation name that is accessing the form for validation.

I would like to put the values of UserString and Workstation into fields on my InfoPath form but cannot figure out how to pass them.

Can anyone help me out?

Thanks