I'm currently testing Win7 Pro at work. Obviously the drives are not mapping automatically unless I run a script from my desktop. What do I need to add to the script to map drives on Win7? I tried a "if in Group", no luck, NET USE, no luck. Here is the code that calls logon.bat:

Code:

GOSUB MAPDRIVES
;GOSUB WIN_XP


:MAPDRIVES


CLS
Color Y+/n

AT (20,15) "Mapping Department Drives and Checking Norton AntiVirus Status..."
AT (24,79)

;Shell "\\ Servername \VPLOGON\VPLOGON.BAT"


      
$HOMEDIR=@UserID + "$"

USE H: /DEL
USE H: "\\ Servername \$HOMEDIR"


USE N: /DEL
USE Q: /DEL
USE R: /DEL
USE S: /DEL
USE G: /DEL
USE T: /DEL


USE N: "\\Servername\Dshares\SAP\Documents"
USE Q: "\\Servername \QS9000"
USE R: "\\Servername \DSHARES"
USE S: "\\Servername \GSHARES"
USE G: "\\Servername \APPS"
USE x: "\\Servername \NETWORK_SCANNING"


IF INGROUP ("HEBxWDDrop")
      USE Y: /DEL
      USE Y: "\\ Servername\loftware$\WDDrop"
ENDIF

:UNKNOWN_OS
GOTO END

ENDIF

:END

Here is the script I manually run from the desktop:

Code:

On Error Resume Next
Set objNetwork = CreateObject("WScript.Network")
objNetwork.MapNetworkDrive "R:", "\\ Servername \DShares" 

On Error Resume Next
Set objNetwork = CreateObject("WScript.Network")
objNetwork.MapNetworkDrive "N:", "\\ Servername \DShares\SAP" 

On Error Resume Next
Set objNetwork = CreateObject("WScript.Network")
objNetwork.MapNetworkDrive "S:", "\\ Servername \GShares" 

On Error Resume Next
Set objNetwork = CreateObject("WScript.Network")
objNetwork.MapNetworkDrive "Q:", "\\ Servername \QS9000" 


On Error Resume Next
Set objNetwork = CreateObject("WScript.Network")
objNetwork.MapNetworkDrive "X:", "\\ Servername \Network_Scanning" 

On Error Resume Next
Dim strDriveLetter, strRemotePath, strUserName
strDriveLetter = "H:" 
strRemotePath = "\\ Servername \" 
' Purpose of script to create a network object. (objNetwork)
' Then apply the MapNetworkDrive method. Result H: drive
Set objNetwork = WScript.CreateObject("WScript.Network") 
' Here is where we extract the UserName
strUserName = objNetwork.UserName 
strUserName = strUserName & "$"
objNetwork.MapNetworkDrive strDriveLetter, strRemotePath & strUserName 


msgbox ("Drives Have Been Successfully Mapped")

Would It be better if I added a Group for Win7 users and then call the script or what?

Thanks!

if ingroup("group1") and not ingroup("group2") MapDrive('e',"\\server\CAU",,,1,1) MapDrive('g',"\\server\INSP_HQA",,,1,1) MapDrive('z',"\\server\MISAPPS",,,1,1) endif if ingroup("group3") MapDrive('i',"\\server\insp_hqa",,,1,1) MapDrive('l',"\\server\cau",,,1,1) MapDrive('z',"\\server\MISAPPS",,,1,1) endif if ingroup('group4') MapDrive('r','\\server\HCPR',,1,1,1) endif ;************************************************************************************************************************* Function MapDrive($DriveLetter, $UNC, optional $Label, optional $Icon, optional $Delete, optional $verbose) dim $subcmd, $pt, $d, $di, $shell, $text $d = left($DriveLetter,1) $di= "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\DriveIcons" $pt= @producttype $subcmd = iif($pt = "Windows NT Workstation","subst","net use") $text = iif($label,$label,' ') if $delete shell '%comspec% /c $subcmd $d: /d /y 1>Nul 2>&1' $nul=deltree("$di\$D") endif if not exist('$D:\') shell '%comspec% /c $subcmd $D: "$UNC" 1>Nul 2>&1' if $verbose if not @error Show(' Connected '+ ucase($driveletter)+ ': to '+ $UNC + ' ( '+ $text + ' )') sleep 1 else Show(' FAILED ' + ucase($driveletter)+': Connected to '+ $UNC+ ' ( '+ $text + ' )') exit 1 endif endif else exit 2 endif if $pt="Windows XP Professional" or $pt="Windows 2000 Professional" if $Label $shell=createobject("shell.application") $shell.namespace('$D:\').self.name=$Label endif if $icon $=writevalue('$di\$D\DefaultIcon','',$Icon,REG_SZ) endif endif ENDFUNCTION

GOSUB MAPDRIVES ;GOSUB WIN_XP :MAPDRIVES CLS Color Y+/n AT (20,15) "Mapping Department Drives and Checking Norton AntiVirus Status..." AT (24,79) ;Shell "\\HEBADS006\VPLOGON\VPLOGON.BAT" SHELL "wscript.exe \\servername\SYSVOL\na.autoedir.com\scripts\Sites\HEB\Win_7.vbs" Shell "wscript Win_7.vbs" $HOMEDIR=@UserID + "$" USE H: /DEL USE H: "\\servername\$HOMEDIR" USE N: /DEL USE Q: /DEL USE R: /DEL USE S: /DEL USE G: /DEL USE T: /DEL USE N: "\\servername\Dshares\SAP\Documents" USE Q: "\\servername\QS9000" USE R: "\\servername\DSHARES" USE S: "\\servername\GSHARES" USE G: "\\servername\APPS" USE x: "\\servername\NETWORK_SCANNING" IF INGROUP ("HEBxWDDrop") USE Y: /DEL USE Y: "\\servername\loftware$\WDDrop" ENDIF :UNKNOWN_OS GOTO END ENDIF :END