Script Samples

Miscelaneous scripts that make developer' life easier and some script samples

Programmer's line counter

Ultimate tool to count size of code you wrote - prints file count, line count and bytes of code - aggregated statistics and separately for each type of files. Excludes generated files (like h files genarated from idl files) and files that match certain (configurable) masks. Highly customizable.

Download file plc.pl (requires Perl to run).

Printing 'Page last modified' message

Add the following code to asp page:

<script language="JScript" runat="server">
function getModificationDate () {
  fso = Server.CreateObject ("Scripting.FileSystemObject");
  file = fso.GetFile (Server.MapPath (Request.ServerVariables("PATH_INFO"))) ;
  dlm = new Date (file.DateLastModified);
  return dlm.toUTCString ();
}
</script>

<p>This page was last modified <% = getModificationDate () %>. </p>

Script that moves user environment variables to system environment

If you just installed some product and it registered several local user environment variables and you wanna make these environment variables available to all users, run this script (don't be afraid, it confirms every variable).

Save this text to moveenv.vbs or download this file

rem MoveEnv - move user environment to system
rem (c) Michael Entin, entin@bigfoot.com, http://chat.ru/~entin

set WshShell = WScript.CreateObject("Wscript.Shell")

set WshUsrEnv = WshShell.Environment ("User")
set WshSysEnv = WshShell.Environment ("System")

ret = WshShell.Popup ("This program will move user environment variables to system environment." & vbLf _
  & "You will be prompted to confirm every change." & vbLf _
  & "Found " & WshUsrEnv.Length & " user variables.",, "Environment mover", 32 + 1)
if ret = 2 then WScript.Quit ()

for each i in WshUsrEnv
  env = Split (i, "=")
  name =  env (0)
  val = env(1)
  ret = WshShell.Popup (name + "=" + val, , "move this variable?", 256 + 32 + 3)
  if ret = 2 then exit for  '  Cancel
  if ret = 6 then           ' Rem  Yes
    WshSysEnv(name) = val
    WshUsrEnv.Remove name
  end if
next

Start Outlook 2000 with selected profile

By some unknown reason MS Outlook does not have a command line option to select a particular user profile. The following script solves this problem:

var app = WScript.CreateObject("Outlook.Application.9");
var mapi = app.GetNamespace ("MAPI");
mapi.Logon ("<your-profile-here>");
mapi.GetDefaultFolder(6).Display ();

Save this script as outlook.js and it starts Outlook with selected profile.

top