strcomputer="."

Set objWMIService = GetObject("winmgmts:\\" & strcomputer & "\root\CIMV2")
 Set IPItems = objWMIService.ExecQuery ("Select IPAddress from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")

'Set variables needed to map the network drive
'We have multiple sites and multiple site servers so there is a function to look at the IP address of the device to determine the site server to use.
'You will also need to know the GUID of the image file to correctly map the drive

strUser = "DomainUser Account"
strPassword = "password"
strSiteServer = getSiteServer
strPkgShare = getPkgShare(siteServer)
strGUID = "{b23cd77d-6259-4922-8a72-fa63803c4e4a}"
strImageName = "W81E64_V1.0.gho"
strGhostPath = "X:\Program Files\Symantec\Deployment\Ghost\"
strNetworkDrive = "Z:"

'Wscript.Echo "\\" & strSiteServer & "\" & strPkgShare & "\" & strGUID & "\cache"

Set objNetwork = CreateObject("Wscript.Network")
objNetwork.MapNetworkDrive strNetworkDrive,"\\" & strSiteServer & "\" & strPkgShare & "\" & strGUID & "\cache",false,strUser,strPassword

Set objShell = WScript.CreateObject("WScript.Shell")
objShell.Run chr(34) & strGhostPath & "Ghost64.exe" & chr(34) & " -sure -clone,MODE=prestore,DST=1:4,SRC=" & strNetworkDrive & "\" & strImageName & ":2 -notrim",0,true
objNetwork.RemoveNetworkDrive "Z:",true,true

Function getSiteServer
  For Each IPConfig In IPItems
    If Not IsNull(IPConfig.IPAddress) Then
    For i=LBound(IPConfig.IPAddress) to UBound(IPConfig.IPAddress)
      If varIP="" Then
      varIP=IPConfig.IPAddress(0)
      End If
    Next
    End If
  Next
  
  ArrayIP=Split(varIP,".")
  varSecondOctet=ArrayIP(1)
  Select Case True
    Case varSecondOctet="4" Or varSecondOctet="6"
      getSiteServer = "ntbhe2070"
    Case varSecondOctet="16" Or varSecondOctet="18"
      getSiteServer = "ntbhn2070"
    Case varSecondOctet="0" Or varSecondOctet="2"
      getSiteServer = "ntbhi2107"
    Case varSecondOctet="8" Or varSecondOctet="10"
      getSiteServer = "ntbhn2070"
    Case varSecondOctet="12" Or varSecondOctet="14"
      getSiteServer = "ntcbh2080"
    Case varSecondOctet="64"
      getSiteServer = "wkbhi5710"
    Case varSecondOctet="32" Or varSecondOctet="34"
      getSiteServer = "ntmdv2070"
    Case varSecondOctet="28"
      getSiteServer = "ntpac2070"
    Case varSecondOctet="20" Or varSecondOctet="22"
      getSiteServer = "ntwbh2070"
    Case Else
      getSiteServer = "ntbhi2107"
  End Select
End Function

Function getPkgShare(strSiteServer)
  If strSiteServer = "WKBHI5710" Or strSiteServer = "TESTALTIRISSS" Then
    getPkgShare = "PkgSvrHostC$"
  ElseIf strSiteServer = "NTBHN2070" Then
    getPkgShare = "PkgSvrHostE$"
  Else
    getPkgShare = "PkgSvrHostD$"
  End If
End Function