AddExtender("WWPST34I.DLL")
Addextender("WWWNT34I.DLL")

Boxopen("Login","Login script is running....")
Boxtext("Mapping Drives")
Login=RunHideWait("%dc%\NETLOGON\loginw2kTST.bat","")
Profile=wntUserProps(dc, usr, 4)
Errormode(@off)
If Login==@False then
	Message("Login","Could not find your login script.%@CRLF%%@CRLF%This could be due to network problems or your individual permissions.%@CRLF%Try running your login utility again, if it still dosen't work%@CRLF%contact the helpdesk.")
EndIf
dc="YourDomainController"
name=wntUserInfo(0)
script=wntUserGetDat("\\YourDomainController",name,"script_path")

;*******share location section********************

share=0
if StrIndexNc (name,"a", 1, @BACKSCAN)==1 then share=1
if StrIndexNc (name,"b", 1, @BACKSCAN)==1 then share=2
if StrIndexNc (name,"c", 1, @BACKSCAN)==1 then share=3
if StrIndexNc (name,"d", 1, @BACKSCAN)==1 then share=4
if StrIndexNc (name,"e", 1, @BACKSCAN)==1 then share=5
if StrIndexNc (name,"f", 1, @BACKSCAN)==1 then share=6
if StrIndexNc (name,"g", 1, @BACKSCAN)==1 then share=7
if StrIndexNc (name,"h", 1, @BACKSCAN)==1 then share=8
if StrIndexNc (name,"i", 1, @BACKSCAN)==1 then share=9
if StrIndexNc (name,"j", 1, @BACKSCAN)==1 then share=10
if StrIndexNc (name,"k", 1, @BACKSCAN)==1 then share=11
if StrIndexNc (name,"l", 1, @BACKSCAN)==1 then share=12
if StrIndexNc (name,"m", 1, @BACKSCAN)==1 then share=13
if StrIndexNc (name,"n", 1, @BACKSCAN)==1 then share=14
if StrIndexNc (name,"o", 1, @BACKSCAN)==1 then share=15
if StrIndexNc (name,"p", 1, @BACKSCAN)==1 then share=16
if StrIndexNc (name,"q", 1, @BACKSCAN)==1 then share=17
if StrIndexNc (name,"r", 1, @BACKSCAN)==1 then share=18
if StrIndexNc (name,"s", 1, @BACKSCAN)==1 then share=19
if StrIndexNc (name,"t", 1, @BACKSCAN)==1 then share=20
if StrIndexNc (name,"u", 1, @BACKSCAN)==1 then share=21
if StrIndexNc (name,"v", 1, @BACKSCAN)==1 then share=22
if StrIndexNc (name,"w", 1, @BACKSCAN)==1 then share=23
if StrIndexNc (name,"x", 1, @BACKSCAN)==1 then share=24
if StrIndexNc (name,"y", 1, @BACKSCAN)==1 then share=25
if StrIndexNc (name,"z", 1, @BACKSCAN)==1 then share=26
If script=="boston" then script= 40
If script=="boston.bat" then script= 40
gosub %script%
shares=strcat(fserver,"\",name)

wntAddDrive(@default,@default,"%shares%\personal","H:",@False)
wntAddDrive(@default,@default,"%shares%\public","I:",@False)
wntAddDrive(@default,@default,"%shares%\public","J:",@False)

mem=wntMemberGrps(dc, usr, @GLOBALGROUP, 0)
pos=ItemCount (mem, @TAB)
while pos >0		  
		x=itemextract(pos,mem,@TAB)
      if x=="OpenplanManagers"
			wntAddDrive(@default,@default,"\\ntapp02\opp","u:",@False)
		endif
		if x=="OpenplanUsers"
			wntAddDrive(@default,@default,"\\ntapp02\opp","u:",@False)
		endif
		if x=="HProtease"
			wntAddDrive(@default,@default,"\\ntis01\hivprot","p:",@False)
		endif
		if x=="ProjectManagement"
			wntAddDrive(@default,@default,"\\ntis01\projman","p:",@False)
		endif
		if x=="DemoUsers"
			wntAddDrive(@default,@default,"\\ntis01\demo","g:",@False)
		endif
		if x=="Aladin"
			wntAddDrive(@default,@default,"\\ntis02\aladin","s:",@False)
		endif
		if x=="SoftwareDevelopment"
			wntAddDrive(@default,@default,"\\ntis02\softdev","l:",@False)
		endif
		if x=="Contacts"
			wntAddDrive(@default,@default,"\\ntis01\contacts","k:",@False)
		endif
		if x=="Finance"
			wntAddDrive(@default,@default,"\finserv1\finance","p:",@False)
		endif
		if x=="ProcessEngineering"
			wntAddDrive(@default,@default,"\\ntis04\proceng","k:",@False)
		endif
		if x=="Legal"
			wntAddDrive(@default,@default,"\\ntfs01\legal","x:",@False)
		endif
		if x=="NTISUsers"
			wntAddDrive(@default,@default,"\\ntis05\data1","k:",@False)
			wntAddDrive(@default,@default,"\\ntis05\poly","l:",@False)
			wntAddDrive(@default,@default,"\\ntis05\geno","m:",@False)
		endif
		if x=="ProductDevelopment"
			wntAddDrive(@default,@default,"\\ntis02\proddev","p:",@False)
		endif
		if x=="Bigscan"
			wntAddDrive(@default,@default,"\\ntis05\bigscan","n:",@False)
		endif
		if x=="WelcomeHV"
			wntAddDrive(@default,@default,"\\ntis01\gwhiv","m:",@False)
		endif
		pos=pos-1	
endwhile				 
Errormode(@on)
exit

:3450
if share < 5 then fserver="\\centralfs01\home1"
if share > 5 then fserver="\\centralfs01\home2"
if share > 10 then fserver="\\centralfs02\home3"
if share > 16 then fserver="\\centralfs02\home4"
Return

:3380
if share < 5 then fserver="\\centralfs01\home1"
if share > 5 then fserver="\\centralfs01\home2"
if share > 10 then fserver="\\centralfs02\home3"
if share > 16 then fserver="\\centralfs02\home4"
Return

:428
if share < 12 then fserver="\\oakfs01\home1"
if share > 12 then fserver="\\oakfs01\home2"
if share > 11 then fserver="\\oakfs02\home4"
if share > 15 then fserver="\\oakfs02\home5"
Return

:890
fserver="ntfs30"
Return

:1170
if share < 12 then fserver="\\kiferfs01\home1"
if share > 12 then fserver="\\kiferfs01\home2"
Return

:50
fserver="ntfs50"
Return

:40
fserver="ntfs40"
Return

:60
fserver="ntfs60"
Return

;~~~~~~~~~~~~~~~~~~~~Send email to selected users~~~~~~~~~~~~~~~~~~~~~
:MAIL
USR_ID= wntUserInfo(1)
If full==6
	msg_lne="2000 Workstation id: %name%%@CRLF%Domain: YourDomain_COM%@CRLF%Initial Password: %pass%%@CRLF%Location:%cmt2% %cmt%@CRLF%%@CRLF%NO EMAIL ACCOUNT CREATED."
else
	msg_lne="Exchange Email id: %last%,%first%%@CRLF%Internet Mail: %first%_%last%@YourDomain.com%@CRLF%%@CRLF%2000 Workstation id: %name%%@CRLF%Domain: YourDomain_COM%@CRLF%Initial Password: %pass%%@CRLF%Location:%cmt2% %cmt%"
endif
If full==6
	sbj_lne="NT & 2000 domain accounts have been created for : %first% %last%"
else
	sbj_lne="Email, NT & 2000 domain accounts have been created for : %first% %last%"
endif

list ="C:\program files\new user\recip.txt" 
SC = Askfiletext("Reply to ?", list, @sorted, @multiple)
host="ntex00.YourDomain.com"
fromaddr="Helpdesk@YourDomain.com"
userid="%usr_id%"
password=""
port=""
tolist="%SC%"
cclist=""
bcclist=""
subject="%sbj_lne%"
msg="%msg_lne%"
attachments=""
flags=""
kInit(host,fromaddr,userid,password,port)
kDest(tolist,cclist,bcclist)
kSendText(subject,msg,attachments,flags)
return