Coding Corner: Compacting a virtual hard disk

re: Coding Corner: Compacting a virtual hard disk

Virtual PC Guy — Fri, 11 Feb 2005 23:07:00 GMT

Raymond -

We are aware of the customer demand for this - however I do not tend to talk about future releases on this blog.

Christopher -

Yes - this is a good idea, however I try to keep my scripts as short as possible when I am posting them to my blog.

Cheers,
Ben

re: Coding Corner: Compacting a virtual hard disk

Christopher lewis — Fri, 11 Feb 2005 15:17:00 GMT

To make this a little more user friendly, add something like this:

'Check for CScript
If Not IsCScript() Then
Wscript.Echo Wscript.ScriptName & " must be run with CScript."
Wscript.Quit 1
End If

'----------------------------------------+----------------------------------------
' IsCscript - Checks CScript vs. WScript
'
' Date Name Comment
' ------ ------- -----------------------------------------------------------------
' 020507 CGL Created
'----------------------------------------+----------------------------------------
Function IsCScript()
Dim objRegExp
Set objRegExp = New RegExp
objRegExp.IgnoreCase = true
objRegExp.Pattern = "cscript.exe$"
IsCScript = objRegExp.Test(WScript.FullName)
Set objRegExp = Nothing
End Function

re: Coding Corner: Compacting a virtual hard disk

Raymond Phillips — Fri, 11 Feb 2005 02:59:00 GMT

Will this scripting be added to future release of Virtual PC anytime soon?