Fråga : Slutlig server för Query via vbscript

Kära experter, den pröva förmiddagen för
I att query de öppnade perioderna på en slutlig server rinnande Windows 2008 R2 från ett Windows 2008 R2.
I behov att hämta username, sessionid och för class=" underline " för status.
I önskar inte att använda bearbetar liksom quser, eller similars, jag önskar att använda rak vbscript code.
As långt, som jag vet att jag inte kan uppnå denna using WMI.
I googled den A LOT, det verkar oss är besegrar till två alternativ:

- EOLWTSCOM: tyvärr har detta företag försvunnit, I grundar deras dll på en annan website, men han fungerar endast på Windows Xp /2003
- WTSAPI: WTSAPI32.dll: Detta verkar för att vara långt att gå men: för class=" codeSnippet " för

1 för >serverhandle " för prettyprint " för class= för id= " codeSnippet858213 " för >

returns: Typmismatch: ”WTSopenserver” (denna I-funderare hjälpmedel som den inte fann, som fungerar). idé för

Any?

Thanks i förskott,
Roberto.
" klar "

Svar : Slutlig server för Query via vbscript

HTH,
exx

1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11:

server = ”MyServer”, Uppsättning ws = CreateObject (”WScript.Shell”) Fastställd oExec = ws. Exec (”quser /server: ” & server) Gör WScript.Sleep 10 Kretsa till oExec.Status = 1 Gör till oExec.stdOut.atEndOfStream 'mellanlägget kodifierar här för att utvärdera tillverkat 'ska oExec.StdOut.readLine låter dig ta fram tillverkad 'man fodrar i sänder Kretsa