I want to thank you for the opportunity to contribute and be part of this great project. It's been a while since the scanner was in its beginning and it was not even half as great as it is today. In a certain way, we, netscan users, have been at your side, supporting you and enjoying your success. Everyone can navigate the forum and read every comment, suggestion, or request answered and well developed by you to understand what I mean.
1) Doing some test on netscan new feature i found an strange behavior in the copy (ctrl+C) command.
As for the next Example (* 2) ) the new item name was correct after pasting it but the contents was about just one line (strComputer = input.current). I don't know is that what you want but i think maybe is better to have the new item exactically to its source.
*2) The following script has been tested so you can share it:
Is to display User Full Name (displayName)
strComputer = input.current Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colItems = objWMIService.ExecQuery _ ("Select * from Win32_Process Where Name = 'explorer.exe'") If colItems.Count = 0 Then output.write "No one is logged on to the computer." Else For Each objProcess in colItems objProcess.GetOwner strUser,strDomain Next End If Const ADS_SCOPE_SUBTREE = 2 Set objConnection = CreateObject("ADODB.Connection") Set objCommand = CreateObject("ADODB.Command") objConnection.Provider = "ADsDSOObject" objConnection.Open "Active Directory Provider" Set objCommand.ActiveConnection = objConnection objCommand.Properties("Page Size") = 1000 objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE objCommand.CommandText = "SELECT displayName FROM " & _ "'LDAP://DC=domain_name,DC=local' WHERE " & _ "objectCategory='user' " & _ "AND samAccountName = '" & strUser & "'" Set objRecordSet = objCommand.Execute objRecordSet.MoveFirst Do Until objRecordSet.EOF output.write objRecordSet.Fields("displayName").Value objRecordSet.MoveNext Loop