Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.
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