#!/bin/perl

use Expect;

$text = "TestShutdown";
$user = "test_admin";
$pw   = "admin12345";

#--- CONFIGURATION -----------------------------------------------------------#
$cmd    = 'runas /user:$user "shutdown -s"';
$prompt = "[Pp]assword";

#--- START RUNAS LOGIN SEQUENCE ;;! ----------------------------------------------#
$exp = new Expect();
$exp->raw_pty(1);
$exp->spawn($cmd) or die "spawn failed";

#--- LOGIN AND INTERACT ! ----------------------------------------------------#
$exp->expect(10000, [ $prompt => sub { $_[0]->send("$pw\n"); } ]);
$exp->interact();