Geting the user name

Question

I have the need to display the username of the current user on a form. (This will be used to index scanned paper and therefore it is important to know who indexed the document, scanning is after processing the papers).
Maybe this has been beaten to death. I browsed the internet and Adobes JavaScript manual. Seems the Identity object fullfills all my needs, but it is restricted in security. I'm not at all clear why the username poses a security threat, but regardless..
I'm not clear on how to proceed. As far as I got it, you have to write some JavaScript, that goes to the JS folder of Acrobat and sets some application level variables.
In the document I can set the fields from those global variables. But I want to distribute the form as a self contained document an not to have to roll out the JavaScripts to many desktops.
I tried to use the code within the form in a app.trustedFunction between app.beginPriv() and app.endPriv() but the console tells me that security setting prevent execution of this code?
What can I do or where have I gone wrong (for a change)?
Thanks,
/gerold

Answer 1

Got it!  Granted this isn't the way to really do it but it shows that you can use an IAC application via VB or VBScript (in this case) to populate a Designer based XML form with username (and other) information  using the JS Object.<br /><br />~T<br /><br />'Begin Code<br />Dim objNet<br />On Error Resume Next <br /><br />'In case we fail to create object then display our custom error<br /><br />Set objNet = CreateObject("WScript.NetWork") <br /><br />'Dim strInfo<br />'strInfo = "User Name is     " & objNet.UserName & vbCRLF & _<br />'          "Computer Name is " & objNet.ComputerName & vbCRLF & _<br />'          "Domain Name is   " & objNet.UserDomain<br />'MsgBox strInfo<br />     'create the script object<br /><br />  Dim sFSpec   ' FSpec of file to write <br />   Dim sXmlPfx  ' fixed xml prefix <br />   Dim sXmlSfx  ' fixed xml suffix <br />   Dim aMeta    ' fixed meta/tag info <br />   Dim aData    ' changing data <br /><br />' needs your attention  <br />   sFSpec  = "c:\test.xml" <br />   sXmlPfx = "<?xml version='1.0' encoding = 'UTF-8'?>" <br />   'sXmlPfx = sXmlPfx + "<form1>" <br />   'sXmlSfx = "</form1>" <br />   aMeta   = Array( "form1", "TextField1", "TextField2", "TextField3") <br /><br />   aData   = Array(   Array( objNet.UserName, objNet.ComputerName, objNet.UserDomain )_ <br />                  ) <br /><br />' should work as is <br />   Dim sXML <br />   Dim aItem <br />   Dim nIdx <br /><br />   sXmlPfx = Replace( sXmlPfx, "'", """" ) ' not without risk of replacing <br />   sXmlSfx = Replace( sXmlSfx, "'", """" ) ' "'"s you want to keep <br />   sXML    = sXmlPfx <br /><br />   For Each aItem in aData <br />       sXML = sXML + "<" + aMeta( 0 ) + ">" <br />       For nIdx = 1 To UBound( aMeta ) <br />           sXML = sXML + "<" + aMeta( nIdx ) + ">" <br />           sXML = sXML + aItem( nIdx - 1 ) <br />           sXML = sXML + "</" + aMeta( nIdx ) + ">" <br />       Next <br />       sXML = sXML + "</" + aMeta( 0 ) + ">" <br />   Next <br /><br />   sXML = sXML + sXmlSfx <br />   sXML = Replace( sXML, "><", ">" + vbCrLf + "<" ) ' poor man's format <br /><br />   CreateObject( "Scripting.FileSystemObject" ) _ <br />   .CreateTextFile( sFSpec, True ) _ <br />   .Write sXML <br /><br />     'create the script object<br />Set WshShell = WScript.CreateObject("WScript.Shell")<br />'use the wshell to launch Acrobat<br />WshShell.Run ("Acrobat.exe")<br />WScript.Sleep 1000<br /><br />  'open a file<br />  WshShell.run "Acrobat.exe c:\DesignerTest.pdf"<br /><br /> 'if Acrobat or no document is open you get an error message about not finding the file. <br />set WshShell = CreateObject ("Wscript.Shell") <br />WshShell.AppActivate("Adobe Acrobat") <br />WScript.Sleep 100<br /> <br /> 'get the active Document for use with JSObject <br />Set AcroApp = CreateObject("AcroExch.App")  <br />Set AVDoc = AcroApp.GetActiveDoc  <br />Set PDDoc = AVDoc.GetPDDoc  <br />set jso = PDDOC.GetJSObject <br /><br />jso.importXFAData "/c/test.xml"<br /><br />'End Code