Stories
Slash Boxes
Comments
NOTE: use Perl; is on undef hiatus. You can read content, but you can't post it. More info will be forthcoming forthcomingly.

All the Perl that's Practical to Extract and Report

The Fine Print: The following comments are owned by whoever posted them. We are not responsible for them in any way.
 Full
 Abbreviated
 Hidden
More | Login | Reply
Loading... please wait.
  • I did some stuff getting windows to launch perl stuff without user intervention on locked down corporate machines a couple of years ago or so. Here are my findings for reference. Some of this might be useful, but it might now.

    Here's the appropriate incantation from vbscript to get a .bat file to launch without a command line window. I guess vbscript can also be used to set the icon and stuff too:

    Set fso = CreateObject("Scripting.FileSystemObject")
    Set WshShell = CreateObject("WScript.Shell")
    WshShell.Run chr(34) & fso.GetParentFolderName(wscript.ScriptFullName) & "\perlshell.bat"& Chr(34), 0
    Set WshShell = Nothing

    And here's an ultra-crude "installer" designed for installing single cuser catalyst apps onto locked down corporate machines without admin access:

    @echo off
    set bindir=%~dp0
    set bindir=%bindir:~0,-1%
    mkdir "%APPDATA%\MyPersonalHomePage"
    echo ...
    echo Copying application to hard drive, please be patient ....
    xcopy /E /C /Y /Q "%bindir%" "%APPDATA%\MyPersonalHomePage"
    echo ...
    echo Creating link in startup folder
    echo ...
    mkdir "%APPDATA%\..\Start Menu\Programs\Startup"
    Shortcut.exe /R:7 /A:C /T:"%APPDATA%\MyPersonalHomePage\startmyphp.vbs" /F:"%APPDATA%\..\Start Menu\Programs\Startup\Start Personal Home Page Server.lnk"
    "%APPDATA%\MyPersonalHomePage\startmyphp.vbs"
    echo Starting server, please be patient
    ping 127.0.0.1 -n 10 -w 1000 > nul
    start http://127.0.0.1:35900/ [127.0.0.1]