Display VBscript function as a field

[lmayer3]

Good morning,

I have a VBScript function:

<script language="VBScript" type="text/vbscript">
Function Main()
set wshshell = createobject("wscript.shell")
struser = wshShell.ExpandEnvironmentStrings("%USERNAME%")
strdomain = wshShell.ExpandEnvironmentStrings("%USERDOMAIN%")
msgbox struser & strdomain
End Function
</script>

That works great as a Active X script but I want this to display as a value in a text field and I can't find how o do that. Can anyone direct me? Thanks

Laura

 

[henna]

hi,
assign the return value the function

eg
function Main()
...
Main = strUser & " " & strdomain
end function

to bind the value to a textbox in html
<input type="text" name="blah" id="blah" value="=Main()">

I would also suggest for you to change the name of the function to a more descriptive one.

 

[lmayer3]

Thanks for that. Now I get %USERNAME% in the text field instead of the login name.

 

[henna]

Hi,
You dont have to use ActiveX objects to get the user and domain names on an ASP page. You can get them directly with
on you asp page..

Dim LoggedOnUser, ServerName

LoggedOnUser = Request.ServerVariables("Log_User")
ServerName = Request.ServerVariables("Server_Name")

in you html tag...

<input type="text" name="txtLoggedOnUser" value="<% =LoggedOnUser %>">

<input type="text" name="txtServerName" value="<% =ServerName%>">



Thanks
Aiyaz