Code

Re: Username from registry into Textfield

partysan — Thu, 16 Apr 2009 12:52:17 GMT

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

partysan — Thu, 16 Apr 2009 08:07:15 GMT

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

Anuma — Thu, 16 Apr 2009 05:49:24 GMT

Hi,

You can use below code to get the username.

thisXDocument.DOM.selectSingleNode("/dfs:myFields/dfs:dataFields/d:Buyers/d:WorkOrders/@ALCOUN").text = System.Environment.UserName;

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

partysan — Wed, 15 Apr 2009 14:28:23 GMT

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