windows-server-2003/tools/perl/eg/windows script host/adosample1.wsf

<Job ID="ADOSample1">
<script language=PerlScript runat=server>
    my $conn = $WScript->CreateObject('ADODB.Connection');
    $conn->Open('ADOSamples');

    if($conn->{State} == 1) {
	$WScript->Echo("Connection Successful!")
    }
    else {
	$WScript->Echo("Connection Failed ...");
    }
</script>
</Job>