[THIN] Re: OT: VBScript assistance needed

I've not tested this...just put it together in Notepad, but why don't
you just use the Run method to execute logoff.exe?

 

Option Explicit

Dim objshell

Set objshell = WScript.CreateObject ("WScript.Shell")

objShell.Run "cmd.exe /c logoff.exe"

Set objshell = Nothing

wscript.quit(0)

 

Cheers,

Jeremy.

 

From: thin-bounce@xxxxxxxxxxxxx [mailto:thin-bounce@xxxxxxxxxxxxx] On
Behalf Of Andrew Wood
Sent: Tuesday, April 28, 2009 4:34 PM
To: thin@xxxxxxxxxxxxx
Subject: [THIN] Re: OT: VBScript assistance needed

 

Is this a pure TS environment? If you've Ctx you could use MFCOM you
could do :-

 

For each asession in oMFServer.Sessions

                Assession.logoff(false)

Next 

 

Where oMFServer is an metaframecom.metaframeserver object for the
current machine

 

Failing that you could always enumerate the sessions and run a logoff
command for each one. 

 

From: thin-bounce@xxxxxxxxxxxxx [mailto:thin-bounce@xxxxxxxxxxxxx] On
Behalf Of Steve Snyder
Sent: 28 April 2009 02:13
To: thin@xxxxxxxxxxxxx
Subject: [THIN] OT: VBScript assistance needed

 

trying to implement a logoff in vbscript, a la

set objOS -
getobject("winmgmts:{(Shutdown)}//.root/cimv2").execquery("select * from
win32_operatingsystem where primary=true")
for each objsys in objOS
  objsys.win32shutdown 0
next

 which works great on a 32bit windows system, not so great on a 64bit
windows system. Any ideas how to make this fly on 64bit?


#####################################################################################
Confidentiality and Privilege Notice 
This document is intended solely for the named addressee.  The information 
contained in the pages is confidential and contains legally privileged 
information. If you are not the addressee indicated in this message (or 
responsible for delivery of the message to such person), you may not copy or 
deliver this message to anyone, and you should destroy this message and kindly 
notify the sender by reply email. Confidentiality and legal privilege are not 
waived or lost by reason of mistaken delivery to you.
#####################################################################################

Other related posts: