Database Search

TechHome

	Domain
	Logon Issues
	Microsoft Client
	Novell Netware
	Server Configurations
	Services
	WhitePapers

• !!Users, Workstations, Domains and Machine Domains Explained
• 1932 Winexec when Opening MultiUser Files on a Network
• 523 Error Enumerating Network Resources
• App not Launching from Mapped Root
• Backslashes with Servers - Volumes - Directories
• Changing Password in Windows 95
• Client IP Configuration script
• Connect to Servers via DOS batch files
• Detect Existence of Client32
• Determine if a Tree of Directory is Mappable
• Determine if a User has Admin Rights
• Disable NetBIOS over TCPIP
• Disconnect Mapped Drives Ex Dialog
• Display a Banner or Message Box on Remote PC
• Find out what Drive Letter is Mapped to Server
• Find Users Logged on Other Machines
• Finding and Listing Processes on Remote
• Getting Currently Connected Usernames to NT Share
• Global Net Map Setting
• Hiding Drive Mappings
• How do I see Im logged on
• Installing your Network via Windows Setup
• Is Network Alive
• Log Off User after an Amount of Time
• MSIE Proxy Server Control
• Net Use Command and Passing Passwords
• NT to Novell Translator
• RASSAPI.dll not Found
• Remote Launch of Winbatch
• Replication Manager - Replicate BDCs
• Sample Code Extracts Authenticating Server Name
• Segment Load Error
• Send Messages to Users
• SNMP in WinBatch
• Test Network Drive Mappings
• Unexpected Network Error
• Update All NT Existing-New User Registry Configs
• Use of Newer Network Extenders with Older Winbatch
• Using a BAT File to Launch Subsequent Operations
• Validate a Userid and Password
• Wake up Machine on LAN
• Who is Logging on to Remote NT Server
• Win32 Network Errors
• Workaround for Network Error 510

Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.

NT to Novell Translator

Keywords:   NT to Novell Translator

;DebugTrace(@on,"c:\wbdebug.txt")
;Debug(@ON)
Winhide("")
Errormode(@OFF)

;Env. set
Novell = "Novell_NetWare"
NT = "Microsoft Network"
New_NameContext = ".GTS.Shanghai.CN.AAP"
New_PreferredServer = "SHANDS01"
New_Tree = "PWC_CN_SH"
DriverDesc1 = "Novell IntranetWare Client"
DriverDesc2 = "Client for Microsoft Networks"

for xx = 0 to 5
   netnum = strfixleft(xx,0,4)   ;get net number
   regkey = RegOpenKey(@REGMACHINE, "System\CurrentControlSet\Services\Class\NetClient\%netnum%")
   DriverDesc = RegQueryValue(regkey, "[DriverDesc]")
   if DriverDesc == DriverDesc1
      If RegexistKey (@REGMACHINE, "System\CurrentControlSet\Services\Class\NetClient\%netnum%\Ndi\Default")
          Message("Network Environment Transtrator", "The proferred server has already been changed to NOVELL%@crlf%%@crlf%Setup will exit without making any changes.")
          exit
      endif
;   else
;      message("Network Environment Translator","Please install the Novell Interware Client first")
;      exit
   endif
next
RegCloseKey(regkey)

Pause("Network Environment Translator","Welcome to the Network Environment Transtrate which will%@crlf%change the proferred server from NT to Novell.%@crlf%%@crlf%Note: The proferred server will be changed to %New_PreferredServer%")

Display(3,"Network Environment Translator","Backup registry database, please wait...")

;backup regiestry datatbase
windir = Environment("windir")
FileAttrSet("%windir%\*.da*", "ashr")
DirMake("%windir%\regbkp")
FileCopy("%windir%\*.da*","%windir%\regbkp",@FALSE)

regkey = RegOpenKey(@REGMACHINE, "SOFTWARE\Microsoft\Windows\CurrentVersion\Network\Real Mode Net")
preferredredir = RegQueryValue(regkey, "[preferredredir]")
If preferredredir != ""
   RegSetValue(regkey, "[preferredredir]", "")
Endif
RegCloseKey(regkey)

for xx = 0 to 5
   netnum = strfixleft(xx,0,4)
   regkey = RegOpenKey(@REGMACHINE, "System\CurrentControlSet\Services\Class\NetClient\%netnum%")
   DriverDesc = RegQueryValue(regkey, "[DriverDesc]")
   if DriverDesc == DriverDesc2
      RegDeleteKey(@REGMACHINE, "System\CurrentControlSet\Services\Class\NetClient\%netnum%\Ndi\Default") ;Del the currect Primary network logon (Client for Microsoft Networks)
   endif

   if DriverDesc == DriverDesc1
      regkey = RegCreatekey(@REGMACHINE, "System\CurrentControlSet\Services\Class\NetClient\%netnum%\Ndi\Default")
      RegSetValue(regkey, "", "True")	 ;set Primary network logon (Novell IntranetWare Client)
   endif
next
RegClosekey(regkey)

regkey = RegOpenKey(@REGMACHINE, "Network\Logon")
Primary_Network = RegQueryValue(regkey, "[PrimaryProvider]")
If Primary_Network != Novell
   RegSetValue(regkey, "[PrimaryProvider]", Novell)     ;Set the Novell as primary network system
Endif
RegCloseKey(regkey)

regkey = RegOpenKey(@REGMACHINE, "Network\Novell\System Config\NetWare DOS Requester\Name Context")
Old_NameContext = RegQueryValue(regkey, "[0]")
If Old_NameContext != New_NameContext
   RegSetValue(regkey, "[0]", New_NameContext)     ;Set Name context as ".MCS.BEIJING.CN.AAP"
Endif
RegCloseKey(regkey)

regkey = RegOpenKey(@REGMACHINE, "Network\Novell\System Config\NetWare DOS Requester\Preferred Server")
Old_PreferredServer = RegQueryValue(regkey, "[0]")
If Old_PreferredServer != New_PreferredServer
   RegSetValue(regkey, "[0]", New_PreferredServer)     ;Set Preferred Server as "PEKNDS01"
Endif
RegCloseKey(regkey)

regkey = RegOpenKey(@REGMACHINE, "Network\Novell\System Config\NetWare DOS Requester\Preferred Tree")
Old_Tree = RegQueryValue(regkey, "[0]")
If Old_Tree != New_Tree
   RegSetValue(regkey, "[0]", New_Tree)     ;Set Preferred tree as "PWC_CN_BJ"
Endif 
RegCloseKey(regkey)

Message("Network Environment Translator","Network Environment Transtrate has been completed successfully")

TimeOut = 5
while TimeOut > 0
        Display (1, "Network Environment Translator", "Machine will be restart to take effect in %TimeOut% seconds")       
        TimeOut = TimeOut-1
endwhile

IntControl (67, 0, 0, 0, 0)     ;Restart machine

Article ID:   W14872

File Created: 2001:11:08:12:40:44

Last Updated: 2001:11:08:12:40:44