Script 

Sub Run(ByVal sFile,sParam) 
Dim shell 
Set shell = CreateObject("WScript.Shell") 
shell.Run Chr(34) & sFile & Chr(34) & sParam, 1, false 
Set shell = Nothing 
End Sub 

' Get computer name: 
Set wshShell = WScript.CreateObject( "WScript.Shell" ) 
strComputerName = wshShell.ExpandEnvironmentStrings( "%COMPUTERNAME%" ) 

'Run apps on HOME-PC: 
If strComputerName = "HOME-PC" Then 
Run "\Path\to\App1.exe", "" 
Run "\Path\to\App2.exe", "" 

' Run apps on OFFICE-PC 
Else If strComputerName = "OFFICE-PC" Then 
Run "\Path\to\AppA.exe", "" 
Run "\Path\to\AppB.exe", "" 
End If 
End If 

'Run Common applications: 
Run "\Path\to\App3.exe", ""