Leaked source code of windows server 2003
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 
 
 
 
 

13 lines
322 B

<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>