how to check server pc or client pc in vb ?

Question

0.00/5 (No votes)

See more:

Hai All
How to check server pc or client pc when using web site ? in page load event i need to check server pc or client pc,if it server pc i enable textbox and label,if not i disable textbox and label,

need to check in 3 condition in a link
1.with ip address like http://192.168.0.4/web/login.aspx
2.with localhost like http://localhost/web/login.aspx
3.with machine name like http://admin-PC/web/login.aspx

in above 3 condition,it will wotk on localhost basis and code is

VB

' Dim SERVERIP As String
 Dim CLIENTIP As String = String.Empty
 'Dim ipEntry As IPHostEntry = Dns.GetHostByName(Dns.GetHostName())
' Dim IpAddr As IPAddress() = ipEntry.AddressList
 'SERVERIP = IpAddr(0).ToString()

 CLIENTIP = Request.ServerVariables("HTTP_X_FORWARDED_FOR")'here i get server or client if it server i get ::1,then i enable textbox and label,if it client i will get full ip addres ,then i will disable textbox and label.
 If CLIENTIP = "" Then
     CLIENTIP = Request.ServerVariables("REMOTE_ADDR")
 End If

 If (CLIENTIP = "::1") Then
     txtBrowseFolder.Enabled = True
     btnwatchpath.Enabled = True
 Else
     txtBrowseFolder.Enabled = False
     btnwatchpath.Enabled = False
 End If

the above correctly work if it use localhost in an a link,if it is ip address or machine name not work.

note : pls think client server machinsim
publish copy available in server system,if anybody open link need to check whether client or server pc,if it server pc enable controls it not disable controls.
Pls reply me asap

Regards
Aravind

Posted 28-Nov-13 18:04pm

Aravindba

Updated 28-Nov-13 19:12pm

v2

Add a Solution

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Aydin Homay · Answer 1 · 2013-11-28T18:36:00

Hi
You need to run client side code same as VBScript on your machine however you shoulod make a list of your computers(clients and servers) and used this vbscript for getting name of currently computer application is ruining on:

<script language="vbscript"> 
<!--

Function SetComputerName
    Set objNetwork = CreateObject("WScript.Network") 
    NAME=objNetwork.computername
    Document.Forms("form1").Elements("computername").Value = NAME
End Function

SetComputerName()

//--> 

</script>

after that you can decide about type of your computer follow of computer list, however you can get IP Address with checking computer name on DNS thus if you want to the make a additional conditions it is possible ;-)

these links can be useful:
http://www.robvanderwoude.com/vbstech_network_names_computer.php[^]
http://www.activexperts.com/activmonitor/windowsmanagement/scripts/networking/client/retrieving/[^]

Best Regards