To use different Username and Password for Windows Application, we use
this login script, which is a modifcation.
This script reset the ssgd username and password which is in argv.
# $Id: wcpwts.exp,v 1.15 2005/06/20 19:15:56 peterc Exp $
# Copyright (C) 1998-2005 Tarantella, Inc.
#
# wcpwts.exp: expect script to start a Windows Terminal session
#
source tbsLIB.exp
global argv env
set timeout 60
set xauthcookie ""
set uname ""
set pword ""
set promptForAuth 0
tarantella -nosocket
################################################################
#Set our Environment Variables
################################################################
set vars [split $env(TTA_ENVIRONMENT) ";" ]
foreach i $vars {
set idx [string first "=" $i]
set name [string range $i 0 [expr $idx - 1] ]
set value [string range $i [expr $idx + 1] [string length $i] ]
if {$name == "ALTDISPLAY"} {
set ALTDISPLAY $value
} elseif {$name == "DISPLAY"} {
set DISPLAY $value
} elseif {$name == "TTA_XAUTHCOOKIE"} {
set xauthcookie $value
}
}
################################################################
#Check everything we need to run is there
################################################################
if { ![info exists env(TTA_AppletWidth)] || ![info exists
env(TTA_AppletHeight)] } {
send_error "No Resolution Parameters Specified\n"
exit $exitCode(ErrCommandExecutionFailed)
}
if { ![info exists env(TTA_CONNECTIONSERVICE)] } {
send_error "No Transport Parameter Specified\n"
exit $exitCode(ErrCommandExecutionFailed)
}
if { ![info exists env(TTA_Domain)] } {
scan $env(TTA_HOSTNAME) "%\[A-z\]" DOMAIN
} else {
set DOMAIN $env(TTA_Domain)
}
if { [info exists env(TTA_ApplicationPlacement)] } {
if { $env(TTA_ApplicationPlacement) == "MultipleWindows" } {
send_error "Cannot run with the client window manager\n"
exit $exitCode(ErrCommandExecutionFailed)
}
}
################################################################
#Build the command line. You may want to substitute
#DISPLAY for ALTDISPLAY
################################################################
set ProtocolCmd "ttatsc"
if {[string length "$uname"] > 0} {
set USERCMD "-user"
#is the user in the form of domain\user
set idx [string first "\\" $uname]
if { $idx != -1 } {
set DOMAIN [string range $uname 0 [expr $idx - 1] ]
set uname [string range $uname [expr $idx + 1] [ string length
$uname ]]
}
} else {
set USERCMD {}
}
if {[string length "$pword"] > 0} {
set PASSWORDCMD "-password"
} else {
set PASSWORDCMD {}
}
if {[string length "$DOMAIN"] > 0} {
set DOMAINCMD "-domain"
} else {
set DOMAINCMD {}
}
if {[string length $xauthcookie] > 0} {
set XAUTHCOOKIECMD "-xauthcookie"
} else {
set XAUTHCOOKIECMD {}
}
# Do we have an initial command to run or is it a full desktop session?
set APPCMD {}
set APP {}
if { [info exists env(TTA_FilePath)] } {
if { $env(TTA_FilePath) != "" } {
# Is this just a placeholder to start a new session?
if { $env(TTA_FilePath) != "-" } {
set APPCMD "-application"
set APP "$env(TTA_FilePath)"
if { [info exists env(TTA_Arguments)] } {
if { $env(TTA_Arguments) != "" } {
append APP " $env(TTA_Arguments)"
}
}
}
}
}
set AUDIOQUALITY "medium"
if { [info exists env(TTA_AudioQuality)] } {
if { $env(TTA_AudioQuality) != "" } {
set AUDIOQUALITY "$env(TTA_AudioQuality)"
}
}
set TTATSC_ARGUMENTS {}
if { [info exists env(TTA_ProtocolArguments)] } {
set TTATSC_ARGUMENTS "$env(TTA_ProtocolArguments)"
}
set SWM {}
if { [info exists env(TTA_ApplicationPlacement)] } {
if { $env(TTA_ApplicationPlacement) == "seamlesswindows" } {
set SWM "-swm"
}
}
set NAMECMD ""
set TTATSC_NAME ""
################################################################
# Pre-version 3.42 client name settings
################################################################
#set NAMECMD "-name"
#set TTATSC_NAME "tarantella user"
#if { [info exists env(TTA_DisplayName)] } {
# set TTATSC_NAME "$env(TTA_DisplayName)"
#} else {
# if { [info exists env(TTA_UserName)] } {
# set NAME $env(TTA_UserName)
# if [ expr [string first ".../_anon/" $NAME ] != 0 ] {
# set idx [string last "/" $NAME]
# set TTATSC_NAME [string range $NAME [expr $idx + 1] [string
length $NAME ] ]
# } else {
# set TTATSC_NAME "anonymous"
# }
# }
#}
################################################################
#Execute the command
################################################################
set env(TTATSC) "$TTATSC_ARGUMENTS"
set TTATSC1 "$USERCMD $uname\n$PASSWORDCMD $pword\n$XAUTHCOOKIECMD
$xauthcookie\n\n"
if [catch {exec -- echo $TTATSC1 | $ProtocolCmd "-audioquality"
$AUDIOQUALITY $SWM "-stdin" "-display" $DISPLAY $DOMAINCMD $DOMAIN
$APPCMD $APP $NAMECMD "$TTATSC_NAME" $env(TTA_HOSTNAME) } res ] {
set err [lindex $errorCode [expr [llength $errorCode] - 1]]
send_error "\n"
if {$err == 8} {
send_error "Failed to connect to host $env(TTA_HOSTNAME)\n"
exit $exitCode(ErrApplicationServerConnectionFailed)
} elseif {$err == 2 } {
send_error "Cannot run with a window manager\n"
exit $exitCode(ErrWindowsManagerExists)
} elseif {$err == 3 } {
send_error "Invalid desktop size\n"
exit $exitCode(ErrInvalidDesktopSize)
} elseif {$err == 4} {
send_error "The temporary Terminal Services license has expired\n"
exit $exitCode(ErrTscLicenseError)
} elseif {$err == 5} {
send_error "No Terminal Services licenses are available\n"
exit $exitCode(ErrTscLicenseError)
} elseif {$err == 6} {
send_error "The Terminal Services license is invalid\n"
exit $exitCode(ErrTscLicenseError)
} elseif {$err == 7} {
send_error "Unknown Terminal Services license error\n"
exit $exitCode(ErrTscLicenseError)
} else {
send_error "$res (error = $err)\n"
send_error "$exitMessage(ErrCommandExecutionFailed)\n"
exit $exitCode(ErrCommandExecutionFailed)
}
}
##############################################################
# Tarantella Backplane Service (c) by Tool Box Solution GmbH
#############################################################
tbsMainProcedure
#############################################################
Andreas Höschler schrieb:
Hi all,
we are accessing a windows machine through SGD. The Application
command is c:\\Windows\explorer.exe which gives us a fullscreen
windows session. Usually when clicking on the WinFullScreen icon on
the ttwebtop the windows login panel is raised. This no longer happens
for a specific user. Clicking on the icon immediately opens the
fullscreen session without raising the windows login panel. Some auto
login is taking place. I assume that this user clicked the "Save this
password?" switch when connecting initially. How can I get rid of this
and back to the windows login panel. The user needs to access the
windows machine with a different account.
Thanks a lot!
Regards,
Andreas
_______________________________________________
SGD-Users mailing list
[email protected]
http://node1.filibeto.org/mailman/listinfo/sgd-users
--
*ToolBox Solution GmbH*
CEO/CTO Tillmann A. Basien
Balinger Straße 37A
D-70567 Stuttgart
Fon: +49 (0) 711 71 68 631
Hy : +49 (0) 173 87 38 987
Fax: +49 (0) 711 45 70 899
*** Sun Microsystems OEM Partner ***
mailto:[EMAIL PROTECTED] / http://www.tbsol.de <http://www.tbsol.de>HRB: 23711
This message and any files or documents attached are strictly
confidential or otherwise legally protected. It is intended only for the
individual or entity named. If you are not the named addressee or have
received this email in error, please inform the sender immediately,
delete it from your system and do not copy or disclose it or use it for
any purpose. Please also note that transmission cannot be guaranteed to
be secure or error-free.
_______________________________________________
SGD-Users mailing list
[email protected]
http://node1.filibeto.org/mailman/listinfo/sgd-users
