Netware Version Sniffer Code from User

Keywords: 	 Netware Version Sniffer Code

---

I have included my NW "sniffer" routine, that I wrote to determine the NW version running. I normally call this as part of a subroutine. It is needed because the parameters are sometimes different for the NetWare commands, depending on the version.

; add NetWare32 extenders for NetWare functions

AddExtender("wwn3x34I.dll")
AddExtender("wwn4x34I.dll")

gosub GetNWVersion

; get NetWare version from subroutine and 
;return VAR (NWVer)to indicate and use in NWcommands; 
;use N%NWVer% in NetWare commands instead of N3 and N4.

userid=N%NWVer%GetUserID("\\NWServer","NWUSER",1)
message("UserIDis","%userid%")

:GetNWVersion; try NW4 command to determine if running on NW4
serverNW4ObjectList="0"
ErrorMode(@OFF)
   NW4ObjectList=n4ObjectList("","","","")
ErrorMode(@CANCEL);
;NW4ObjectListPick=AskItemList("List of NW4 Objects",NW4ObjectList,@TAB,@SORTED,@SINGLE)

If NW4ObjectList=="0" ; NW4 NOT installed, assume NW3 
   NWVer="3" 
   ;Display(2,"Network Version","NetWare 3 Installed and running")
Else ; NW4 installed and running NWVer="4"
   NWVer="4"
   ;Display(2,"Network Version","NetWare 4 Installed and running")
EndIf
Return

---

Article ID:   W13632

Filename:   Netware Version Sniffer Code.txt