Can you please take a look at my script before I release? I wanted to use PPING to query any valid IPs on the Network and then use this script against the live workstations without them having to re-login. I started getting a headache so I finally conceded to putting this in the login script for the next time they login.
[CODE]
;This script will get the IP Address and version of Netware from a workstation then write it to a network share
Break on
;Get Cadre Version# $Netware=ReadValue("HKEY_LOCAL_MACHINE\SOFTWARE\Novell","CurrentVersion")
;Get ComputerName $computer=ReadValue("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\ComputerName\ComputerName","ComputerName")
; First octet (169)... $IP1 = LTRIM(SUBSTR(@IPADDRESS0, 1, 3)) ; Second octet (54)... $IP2 = LTRIM(SUBSTR(@IPADDRESS0, 5, 3)) ; Third octet (88)... $IP3 = LTRIM(SUBSTR(@IPADDRESS0, 9, 3)) ; Fourth octet (1)... $IP4 = LTRIM(SUBSTR(@IPADDRESS0, 13, 3))
; Show the 4 octets... ;? $IP1 ;? $IP2 ;? $IP3 ;? $IP4
; Create MyIP from IP Address + Netware Version + ComputerName $MyIP=$IP1 + "." + $IP2 + "." + $IP3 + "." + $IP4 + " " + $Netware + " " + $computer ;? $MyIP
;Check if MyIP already exists in ipadds.txt
shell '%comspec% /c find /i /c "$MyIP" "c:\kixtart\ipadds.txt"' If @error = 0 goto end else RedirectOutput ("X:\kixtart\ipadds.txt") = 0 ? $MyIp endif
:end
|