• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 628
  • Last Modified:

Kix script to Change unc paths in other Kix scripts

I'm the new Windows 2003 Active Directory admin at my company. Right now we have about 300+ Windows XP workstations. They are stil using Kix scripts to map users to different network shares. Anyway, right now everyone's network account is setup with one of 15 different batch files that point to a specific kix script depending on their department or location / remote site. Anyway I'm going to be replace our file server at one of our remote sites and need to update users login scrript to use the new server name instead of the old one. How can I do this? Can a kix script be smart enough to use logic like if \\older-server exist change to \\New-Server??? Please help. Also how would I address users had have hard coded drive mapping to my older file server?
0
compdigit44
Asked:
compdigit44
  • 2
2 Solutions
 
RobSampsonCommented:
Hi, I don't know much about Kix, but I see this problem being in two parts.

One is that you need to update your 15 or so Kix scripts to have their references to the old server point to the new file server.

Two is that you need to address any manual / custom mappings that a user might have.

For part one, I can provide a VBScript file that will change the references in your Kix scripts.  It will copy the files to a KIX_Backups folder in the source folder before changing them, but back them up yourself as well, just to be safe.

For part two, I will also provide a VBScript that can be used as a login script to remap a drive that might be mapped to the old server.

Regards,

Rob.
strScriptFolder = "\\server\netlogon"
strOldServer = "\\oldserver\share"
strNewServer = "\\newserver\share"
If Right(strScriptFolder, 1) = "\" Then strScriptFolder = Left(strScriptFolder, Len(strScriptFolder) - 1)
strBackupFolder = strScriptFolder & "\KIX_Backups"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Const intForReading = 1
If objFSO.FolderExists(strBackupFolder) = False Then objFSO.CreateFolder(strBackupFolder)
For Each objFile In objFSO.GetFolder(strScriptFolder).Files
	If Right(LCase(objFile.Name), 4) = LCase(".kix") Then
		strFilePath = objFile.Path
		objFSO.CopyFile strFilePath, strBackupFolder
		Set objKIXFile = objFSO.OpenTextFile(strFilePath, intForReading, False)
		strContents = objKIXFile.ReadAll
		objKIXFile.Close
		Set objKIXFile = Nothing
		strContents = Replace(LCase(strContents), LCase(strOldServer), LCase(strNewServer))
		Set objKIXFile = objFSO.CreateTextFile(strFilePath, True)
		objKIXFile.Write strContents
		objKIXFile.Close
		Set objKIXFile = Nothing		
	End If
Next
MsgBox "Done"

Open in new window

0
 
RobSampsonCommented:
And here's part two.

Rob.
Set objNetwork = CreateObject("Wscript.Network")
strOldServer = "\\oldserver\share"
strNewServer = "\\newserver\share"
Set colDrives = objNetwork.EnumNetworkDrives
For i = 0 to colDrives.Count - 1 Step 2
	If Left(colDrives.Item(i + 1), Len(strOldServer)) = strOldServer Then
		strDriveLetter = colDrives.Item(i)
		objNetwork.RemoveNetworkDrive strDriveLetter, True, True
		If Len(colDrives.Item(i + 1)) > Len(strOldServer) Then
			objNetwork.MapNetworkDrive strDriveLetter, strNewServer & Mid(colDrives.Item(i + 1), Len(strOldServer) + 1), True
		Else
			objNetwork.MapNetworkDrive strDriveLetter, strNewServer, True
		End If
    End If
Next

Open in new window

0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

Cloud Class® Course: MCSA MCSE Windows Server 2012

This course teaches how to install and configure Windows Server 2012 R2.  It is the first step on your path to becoming a Microsoft Certified Solutions Expert (MCSE).

  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now