code:

---

 If InStr($netdrives,"\\server\sharename")
	$t = OpenFile("\\server\share\badmap.csv", "W", 1, 0)
	If @error = 0
		WriteLine($t, "@WKSTA, $IP, @USERID, @FULLNAME, $os, $netdrives" + @CRLF)
	EndIf
EndIf 

---

code:

---

 If InStr($netdrives,"\\server1\Win")
	$t = OpenFile

---

My next problem is I don't know how to then remember the specific drive letter associated with the specific mapping I am looking for in the "If InStr()".

Once these problems are solved, I think I know how to delete that mapping using the remembered drive letter, and then re-map persistantly using MapDrive() to the new path.

Can you help me fill in the gaps, change my thinking, or fix my logic?

code:

---

 
For Each $drive in Split(DriveEnum(3))
	If driveprop($drive)[2]='\\server1\share'
		Use $drive /Del /PERSISTENT
		Use $drive "\\server2\share" /PERSISTENT
	EndIf
Next

---

I will begin testing on each OS now. I like this Split() function. I'm just learning about how to use it. I really appreciate your assistance!

code:

---

 
For Each $drive in Split(DriveEnum(3))
	If driveprop($drive)[2]='\\slayer\nt'OR'\\slayer\ntunix'OR'\\slayer\nt2'AND NOT Left(driveprop($drive)[0],2)='\\'
		? $drive
		? @SERROR
	EndIf
Next
 

---

code:

---

 G:
The operation completed successfully.
\\slayer\nt2,H:
The operation completed successfully.
\\usfile02\thogarr,I:
The operation completed successfully.
\\usdfs\AllGroups,J:
The operation completed successfully.
\\slayer\nt,K:
The operation completed successfully.
\\slayer\ntunix,L:
The operation completed successfully.
 

---

code:

---

 
For Each $drive in Split(DriveEnum(3));
	If driveprop($drive)[2]='\\server1\share'AND NOT Left(driveprop($drive)[0], 2)='\\'
		Use $drive+":" /Del /PERSISTENT
		Use $drive+":" "\\server2\share" /PERSISTENT
	EndIf
Next
 

---

quote:

---

BTW, what do I do about Win9x and WinNT clients without WSH?

---

code:

---

use '*' /selete /persistent
if ingroup('group A')
  use x: '\\server\share'
endif
; and so on

---

• Enumerate mapped drives

• See if any specific mappings exist

• If so, record the drive letter as a variable

• Use the Variable to delete the mapping and re-map.

code:

---

shell 'net use >"%TEMP%\mappings.txt"

---

code:

---

 
;===============================================================================================
;**** Created with KiXscripts Editor | http://KiXscripts.com ****
;**** Last Modified on 4/18/2003 @ 5:01:10 PM by "thogarr" ****
;**** Developed for KiXtart release 4.12  |  www.KiXtart.org ****
;===============================================================================================
;
;	This code will Enumerate Mapped Drives, See If any specific 
;	mappings exist, and if so, Set the drive letter as a variable, and use the Variable 
;	to delete the existing mapping and map the drive to the specified UNC.  

;	You will need to modify the UNC to search for and the UNC to map.  This worked for me
;	because we had 3 shares on one server that started with the same 2 letters which I 
;	needed to consolidate into one new share on a different sever and get everyone remapped.

;
For Each $drive in Split(DriveEnum(3))
	If InStr($drive,"\\server1\share")
	$driveltr=Left($drive,2)
	Use $driveltr /Del /PERSISTENT
	Use $driveltr "\\server2\share" /PERSISTENT
	EndIf
Next
;
;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
;  FUNCTIONS
;************************************************************
;**
;**  Enumerate Drives Function 
;**
;**
;Function DriveEnum()
;
;Author Radimus
;
;Version 1 (06.20.2002)
;
;Action Returns a list of all connected drive letters (space seperated). 
;
;Syntax DriveEnum(optional $filter)
;
;Parameters
; $filter- (to return specific types of drives. any combination of the numbers below)
; 0/"" - return all drives
; 1 - return removable drives
; 2 - return fixed drives
; 3 - return network drives
; 4 - return CD rom drives
; 5 - return RAM drives
;
;
;Remarks
;
;
;Returns
; -space seperated list of drive letters use split() to seperate
;
;
;Dependencies
; WSH - kix 4.02+
;
;Examples
; $netdrives=DriveEnum(3)
; $localdrives=DriveEnum(124)
; $all=DriveEnum("")
;
;Source
;******************************************************************
Function DriveEnum(optional $filter)
   Dim $fso, $Drive

   $fso=CreateObject("Scripting.FileSystemObject")
   If $fso
      For Each $Drive in $fso.Drives
         If InStr($filter,$Drive.DriveType) OR $filter=""
            $DriveEnum=$DriveEnum+$Drive.DriveLetter + ":" + $Drive.Sharename + ", "
            EndIf
         Next
      $DriveEnum=Left($DriveEnum,Len($DriveEnum)-1)
      $fso=""
      EndIf
   EndFunction
 

---