#   T e s t . p l
        #   -------------
        #   This is a test perl script designed to demonstrate some of the
        #   functions of Win32::AdminMisc.

    use Win32::AdminMisc;
    use Win32;

    if ($Win32::AdminMisc::Version < 971022){
        print "THIS VERSION OF WIN32::ADMINMISC IS TOO OLD TO WORK WITH THIS SCRIPT.\n";
        exit;
    }


    $Node = Win32::NodeName();
    $Domain = Win32::DomainName();
    $User = Win32::LoginName();

    $User = 'administrator';
    $Domain = '';