4.6

ThinApp User’s Guide
116 VMware, Inc.
ThefollowingcallbackexampleshowstheOnFirstSandboxOwnerandOnFirstParentExitfunctions.
------------------------example.vbs ---------------------------------
Function OnFirstSandboxOwner
msgbox "The sandbox owner is: " + GetCurrentProcessName
End Function
Function OnFirstParentExit
msgbox "Quiting application: " + GetCurrentProcessName
End Function
msgbox "This code will execute for all parent and child processes"
---------------------------------------------------------------------
Implement Scripts in a ThinApp Environment
Youmightimplementascriptinthefollowingcircumstances:
 Timingoutanapplicationonaspecificdate.
 Runninga.batfilefromanetworkshareinsidethevirtualenvironment.
 Modifyingthevirtualregistry.
 Importingthe.regfileatruntime.
 Stoppingavirtualservicewhenthemainapplicationquits.
 Copyinganexternalsystemconfigurationfileintothevirtualenvironmentonstartup.
Implement a script
1 Savethescriptcontentsinaplaintextfilewiththe.vbsextensioninthesamedirectoryasyour
Package.inifile.
Youcanuseanyfilename.ThinAppaddsall.vbsfilestothepackageatbuildtime.
2Rebuildtheapplication.
.bat Example
Thefollowingscriptrunsanexternal.batfilefrom anetworkshareinsidethevirtualenvironment.The .bat
filemakesmodificationstothevirtualenvironmentbycopyingfiles,deletingfiles,orapplyingregistry
changesusingregedit /s regfile.reg.Runthisscriptonlyforthefirstparentprocess.Ifyourunthisscript
for
otherprocesses,eachcopyofthecmd.exeutilityrunsthescriptandaninfiniterecursiondevelops.
Function OnFirstParentStart
Set Shell = CreateObject("Wscript.Shell")
Shell.Run "\\jcdesk2\test\test.bat"
End Function
Timeout Example
Thefollowingscriptpreventstheuseofanapplicationafteraspecifieddate.TheVBSdateusesthe
#mm/dd/yyyy#format,regardlessoflocale.
Thischeckoccursuponstartupoftheparentprocessandanychildprocesses.
if Date >= #03/20/2007# then
msgbox "This application has expired, please contact Administrator"
ExitProcess 0
end if