Posted by jpluimers on 2013/05/01
A while ago, I needed to automatically create a bunch of shortcuts all in the same directory, and all the batch files in a different directory.
There’s different kinds of doing this:
I needed a one-off, so I came up with some code like this. Read the rest of this entry »
Posted in Development, Scripting, Software Development, VBScript | Leave a Comment »
Posted by jpluimers on 2013/04/25
Ah, VBScript. It just wouldn’t be the same without these quirky gotchas.
So either perform Call, assign the function result, or use less parenthesis.
Another thing that drives me crazy with VBScript is that you can only specify ByVal or ByRef, but not specify what type a parameter (string, integer, etc) will be.
VBScript will just barf with “Microsoft VBScript compilation error: Expected ‘)’” at the first As. or colon (:) when you declare Sub or Function parameters like this:
The reason is that the colon is end-of-statement token, which means you can string statements together, an can Dim and assign a variable in one line:
To quote ebgreen:
Oh and Debugging VBScript is indispensable (:
–jeroen
via: What do you mean “cannot use parentheses?” – Fabulous Adventures In Coding – Site Home – MSDN Blogs.
Posted in Development, Scripting, Software Development, VBScript | Leave a Comment »
Posted by jpluimers on 2013/04/04
Thanks Jeb for answering this:
You can solve it with delayed expansion, because delayed expansion works different than percent expansion.
:START setlocal EnableDelayedExpansion @echo What folder do you want to process? (Provide a path without a closing backslash) set /p datapath= ::Is string empty? IF X!datapath! == X GOTO:START ::Does string have a trailing slash? if so remove it IF !datapath:~-1!==\ SET "datapath=!datapath:~0,-1!" echo !datapath!It expands later than the percent expansion, and after the delayed expansion no more parsing is done, so even spaces or special characters have any effect.
–jeroen
via:
Posted in Batch-Files, Development, Power User, Scripting, Software Development | Leave a Comment »
Posted by jpluimers on 2013/03/05
I’ve been working at a client where they have hardened most of their systems in a not so programmer friendly way. One of the things you cannot to is start RegEdit, not even for viewing. Since I need Fiddler2 to poke through their Internet Proxy in order to get access to an external TFS server, and their machines often reboot due to maintenance cycles, sometimes my proxy settings are dead. This tiny app shows you how to get display your proxy settings, demonstrating:
Enjoy! (Note, you could have done this with PowerShell in a very easy way too, as it access the Registry just like it was a file system).
When using Fiddler, it shows output like this:
AutoConfigProxy=wininet.dll ProxyEnable=1 MigrateProxy=1 ProxyHttp1.1=1 ProxyOverride=<-loopback> ProxyServer=http=127.0.0.1:8888;https=127.0.0.1:8888;
One of the drawbacks of Registry work is that you need to dispose of your keys. That is handled inside ReadOnlyAccessToRegistryKey.Run which also handles your Code Access Security. This means that the lambda expression (could just as well have been an anonymous method) can just concentrate on the LINQ stuffreturning an enumeration of anonymous types. You need the ‘let’ portion if you also want to perform ‘where’ on the values.
using System;
using System.Collections.Generic;
using System.Linq;
using BeSharp.Win32;
using Microsoft.Win32;
namespace LinqToRegistryShowProxySettings
{
class Program
{
static void Main(string[] args)
{
try
{
run();
}
catch (Exception ex)
{
Console.WriteLine(ex);
throw;
}
}
static void run()
{
const string internetSettingsKey = @"Software\Microsoft\Windows\CurrentVersion\Internet Settings";
ReadOnlyAccessToRegistryKey.Run(Registry.CurrentUser, internetSettingsKey,
registryKey =>
{
var keyValues = from name
in registryKey.GetValueNames()
//let keyValue = new { key = name, value = registryKey.GetValue(name).ToString() } // only if you need the Value in the Where, as it created for all occurences
where
name.Contains("proxy", StringComparison.OrdinalIgnoreCase) ||
name.Contains("autoConfig", StringComparison.OrdinalIgnoreCase)
select new { key = name, value = registryKey.GetValue(name).ToString() };
foreach (var keyValue in keyValues)
{
Console.WriteLine("{0}={1}", keyValue.key, keyValue.value);
}
}
);
}
}
}
This manages the Code Access Security since you will access the registry readonly. It also disposes the RegistryKey instance. The Code Access Security access and revert must be in the same method, so you cannot create a class that does the Assert in the constructor, and the dispose in the Disposer.
using System;
using Microsoft.Win32;
using System.Security.Permissions;
using System.Security;
namespace BeSharp.Win32
{
public class ReadOnlyAccessToRegistryKey
{
public static void Run(RegistryKey hiveRegistryKey, string subKeyName, Action action)
{
string fullKeyName = hiveRegistryKey.Combine(subKeyName);
RegistryPermission readRegistryPermission = new RegistryPermission(RegistryPermissionAccess.Read, fullKeyName);
readRegistryPermission.Assert();
try
{
using (RegistryKey registryKey = hiveRegistryKey.OpenSubKey(subKeyName))
{
action(registryKey);
}
}
finally
{
CodeAccessPermission.RevertAssert();
}
}
}
}
Extensions for the Registry:
using System;
using Microsoft.Win32;
namespace BeSharp.Win32
{
public static class RegistryExtensions
{
// Hives: http://en.wikipedia.org/wiki/Windows_Registry
public readonly static string HKCC = Registry.CurrentConfig.Name;
public readonly static string HKCR = Registry.ClassesRoot.Name;
public readonly static string HKCU = Registry.CurrentUser.Name;
#if Obsolete
[Obsolete]
public readonly static string HKDD = Registry.DynData.Name;
#endif
public readonly static string HKLM = Registry.LocalMachine.Name;
public readonly static string HKPD = Registry.PerformanceData.Name;
public readonly static string HKU = Registry.Users.Name;
public static string Combine(this string keyName, string subKeyName)
{
string result = string.Format(@"{0}\{1}", keyName, subKeyName);
return result;
}
public static string Combine(this RegistryKey registryKey, string subKeyName)
{
string result = registryKey.Name.Combine(subKeyName);
return result;
}
public static string Combine(this RegistryKey registryKey, RegistryKey subRegistryKey)
{
return registryKey.Combine(subRegistryKey.Name);
}
//http://stackoverflow.com/questions/444798/case-insensitive-containsstring/444818#444818
public static bool Contains(this string value, string substring, StringComparison stringComparison = StringComparison.CurrentCulture)
{
int index = value.IndexOf(substring, stringComparison);
bool result = (index >= 0);
return result;
}
}
}
–jeroen
Posted in .NET, .NET 4.0, .NET 4.5, C#, C# 4.0, C# 5.0, Development, PowerShell, Scripting, Software Development, Visual Studio 11, Visual Studio 2010, Visual Studio and tools | 2 Comments »
Posted by jpluimers on 2013/02/28
Interesting: Command line tool to manage Windows 7 Libraries, with source code – The Old New Thing – Site Home – MSDN Blogs.
Especially as next to some documentation, it points to these two:
–jeroen
Posted in .NET, .NET 2.0, .NET 3.0, .NET 3.5, .NET 4.0, .NET 4.5, Batch-Files, C#, C# 2.0, C# 3.0, C# 4.0, C# 5.0, Development, Scripting, Software Development | Leave a Comment »
Posted by jpluimers on 2013/02/08
Posted in Development, Perl, RegEx, Scripting, Software Development | Tagged: perl, regular expressions, technology | Leave a Comment »
Posted by jpluimers on 2013/01/29
A while ago, I had to adapt a DOS app that used one specific version of Excel to do some batch processing so it would support multiple versions of Excel on multiple versions of Windows.
One of the big drawbacks of DOS applications is that the command lines you can use are even shorter than Windows applications, which depending you how you call an application are:
This is how the DOS app written in Clipper (those were the days, it was even linked with Blinker :) started Excel:
c:\progra~1\micros~2\office11\excel.exe parameters
01234567890123456789012345678901234567890
1 2 3 4
The above depends on 8.3 short file names that in turn depend on the order in which similar named files and directories have been created.
The trick around this, and around different locations/versions of an application, is to use START to find the right version of Excel.
The reason it works is because in addition to PATH, it checks the App Paths portions in the registry in this order to find an executable: Read the rest of this entry »
Posted in Batch-Files, Development, Encoding, Power User, Scripting, Software Development, Unicode, Windows, Windows 7, Windows 8, Windows Server 2000, Windows Server 2003, Windows Server 2003 R2, Windows Server 2008, Windows Server 2008 R2, Windows Vista, Windows XP | Leave a Comment »
Posted by jpluimers on 2013/01/28
A quick and easy way of getting the CurrentCulture and CurrentUICulture is to use the get-host cmdlet from PowerShell.
This is what PowerShell 2.0 shows on my system:
C:\Users\jeroenp>powershell get-host Name : ConsoleHost Version : 2.0 InstanceId : 1ce173fb-70a7-403b-a2bd-3800fe740f7c UI : System.Management.Automation.Internal.Host.InternalHostUserInterface CurrentCulture : en-IE CurrentUICulture : en-US PrivateData : Microsoft.PowerShell.ConsoleHost+ConsoleColorProxy IsRunspacePushed : False Runspace : System.Management.Automation.Runspaces.LocalRunspace
The SeaTools from Seagate can’t cope with that because they don’t manage the Resource Fallback Process properly.
My machine is on en-IE, as it is English, and USA as location.
The main advantage for me is to use the that it is a good mix between English and Dutch settings:
–jeroen
via: Get-Host.
Posted in .NET, CSV, Development, Excel, ISO 8601, Office, Power User, PowerShell, Scripting, Software Development | Leave a Comment »
Posted by jpluimers on 2013/01/24
Very distracting: 404.
Thanks Julian (I just found out you also own a Dutch domain jmbk.nl/) for pointing to it (boy, some unproductive days ahead) and the cheat (in your browser, Open the JavaScript console, then paste and run the cheat code).
Thanks Romain for developing it.
When you read through his java script code files, remember that these french-english translations:
--jeroen
via: Développeur Web sur Lille (59), Romain Brasier.
Posted in Development, JavaScript/ECMAScript, Power User, Scripting, Software Development, Web Development | Tagged: cheat code, french english translations, java script code, julian, software, technology, unproductive days | Leave a Comment »
Posted by jpluimers on 2013/01/22
I normally don’t do much VBScript stuff, but sometimes I have to, and these tips helped me big time:
–jeroen
This was the script in question (mimicked a bit after Prnmngr.vbs): Read the rest of this entry »
Posted in Development, Scripting, Software Development, VBScript, Visual Studio 11, Visual Studio 2005, Visual Studio 2008, Visual Studio 2010, Visual Studio and tools | Leave a Comment »
The Wiert Corner - irregular stream of stuff 