#!/usr/bin/perl

# 1 = server name (FQDN)
# 2 = script name (on remote machine)
# 3 = username (if any)
# 4 = Password (if you specified a username)

if($ARGV[0] eq "")
{
print <<HELP;
$0
Execute programs on remote Windows NT/2k boxes.

Usage : $0 [servername] [program name] {username} {password}

servername   == MANDATORY == Provide the server name (Netbios or FQDN,
+ 
                             or even IP)
program name == MANDATORY == Provide the program name to execute, for 
                             example "c:\\temp\\runme.bat"
{username}   == OPTIONAL  == Provide the username to use, either 
                             DOMAIN\\USERNAME or just USERNAME
{password}   == OPTIONAL  == If you provide a username, you have to 
                             give the password

Note: If you don't provide a username, a connection will be made 
using your current logged on credentials.

Phillip Massyn
Freeware
January 2003
http://phillipmassyn.tripod.com
HELP
;
    exit(1);
}

&execute($ARGV[0],$ARGV[1],$ARGV[2],$ARGV[3]);

sub execute
{
    $server = $_[0];
    $scriptname = $_[1];
    $user = $_[2];
    $password = $_[3];

    $it = 2;
#---------------------------------------------------------------------
+------------------
#---------------------------------------------------------------------
+------------------
#---------------------------------------------------------------------
+------------------

#Authenticate

if($user ne "")
{
    $a = `net use \\\\$server\\ipc\$ /user:$user $password 2>&1`;
}
else
{
    $a = `net use \\\\$server\\ipc\$ 2>&1`;
}

if($? != 0)
{
    print "Could not authenticate!\n";
    print "===========================================\n";
    print "$a\n";
    print "===========================================\n";
    exit(1);
}
else
{
    print "Authenticated to $server.\n";
}
#---------------------------------------------------------------------
+------------------
#Get local time

$a = `net time \\\\$server 2>&1`;
if($? != 0)
{
    print "Could not get local time!\n";
    print "===========================================\n";
    print "$a\n";
    print "===========================================\n";
    exit(1);
}
else
{
    print "Got local time.\n";
}
#---------------------------------------------------------------------
+------------------
#Calculate scheduled time

local $sched = &increasetime(&readtime($a),$it);

#---------------------------------------------------------------------
+------------------
#Schedule script
#at \\\\$server $sched \"

$aa = "at \\\\$server $sched \"$scriptname\" 2>&1";

print "Executing ==> $aa\n";
$a =`$aa`;
if($? != 0)
{
    print "Could not schedule execution!\n";
    print "===========================================\n";
    print "$a\n";
    print "===========================================\n";
    exit(1);
}
else
{
    print "Execution scheduled for $sched.\n";
}
#---------------------------------------------------------------------
+------------------

#Disconnect

$a = `net use \\\\$server\\ipc\$ /delete 2>&1`;

if($? != 0)
{
    print "Could not disconnect!\n";
    print "===========================================\n";
    print "$a\n";
    print "===========================================\n";
    exit(1);
}
else
{
    print "Disconnected.\n";
}

}
#---------------------------------------------------------------------
+------------------
#---------------------------------------------------------------------
+------------------
#---------------------------------------------------------------------
+------------------

sub increasetime
{
    local $tme = $_[0];
    local $increment = $_[1];

    local ($hour,$min) = split(/:/,$tme);

    $min = $min + $increment;

    while($min > 59)
    {
        $min = $min - 60;
        $hour++;
    }

    if(length($min) == 1)
    {
        $min = "0$min";
    }

    return "$hour:$min";    
}




sub readtime
{
    local $txt = $_[0];
    local $i;
    local $j;
    foreach $i (split(/\n/,$txt))
    {
        if(index($i,"time") != -1) 
        {
            $j = $i;
        }
    }
    local ($junk,$fulltime) = split(/is /,$j);

    local ($dte,$tme,$pm) = split(/ /,$fulltime);

    local ($hour,$min) = split(/:/,$tme);
    
    if((index($pm,"PM") != -1) && ($hour != 12))
    {
        $hour = $hour + 12;
    }

    $nt = "$hour:$min";
    return "$nt";
}
[download]

Thanks!

#!/massyn.pl The early worm gets caught by the bird.