UserIsLogedOnPCName

	'***********************************************************************;
	'                                                                       ;
	'	Returns Name of workstation the user is currently loged on to   ;
	'                                                                       ;
	'                                                                       ;
	'***********************************************************************

On Error Resume Next
Dim User
Dim UserName
Dim UserDomain
Dim Workstation
UserDomain = Inputbox("Indtast Domain","Returns Name of workstation the user is currently loged on to", "DELTABOY")
UserName = Inputbox("Indtast Brugernavn","Returns Name of workstation the user is currently loged on to", "Torben")
Set User = GetObject("WinNT://" & UserDomain & "/" & UserName & ",user")
'msgbox User
If User.LoginWorkstaions = "" then
	for each Workstation in User.LoginWorkstaions
		Msgbox Workstation, "User is login is found"
	Next
else
	Msgbox User.LoginWorkstaions & "1"
end if