asked on

Capture Terminal Server Client IP

Hello Everyone,

I am using the below code to map drives based on the end users subnet. The problem I am having is when a user connects to our terminal server from one of the below subnets it will not map the drive because it is picking up the servers IP rather than the Connecting Client's IP. Is there a way to resolve this?

Set objNetwork = CreateObject("Wscript.Network")
 
strComputer = "."
 
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
 
Set colAdapters = objWMIService.ExecQuery _
    ("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled=True")
 
For Each objAdapter in colAdapters
    For Each strAddress in objAdapter.IPAddress
        arrOctets = Split(strAddress, ".")
        If arrOctets(0) <> "" Then
            strSubnet = arrOctets(0) & "." & arrOctets(1) & "." & arrOctets(2)
            x = 1
            Exit For
        End If
        If x = 1 Then
            Exit For
        End If
    Next
Next
 
Set colItems = objWMIService.ExecQuery _
    ("Select * From Win32_LogicalDisk Where DeviceID = 'Y:'")
 
If colItems.Count = 0 Then
    Select Case strSubnet
        Case "192.168.9" 
            objNetwork.MapNetworkDrive "Y:", "\\ventsvr\kryptiq\estrella"
        Case "192.168.10" 
            objNetwork.MapNetworkDrive "Y:", "\\ventsvr\kryptiq\arrowhead"
        Case "192.168.20" 
            objNetwork.MapNetworkDrive "Y:", "\\ventsvr\kryptiq\warner"
        Case "192.168.50" 
            objNetwork.MapNetworkDrive "Y:", "\\ventsvr\kryptiq\greenfield"
        Case "192.168.60" 
            objNetwork.MapNetworkDrive "Y:", "\\ventsvr\kryptiq\commercio"
        Case "192.168.70" 
            objNetwork.MapNetworkDrive "Y:", "\\ventsvr\kryptiq\foothills"
        Case "192.168.80" 
            objNetwork.MapNetworkDrive "Y:", "\\ventsvr\kryptiq\nwtucson"
        Case "192.168.90" 
            objNetwork.MapNetworkDrive "Y:", "\\ventsvr\kryptiq\greenvalley"
        Case "192.168.100" 
            objNetwork.MapNetworkDrive "Y:", "\\ventsvr\kryptiq\stmarys"
        Case "192.168.200" 
            objNetwork.MapNetworkDrive "Y:", "\\ventsvr\kryptiq\corporate"
        Case "192.168.205" 
            objNetwork.MapNetworkDrive "Y:", "\\ventsvr\kryptiq\pinnacle"
    End Select
End If

Open in new window

AmazingTech

Before running your vbscript. You could download "CAD Freeware Util Pack" from

http://www.ctrl-alt-del.com.au/CAD_Utils.htm#Freeware

Use envtscip.exe to setup an environment variable ClientIP

rejoinder

Please try the script below and let me know if you get positive results or if nothing gets mapped.

Here is an article if %ClientName% does not grab the connected client...
https://www.experts-exchange.com/questions/24131917/clientname-environment-variable-not-present-at-login-script-on-windows-server-2008-TS.html

Set objNetwork = CreateObject("Wscript.Network")
 
strServer = "."
 
Set objWMI = GetObject("winmgmts://" & strServer & "/root\cimv2")
Set objInstances = objWMI.InstancesOf("Win32_ServerSession",48)
 
On Error Resume Next
For Each objInstance in objInstances
    With objInstance
        WScript.Echo .ActiveTime
        WScript.Echo .Caption
        WScript.Echo .ClientType
        WScript.Echo .ComputerName
        WScript.Echo .Description
        WScript.Echo .IdleTime
        WScript.Echo .InstallDate
        WScript.Echo .Name
        WScript.Echo .ResourcesOpened
        WScript.Echo .SessionType
        WScript.Echo .Status
        WScript.Echo .TransportName
        WScript.Echo .UserName
    End With
On Error Goto 0
Next
 
 
 
 
strConnectedClient = GetClientIP()
 
if strConnectedClient <> "" then
    strSubnet = strConnectedClient
end if
 
Set colItems = objWMIService.ExecQuery _
    ("Select * From Win32_LogicalDisk Where DeviceID = 'Y:'")
 
If colItems.Count = 0 Then
    Select Case strSubnet
        Case "192.168.9" 
            objNetwork.MapNetworkDrive "Y:", "\\ventsvr\kryptiq\estrella"
        Case "192.168.10" 
            objNetwork.MapNetworkDrive "Y:", "\\ventsvr\kryptiq\arrowhead"
        Case "192.168.20" 
            objNetwork.MapNetworkDrive "Y:", "\\ventsvr\kryptiq\warner"
        Case "192.168.50" 
            objNetwork.MapNetworkDrive "Y:", "\\ventsvr\kryptiq\greenfield"
        Case "192.168.60" 
            objNetwork.MapNetworkDrive "Y:", "\\ventsvr\kryptiq\commercio"
        Case "192.168.70" 
            objNetwork.MapNetworkDrive "Y:", "\\ventsvr\kryptiq\foothills"
        Case "192.168.80" 
            objNetwork.MapNetworkDrive "Y:", "\\ventsvr\kryptiq\nwtucson"
        Case "192.168.90" 
            objNetwork.MapNetworkDrive "Y:", "\\ventsvr\kryptiq\greenvalley"
        Case "192.168.100" 
            objNetwork.MapNetworkDrive "Y:", "\\ventsvr\kryptiq\stmarys"
        Case "192.168.200" 
            objNetwork.MapNetworkDrive "Y:", "\\ventsvr\kryptiq\corporate"
        Case "192.168.205" 
            objNetwork.MapNetworkDrive "Y:", "\\ventsvr\kryptiq\pinnacle"
    End Select
End If
 
Function GetClientIP()
    Dim aOctets
    Dim sSubnet
    Dim oShell
    Set oShell = CreateObject("Wscript.Shell")
    
    Dim sClient
    sClient = oShell.ExpandEnvironmentStrings("%ClientName%")
    
    Dim oPing
    Set oPing = GetObject("winmgmts:{impersonationLevel=impersonate}").ExecQuery("SELECT * FROM Win32_PingStatus WHERE Address='" & sClient & "'")
    
    sSubnet = ""
    For Each oRet in oPing
        If Not IsNull(oRet.StatusCode) And oRet.StatusCode = 0 Then
            if oRet.Address <> "" then
                aOctets = Split(oRet.Address, ".")
                If aOctets(0) <> "" Then
                    sSubnet = aOctets(0) & "." & aOctets(1) & "." & aOctets(2)
                End If
            end if
        End If
    Next
    GetClientIP = sSubnet
End Function