InfoPath Dev

I have a button on my Infopath 2003 form that, when clicked, runs some code to pull the user's login name.  It stores this data in a variable called "user".  I would like to then push the value in "user" to a textbox called "Signature".  I realize that this shouldn't be that difficult, but am unfamiliar with InfoPath and VBscript.

Someone will have to help with the conversion (it shouldn't be very different), but in JScript you would write:

XDocument.DOM.selectSingleNode("/my:myFields/my:Signature").text = user;

Hi,

XDocument.DOM.selectSingleNode("/my:myFields/my:Signature").text = user

This is the VB script code to send user value into Signature. 

 

I hope this will help you.

 

Thank you for your fast replies.  I am anxious to your code out, however, I am getting an error with the first line of code that I already have.  Here is what it looks like:

 set x = CreateObject("WScript.network")

user = x.UserName

XDocument.DOM.selectSingleNode("/my:myFields/my:Signature1").text = user

 

Any thoughts on why this code isn't working?

 

Hi,

what error you are getting?

Did u initialize  the x and user variables as shown below? 

Dim X
set X = createobject("WSCRIPT.Network")
dim user
user=x.UserName

I hope this will help you.

Hi aehicks,

 

instead of "set x = CreateObject("WScript.network")" try

var x = new ActiveXObject("Wscript.Network");

It will work

Thanks Ramana and Shiva for your help.  Unfortunately, neither solutions are working yet. When I use the following code

Dim X
set X = createobject("WSCRIPT.Network")
dim user
user=x.UserName

I get an error that says "ActiveX component can't create object: 'WScript.Network'.

 When I use var x = new ActiveXObject("Wscript.Network"); instead of set X = createobject("WSCRIPT.Network") I get an invalid character error.  I'm guessing this is because this isn't VBscript.

 Any suggestions?  I appreciate your help.

Please ignore the suggestion for using "var = new ..." that is for JScript, not VBScript. It won't work in your situation because you are using VBScript.

Hi,

I tried below code, it is worked for me, you try with this code.

Dim X

set X = createobject("WSCRIPT.Network") 

XDocument.DOM.selectSingleNode("/my:myFields/my:field1").text=X.UserName