InfoPath Dev

 Hello!

I need  a solution to get the username value from the registry into a infopath textfield.(name of the textfield "field1").

I work with Infopath 2003, thereforce i cannot use the "username" function.

How I modify the following code.

Sub CTRL3_5_OnClick(eventObj)

      Dim Username

      set wshshell = createobject("Wscript.shell")

      Const strBaseKey = "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Logon User Name"

      Username = wshshell.regread(strbasekey)

      msgbox (Username)

Approximately (but i dont know the correct syntax) : myFields/my:field1").text = Username 

End Sub

Best regards

Philipp

Hi,

You can use below code to get the username.

And also verify below code to get user name without writing code.

http://blogs.microsoft.co.il/blogs/itaysk/archive/2007/04/05/InfoPath-_2D00_-Get-the-current-user-without-writing-code.aspx

 Hello!

Im not sure but the Code that you' ve been send me is written in c#, i need vbs (see above) ?

The second solution is not possible for me.

Best Regards

Philipp

 Hello!

I found the correct code:

I think it is a easy way to get the Username into a Textfield:

Dim Username set wshshell = createobject("Wscript.shell")

Const strBaseKey = "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Logon User Name"

Username = wshshell.regread(strbasekey)

XDocument.Dom.SelectSingleNode("my:meineFelder/my:Feld1").text = Username 

Regards

Philipp