New Tips Added Weekly!
Click here to get on our Mailing List

Expert - Level 1

User

Want to show the Current User on the Form?

	Sub GetUserName()
		Set WshNetwork = CreateObject("WScript.Network")
		'Now simply grab the user's windows loginID and 
		'save to variable GetUser to use later in pasting
		Dim GetUser
		GetUser = WshNetwork.UserName 
		Set WshNetwork = Nothing
		user.innerHTML = "<p>" & GetUser & "</p>"
	End Sub
	

	<div id="user">
		<script Language="VBScript">
			GetUserName()
		</script>
	</div>
	

You can then use this value to update logs in a db etc.

Sample Files
User.hta

By: Alex Hedley

Click here to sign up for more FREE tips