'==========================================================================
'
' Minnesota State University Mankato
'
' VBScript Source File
'
' NAME: Regfix.exe
' VERSION: 1.0.0
' AUTHOR: McLaughlin, Michael
' DATE  : 9/5/2002
'
' COMMENT: DO NOT MODIFY THIS SCRIPT FROM THE ORIGONAL SOURCE, DO NOT RUN IF YOU 
'          RECIEVED THIS FILE FROM SOMEWHERE OTHERTHAN THE MSU HELPDESK OR FROM
'          MSU MAVWEB.MNSU.EDU WEB SITE. 
'
'	   THIS FIX IS FOR WINDOWS 2000 AND WINDOWS XP MACHINES DO NOT USE WITH NT4
'          OR WINDOWS 9X CLIENTS.
'==========================================================================
'BEGINNING OF VBSCRIPT
Set oshell = CreateObject("wscript.shell")
Set onetwork = CreateObject("wscript.network")
oShell.regwrite "HKLM\System\CurrentControlSet\Control\Lsa\MSV1_0\PreferredDomain","Campus.mnsu.edu"
oShell.regwrite "HKLM\System\CurrentControlSet\Control\Lsa\MSV1_0\MappedDomain", onetwork.ComputerName
WScript.Echo "Registry successfully patched!" & vblf & "PreferredDomain = Campus.mnsu.edu" & vblf & "MappedDomain = " & onetwork.ComputerName
'END OF VBSCRIPT