user connect in a PC on Domain

[guif]

Hi!
with this script, i know the user corrently logged in my computer:

strComputer = inputbox("Dime el PC y te dire el usuario:")
If strComputer = "" then WScript.Quit
set objWMI = GetObject("winmgmts:{impersonationLevel=impersonate}!//" & strComputer & "")
set colOS = objWMI.ExecQuery("Select * from Win32_ComputerSystem")

For Each objItem In colOS
if strUsers <> "" then
strUsers = strUsers & ", " & objItem.UserName
else
strUsers = objItem.UserName
End If
Next
wscript.echo "The following user(s) are logged on to " & strComputer & ":" & strUsers

...but i would like to know the user connect in a PC on my domain. My domain is named SERVER_1.

Help me please!!!!

 

[SubsonicAbercrombie]

Just put the Domain name in the place of your computer name and you're good to go. The neat thing is that if the code runs on the local machine, the domain switches to the name of the machine automatically. Happy coding.

 

[guif]

in my code, where can I change it?

 

[GrimR]

On error resume next
Const ForReading = 1

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile _
    ("C:\workstationlist.txt", ForReading)
strText = objTextFile.ReadAll
objTextFile.Close
arrComputers = Split(strText, VbCrLf)

For Each strComputer In arrComputers
    Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
    Set colItems = objWMIService.ExecQuery("Select * from Win32_ComputerSystem",,48)
    For Each objItem in colItems
        Wscript.Echo "UserName: " & objItem.UserName & " is logged in at computer " & strComputer
    Next
    Set objItem = Nothing: Set colItems = Nothing: Set objWMIService = Nothing
Next

 

[guif]

i don't understand....

 

[SubsonicAbercrombie]

Let's see if I'm understanding you. You want to know what users are connected your computer correct?

 

[SubsonicAbercrombie]

Got code for you. Apparently there are two approaches. One requires a field trip to your registry (Nasty I know). The other uses the approach I have written below. The rub..... it only works on Windows XP and up (2003,2008 Server and Vista).

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_ServerConnection",,48)
For Each objItem in colItems
Wscript.Echo "ActiveTime: " & objItem.ActiveTime
Wscript.Echo "Caption: " & objItem.Caption
Wscript.Echo "Status: " & objItem.Status
Wscript.Echo "UserName: " & objItem.UserName
Wscript.Echo "ComputerName: " & objItem.ComputerName
Wscript.Echo "ShareName: " & objItem.ShareName
Next

 

[GrimR]

The script I posted will go through a list of computers you provide in the text file, and will tell you who is logged on to each machine in the list.
Is that not what you were looking for.

 

[guif]

but your code is not running...

 

[guif]

i would like that my script says the user connect in this moment in a PC.
My script answer what's the PC with an inputbox

 

[GrimR]

Change this line "C:\workstationlist.txt" to where you have your file list of computers.
They should be as follows:
Computer1[Name of your computer]
Computer2
Computer3
Because the array is split with VBCRlf(Visual Basic Carriage Return Line Feed, good old type writer)
arrComputers = Split(strText, VbCrLf)

 

[GrimR]

And I would like a Ferrari

On error resume next
Set objFSO = CreateObject("Scripting.FileSystemObject")

strComputer = inputbox("Dime el PC y te dire el usuario:")

    Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
    Set colItems = objWMIService.ExecQuery("Select * from Win32_ComputerSystem",,48)
    For Each objItem in colItems
        Wscript.Echo "UserName: " & objItem.UserName & " is logged in at computer " & strComputer
    Next
    Set objItem = Nothing: Set colItems = Nothing: Set objWMIService = Nothing