Note: I know that I need to make use of script to check the machine name and then the database name needs to change. But I don't know how to write a script. Please help me with the script.

Hi I have an application where I need to change the database folder depends on the Machine Location,

Check the “Computer name” to determine the correct path. The path will be determine by the first 3 letters of “Computer name” as follows:


-          Computer name: HAC, choose \\hacssfs001\apps\WoodMac\GlobalEconomicModel\GEM

-          Computer name: NYC, choose \\nycssfs002\apps\WoodMac\GlobalEconomicModel\GEM

-          Computer name: WDB, choose \\nycssfs002\apps\WoodMac\GlobalEconomicModel\GEM

-          Computer name: LOS, choose \\losssfs002\applications\WoodMac\GlobalEconomicModel\GEM

-          Computer name: KUL, choose \\kulssfs001\applications\WoodMac\GlobalEconomicModel\GEM

-          Computer name: BKK, choose \\kulssfs001\applications\WoodMac\GlobalEconomicModel\GEM

-          Computer name: JAK, choose \\jakssfs001\applications\WoodMac\GlobalEconomicModel\GEM

-          Computer name: BEJ, choose \\bejssfsgenp01\applications\WoodMac\GlobalEconomicModel\GEM

depends on tyhe first 3 letters of the Machine name we need to choose the database location. How to do this and I'm using adminstudio 11.5.

Please help me with this.

Thanks in advance.

0 Comments   [ - ] Hide Comments


Please log in to comment

Community Chosen Answer



Try with this


Option Explicit

Dim objShell, ComputerName, LeftString



LeftString=Left(ComputerName, 3)

If LeftString="HAC" Then


ElseIf LeftString="NYC" Then

......... \\nycssfs002\apps\WoodMac\GlobalEconomicModel\GEM



End If

Set objShell=Nothing


Answered 03/26/2013 by: jagadeish
Red Belt

  • Thank You jagadeish,
    I have some doubts regarding to the above script,
    We mentioned to find the machine first 3 letters and depends on that to change the database location. But we didn't mentioned where to copy the database name.
    In the middle of the installation it'll ask the database name.
    is this vbscript or wisescript and i'm really sorry that I don't have basic knowledge on scripting.
    Please help me with this.
  • the above script is just an idea.. I thought you can complete it.. you have not mentioned that what files you are going to copy and from where...
  • Jagadeish,

    I have an application and it'll ask for the database location.
    The database location changes from location to location.
    First we need to check the machine name where we are installing the application. If the machine mane starts with HAC then the database should be \\hacssfs001\apps\WoodMac\GlobalEconomicModel\GEM and if the machine name starts with NYC, the database should be \\nycssfs002\apps\WoodMac\GlobalEconomicModel\GEM and so on.

    This is the one so please help me.
  • Do you have any property to specify database location in your msi
  • or Where this is getting stored once you enter the location of the database.. Any registry or files..??
  • Jagadeish, I know how to find it where it is stored. But, the way which I used generally didn't work here.
    I will open that winow and take 1st snapshot using systracer and change that and then take 2nd snapshot. But, it's not showing anything. Can I have your suggestion how to find it. Some one told to use dialog editor to find it. but, I'm not clear.
    In the middle of installation it'll prompt you to give the database location.
    Please let me know how to find it? Thank you jagadeish.
Please log in to comment
Answer this question or Comment on this question for clarity



Whilst I appreciate that the code was probably off the cuff, endless "If...ElseIf...End If" is pretty poor programming. Use a dictionary with the 3 letters as the key and the database source as the value.

Also, I need to again bring up the use of irrelevant tags in posts. What does this post have to do with 'Virtualization' or 'Best Practices'?

Answered 03/27/2013 by: VBScab
Red Belt

  • endless "If...ElseIf...End If"????!!!!!!!!!!!!!!!!
    • jagadeish, VBScab is just stating that multiple If statement's may be able to be used for this scenario, but it may not be the most efficient way since a dictionary object can be used. With the dictionary object being utilized, the code can be simplified with a single call to the dictionary object for the value associated with the three letter key once it is obtained using code similar to what you gave to get the computer name.
  • MP, could you please help me with the script to do this?
Please log in to comment

This is a pretty simple task.  Try Google next time.

Dim objDic, objShell, strSiteCode, strPath

Set objDic = CreateObject("Scripting.Dictionary")
With objDic
    .CompareMode = vbTextCompare
    .Add"HAC", "\\hacssfs001\apps\WoodMac\GlobalEconomicModel\GEM"
    .Add"NYC", "\\nycssfs002\apps\WoodMac\GlobalEconomicModel\GEM"
    .Add"WDB", "\\nycssfs002\apps\WoodMac\GlobalEconomicModel\GEM"
    .Add"LOS", "\\losssfs002\applications\WoodMac\GlobalEconomicModel\GEM"
    .Add"KUL", "\\kulssfs001\applications\WoodMac\GlobalEconomicModel\GEM"
    .Add"BKK", "\\kulssfs001\applications\WoodMac\GlobalEconomicModel\GEM"
    .Add"JAK", "\\jakssfs001\applications\WoodMac\GlobalEconomicModel\GEM"
    .Add"BEJ", "\\bejssfsgenp01\applications\WoodMac\GlobalEconomicModel\GEM"

Set objShell = CreateObject("WScript.Shell")
strSiteCode = Left(objShell.ExpandEnvironmentStrings("%COMPUTERNAME%"), 3)
If objDic.Exists(strSiteCode) Then
    strPath = objDic.Item(strSiteCode)
    ' Insert function to use strPath
    WScript.Echo strPath
    WScript.Echo"ERROR: Site Code """ & strSiteCode & """ not found."

Set objDic = Nothing
Set objShell = Nothing
Set strSiteCode = Nothing
Set strPath = Nothing
Answered 03/28/2013 by: M P
Purple Belt

  • Thanks MP, I'll check it out.
    I've a question, we donno where it stores the Database name right? so where it will copy then. I'll find whether registry or file is getting update that stores database name. Where I need to mention in the script about the reg or file which has database name.
    • The line in the script that says " ' Insert function to use strPath" (no quotes) is where you would be able to use the path to the database from. The "strPath" variable holds the full path to the database. I simply placed an Echo call after the statement to show the functionality of the script, so you can cut out that line and place your function in its place.
Please log in to comment