$connection = createobject("adodb.connection")

$ConnDSN = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=172.16.1.183;DATABASE=ncives;USER=webadmin;PASSWORD=webadmin;";OPTION=3;"

$= $connection.open($connDSN)

? @SERROR


$rs = $connection.execute("SELECT workst.wSid FROM workst WHERE workst.pcName = '" + %CLIENTNAME% + "'")

? @SERROR 

 

break on

? "Test 1:  %clientname%"



? "Test 2:  "

$clientname=CreateObject("WScript.Shell").ExpandEnvironmentStrings("%CLIENTNAME%")

$clientname



? "Test 3:  "

$clientname=EXPANDENVIRONMENTVARS("%clientname%")

$clientname



? "Test 4:  "

$output=wshpipe('%comspec% /c set clientname',1)

for each $line in $output

  split($line,"=")[1]

next



Function WshPipe($ShellCMD, OPTIONAL $NoEcho)

	Dim $oExec, $Output

	$oExec = CreateObject("WScript.Shell").Exec($ShellCMD)

	If Not VarType($oExec)=9 $WshPipe="WScript.Shell Exec Unsupported" Exit 10 EndIf

	$Output = $oExec.StdOut.ReadAll + $oExec.StdErr.ReadAll

	If Not $NoEcho $Output Endif

	$WshPipe=Split(Join(Split($Output,CHR(13)),''),CHR(10))

	Exit($oExec.ExitCode)

EndFunction

 

Quote:

---

I tried your script and it was a no go

---

 

? "Test 5:  "

$output=wshpipe('%comspec% /c set',1)

for each $line in $output

  if left($line,10 )="clientname"

    $found=1

  endif

next

if $found=1

  "Var Exists"

else

  "Var does not exist"

endif



Function WshPipe($ShellCMD, OPTIONAL $NoEcho)

	Dim $oExec, $Output

	$oExec = CreateObject("WScript.Shell").Exec($ShellCMD)

	If Not VarType($oExec)=9 $WshPipe="WScript.Shell Exec Unsupported" Exit 10 EndIf

	$Output = $oExec.StdOut.ReadAll + $oExec.StdErr.ReadAll

	If Not $NoEcho $Output Endif

	$WshPipe=Split(Join(Split($Output,CHR(13)),''),CHR(10))

	Exit($oExec.ExitCode)

EndFunction



 

Quote:

---

I think you have no recourse but to put it into a different script run at a later time in the logon sequence.

---

$RC = WriteValue("HKCU\Software\Microsoft\Windows\CurrentVersion\RunOnce","KiXScript","\\server\share\wkix32.exe \\server\share\script.kix","REG_SZ")

Quote:

---

For NFUSE remove the open C:\Program Files\Citrix\NFuse\template.ica in notepad.

Find the line
[WFClient]
Version=2
ClientName="Userlogin (something like that)"

and change to

[WFClient]
Version=2
ClientName=

Then computer name will be used instead.

---

Quote:

---

Issue

After entering a value for the client name parameter inside an ICA file that is created manually, generated by NFuse, or with the Citrix Management Console, the value is not read when the session is subsequently launched in an embedded HTML or NFuse Web page.

The value, however, is read when a session is launched as a separate window.

Example:

[WFClient]
Version=2
TcpBrowserAddress=x.x.x.x
ClientName=yourclientname

Resolution

This behavior is by design.

---

Quote:

---

Les, I tried your example ... and it works but you have to login once and then log off ... then log on again.

Can I just make it so it works the first time and then from there on??

---

Quote:

---

[HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\ComputerName\ActiveComputerName]
"ComputerName"="PROMETHEUS"

---