14 lines
322 B
XML
14 lines
322 B
XML
|
<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>
|