Select Code to Download

my $vss = Win32::OLE->new('SourceSafe.0') || die "Can't create VSS obj
+ect\n";

$vss->Open($vssINI, $vssUser, $vssPass);
die "Error Opening VSS db: " . Win32::OLE->LastError() if Win32::OLE->
+LastError() != 0;