Unattended Remote User Login Script

[dmbarnett]

I have a network with W2K servers and workstations. I need to create a script that will allow a process running on a server (or other workstation) to perform an unattended login of a user on a workstation that is at the Alt-Ctrl-Del state. Does anyone know of such a script or have any ideas on the best way to create one?

Thanks for the help.

DB

[Marsden]

Not with the Ctrl-Alt-Del...

[Dahi]

The server could set Autologon in the workstation registry then remotely reboot it with shutdown.

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon]
"DefaultUserName"="User name"
"DefaultPassword"="12345678"
"DefaultDomainName"=""
"AutoAdminLogon"="1"
"AutoLogonCount"=1

By the way, why logon? You can run processes on remote workstations as any user without having to login.

[dmbarnett]

I wouldn't need to logon except in w2k the defrag is no longer executable either as an AT command or any otherway that I can figure out. That is the only program that I can't get to work.

Thanks

[Marsden]

Use Diskeeper "Set It and Forget It" and then no need to logon.

[Marsden]

Const ForReading = 1

strInputFile = "C:\ComputerList.txt"

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextStream = objFSO.OpenTextFile(strInputFile, ForReading)
arrComputers = Split(objTextStream.ReadAll, vbCrLf)
objTextStream.Close

Set StdOut = WScript.StdOut

On Error Resume Next
For Each strComputer In arrComputers

      Set objWMIService = GetObject("winmgmts:" & _
          "{impersonationLevel=Impersonate}!\\" _
               & strComputer & "\root\cimv2")
      If Err.Number Then
         StdOut.WriteLine "ERROR:   " & strComputer & _
               " [WMI connection failed]"
         Err.Clear
      Else
         WScript.Echo "Computer " & strComputer & vbNewLine
         Set colPnPDevices = objWMIService.ExecQuery _
             ("Select * from Win32_PnPEntity",,48)
         For Each objPnP in colPnPDevices
             Wscript.Echo "Name: " & objPnP.Name
         Next
      End If
Next