I've had good results with the command line interface to VSS, ss.exe, by shelling out from Perl. I've automated things like checking out files and running Perl scripts against them then checking them back in. The available command line options are documented in the help files.

Edit: Your link to the previous node seems to be broken.

Edit: Here are some examples:

sub checkout_sse_file {
    my ($checkout_path, $filename) = @_;

    if($checkout_path !~ /[\/\\]$/) {
        $checkout_path .= '\\';
    }

    my $sspath= 'C:\Program Files (x86)\Microsoft Visual Studio\VSS\wi
+n32';

    $ENV{SSDIR}="\\\\servername\\dms-sourcesafe";

    my $cmd = "\"$sspath\\ss.exe\" Checkout \"\$/DMS MW/SCADA/Substati
+on Editor Files/$filename\" -C- -I- -GL\"$checkout_path \"";
    #print "\n********************\n\$cmd=$cmd\n";
    # if the file is already there it doesn't download it again. 
    # BUT, it won't overwrite a file unless the read-only bit is set.

    system $cmd;
    return $? >> 8;
}

sub checkin_sse_file {
    my ($checkout_path, $filename, $comment) = @_;

    if($checkout_path !~ /[\/\\]$/) {
        $checkout_path .= '\\';
    }

    my $sspath= 'C:\Program Files (x86)\Microsoft Visual Studio\VSS\wi
+n32';

    $ENV{SSDIR}="\\\\servername\\dms-sourcesafe";

    my $cmd = "\"$sspath\\ss.exe\" Checkin \"\$/DMS MW/SCADA/Substatio
+n Editor Files/$filename\" -C\"$comment\" -I- -GL\"$checkout_path \""
+;
 
    system $cmd;
    return $? >> 8;
}
[download]

Thanks, I didn't even know about ss.exe. I will check it out.

I don't know what's wrong with that node link. The URL is http://perlmonks.org/?node_id=202709 and I used id//202709 for the link.

"I don't know what's wrong with that node link. The URL is http://perlmonks.org/?node_id=202709 and I used id//202709 for the link."

It's just a typo. You've omitted the colon between id and // so, instead of your intended query string

?node_id=202709
[download]

you're getting

?node=id%2F%2F202709
[download]

— Ken

[id://202709]
[download]

($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,
[download]

Any advice on how to proceed?

:) forward :D

For example ddg://site:perlmonks.org class-not-registered -> Re^3: Win32::OLE question -> https://support.microsoft.com/en-us/kb/201191
Re: Win32::OLE error
http://stackoverflow.com/questions/16481382/perl-error-win32ole-0-1709-error-0x80040154-class-not-registered
Re: Perl Version and Win32::OLE -> Error 0x80040154: Class Not Registered

Let's stop using Microsoft products because they are awful and leave you stranded like you are now.

"Let's stop using Microsoft products because they are awful and leave you stranded like you are now."

I'd just like to point out here that many of the people here on Perlmonks (as well as other help sites) are asking about problems they face at work, and many companies (most if we're talking medium-large) have policies in place which dictate what software/processes/etc must be used. This means that for many, ditching entire platforms and vendors is out of the question.

Relax. I am not using VSS. I'm doing research on a project that used VSS 12 years ago. Trying to get whatever info I can about coding activity on the project, i.e. number of lines present in each version, adds, deletes, changes. It takes a lot of clicks to do that on VSS, and there are a lot of branches in the repo, so looking for an automated solution.

2016 - 2002 = 14.