SC R60 IPCONFIG Timeout

[jabba]

Hi,

I am having an Issue with SecureClient R60. Everything is working well and connecting via hotspots is working fine connecting to my corporate network.

We have a legacy script that is run on laptops and was provided by a third party software delivery company. The script uses the IPCONFIG /ALL to obtain IP information to allow the laptop to use the best possible Software Deployment Server.

As soon as I install Secure Client the script times out for around 7 mins due to the fact that the IPCONFIG /ALL is waiting for a return.

This problem occurs if I have the laptop physically connected or disconnected to the network.

If I disable the script all works fine and I can use IPCONFIG /ALL manually. If I uninstall SC all works well and I can use IPCONFIG /ALL manually from the command prompt.

Has anybody got any suggestions as to my dilemma?

Thanks in advance.

[melipla]

I would say there's a problem with the script. It must be parsing the output of ipconfig /all and is probably behaving differently because the ethernet adapter for SecureClient doesn't have a valid IP which is fubar'ing the logic behind identifying the proper SDS server. In my case the output of ipconfig is Wireless -> LAN -> SecureClient interface. The data from the SecureClient interface would overwrite the data from the LAN interface due to their display order.

[jabba]

Thanks for this Melipla. Here is a couple of functions I found in the script. It is using DMScript .dms if there is anything you spot please let me know.

'************************************************* *****************************************
'*
'* Returns the Subnet 1=a, 2=b, 3=c
'*
'************************************************* *****************************************
FUNCTION GetIPSubNet(nr AS INTEGER, Address AS STRING) AS STRING
DIM cnt AS INTEGER
DIM SubNet, TmpStr AS STRING

SubNet = ""
TmpStr = Address
'First get the part of the address
cnt = 0
WHILE cnt < nr
Subnet = SubNet + MID(TmpStr,1,InStr(TmpStr,"."))
TmpStr = MID(TmpStr,InStr(TmpStr,".")+1)
cnt = cnt + 1
WEND

'Then pad with .0 's
cnt = nr+1
Subnet = SubNet + "*"
WHILE cnt < 4
Subnet = SubNet + ".*"
cnt = cnt + 1
WEND

GetIPSubnet = SubNet
END FUNCTION 'GetIPSubNet

'************************************************* *****************************************
'*
'* This function gets the IP address, SubnetMask and Type (Network or Dial-In).
'* If will first Try the Network adapter if No adress Then the Dail-In adapters are tries
'* And the first one with a IP Address are retured
'*01-2004 : F.Maufrais: support of WindowsXP, French, German?
'*02-2004 : F.maufrais: take care of "DHCP" or "Dhcp" by a UCASE filter added
'************************************************* *****************************************
FUNCTION GetIPSettings(ByRef IpAddr AS STRING, ByRef SubMask AS STRING, ByRef AddrType AS STRING) AS BOOLEAN

DIM sIPGate, sIP, sKey as STRING
DIM line AS STRING
DIM rHdl, rHdl2, iEnumCnt, iDummy, bFound, fhdl as INTEGER
DIM title,FileName,FileName2,IpGate,testme as STRING

FileName = "c:\ipconfig.txt"
FileName2 = "c:\route.txt"
EXECUTE("cmd.exe /c ipconfig /all > " + FileName,TRUE,0)
EXECUTE("cmd.exe /c route print > " + FileName2,TRUE,0)

'Gather the active Default Gateway from Route Print.
If ExistFile(Filename2) THEN
fhdl = OpenFile(FileName2,O_READ)
IpGate = ""
WHILE NOT(EOF(fhdl)) THEN
ReadFile(fhdl,line)
If Instr(line,"Default Gateway") THEN
IpGate = TRIM(MID(line,InStr(line,":")+1))
ELSEIF Instr(line,"Passerelle par d") THEN
IpGate = TRIM(MID(line,InStr(line,":")+1))
ENDIF
IF IpGate <> "" THEN EXIT WHILE
WEND
CloseFile(fhdl)
ENDIF

'Compare IP config against active gateway.
'Gather IP Address.

IF ExistFile(FileName) THEN
fhdl = OpenFile(FileName,O_READ)

iEnumCnt = 0
bFound = True
WHILE NOT(EOF(fhdl)) THEN
testme=""
ReadFile(fhdl,line)

' Gather Network Connection Type

IF ((LEFT(line,5) <> " ") AND (InStr(UCASE(line),"ETHERNET")) OR (InStr(UCASE(line),"RING"))) THEN title=line

If InStr(UCASE(line),"DHCP") THEN
REPEAT 'loop until IP field is found (XP and 2000 are different!)
ReadFile(fhdl,line) 'next line
UNTIL (InStr(UCASE(line),"IP")<>0 OR EOF(fhdl) )
IF EOF(fhdl) THEN EXIT WHILE
'clean last character of line if garbagge (0x0d)
IF Asc(RIGHT(line,1))=13 THEN
line = LEFT(line,LEN(line)-1)
ENDIF
testme=TRIM(MID(line,InStr(line,":")+1))
ReadFile(fhdl,line) ' no use
ReadFile(fhdl,line) ' Gateway
'clean last character of line if garbagge (0x0d)
IF Asc(RIGHT(line,1))=13 THEN
line = LEFT(line,LEN(line)-1)
ENDIF
testme=testme+"#"+TRIM(MID(line,InStr(line,":")+1) )

'Testing if we recognize the active Network adapter seen by "route" command
If Instr(testme,IpGate) THEN
IpAddr=MID(testme,0,InStr(testme,"#")-1)
IF (InStr(UCASE(title),"ETHERNET")) OR (InStr(UCASE(title),"RING")) THEN
AddrType="Network"
ELSE
AddrType="Dial-Up"
ENDIF
EXIT WHILE
ELSE
ENDIF
ENDIF

WEND
'Gather Subnet Mask

SeekFile(fhdl,0)
WHILE NOT(EOF(fhdl)) THEN
ReadFile(fhdl,line)
If InStr(line,IpAddr) THEN
ReadFile(fhdl,line)
SubMask=TRIM(MID(line,InStr(line,":")+1))
IF Asc(RIGHT(SubMask,1))=13 THEN
SubMask = LEFT(SubMask,LEN(SubMask)-1)
ENDIF
ENDIF
WEND

ENDIF
CloseFile(fhdl)
DeleteFile(FileName)
DeleteFile(FileName2)
END FUNCTION