Use $drive: $share /user:$StringUsername /password:$StringPassword

Function CmdUserLogin_Click()

	If $TextBoxUsername.Text = ""
		$= $Form.MsgBox("You must specify a username before clicking LOGIN.", "Invalid Username")
		$TextBoxUsername.Text = $StringUsername
		Exit Sub
	Else
		$StringUsername = $TextBoxUsername.Text
	EndIf

	If $TextBoxPassword.Text = ""
		$= $Form.MsgBox("You must specify a password before clicking LOGIN.", "Invalid Password")
		$TextBoxPassword.Text = $StringPassword
		Exit Sub
	Else
		$StringPassword = $TextBoxPassword.Text
	EndIf


	$Form.Hide

	$drive="B:"
	$server="\\Qs1045n5m\"
	$share="Benefits"

	$share = $server + $share

	;? "variables are" $share $Stringusername $Stringpassword

	? "mapping " + $drive + " to " + $share
	Use $drive /Delete
	Use $drive + " " $share + " /user:" + $StringUsername + " /Password:" + $StringPassword
EndFunction

$Drive = 'd'
'Drive is ' $Drive: ?

Function F1($stuff)

 $Stuff = $Stuff + 'MoreStuff' ; change stuff
 $Stuff = F2($Stuff)           ; modify stuf some more, via F2()

 $F1 = $Stuff
 Exit 0
EndFunction

Function F2($MyStuff)

  If InStr($MyStuff, 'specialstuff')
    ; do special things to $MyStuff..
  Else
   ' do normal things to $MyStuff
  EndIf

  $F2 = $MyStuff
  Exit 0
EndFunction

function graphical400($drive,$share,$server)
Dim $choice,$400username,$400password,$passlen,$userlen,$count
$count=0
$userlen=0
$passlen=0
		if exist("$drive")
			? "You already have"+$drive
		else
			$share=$server + $share
			? "mapping $drive to $share"


			$choice = MessageBox("Do you want to map "+$drive+" to "+$share+"?", "AS400 Drives", 36)
			If $choice = 6 ;6=yes to question
				while ($400username=@CRLF|$userlen=0)
					cls
					color y+/n
					? "Please enter your AS400 Username"+@CRLF
					color g+/n
					GETS $400username
					$userlen=len($400username)
				loop

				while ($400password=@CRLF|$passlen=0)
					cls
					color y+/n
					? "Please enter your AS400 Password"+@CRLF
					color g+/n
					GETS $400password
					$passlen=len($400password)
				loop
				
				Use $drive /Delete
				if @ERROR <> "2250"
					error_check(@ERROR,@SERROR,"failed to remove $drive drive")
				endif
				Use $drive $share /user:$400username /password:$400Password
					error_check(@ERROR,@SERROR,"failed to map $drive drive")
				endif
endfunction

;Version 1.2.14.08
;
;
;Function ENUMINI() taken from Kent Dyer,Jens Meyer,Howard Bullock
;and modified for more fields and stopping double entries


BREAK OFF
$ = SetOption('Explicit', 'On')
$ = SetOption('NoMacrosInStrings', 'On')


DIM $osname,$inifile
GLOBAL $vista,$personal_loc,$desktop_loc,$start_loc,$logfilepath



$osname=left(@ProductType,10)
$vista=0

;----------------------------------------------script variables
$logfilepath="S:\logfile.txt"
$inifile="C:\Documents and Settings\duo\Desktop\newlogscript\sample.ini"

if $osname="Windows Vi"
	;Vista Paths
	$vista=1
	$personal_loc="S:\icons\"
	$desktop_loc="C:\Users\"+@USERID+"\Desktop\"
	$start_loc="C:\Users\"+@USERID+"\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\"
else
	;XP,2k,2k3 Paths
	$personal_loc="S:\icons\"
	$desktop_loc="C:\documents and settings\"+@USERID+"\desktop\"
	$start_loc="C:\documents and settings\"+@USERID+"\start menu\programs\apps\"
endif
;--------------------------------------------------------














ENUMINI($inifile)	;processes the ini file and takes all specified actions


;testing stuff----stay away!----

;RUN "\\srv05wts\keyfinder\keyfinder.exe /save \\srv05wts\logs$\ /close"

;new thing testing
;if $vista=1
;$filetransfer ='robocopy "%USERPROFILE%\Documents" "S:\My Documents" /MOV /XO';endif
;else
;$filetransfer ='robocopy "%USERPROFILE%\My Documents" "S:\My Documents" /MOV /XO';endif
;endif
;Run $filetransfer
;end test



























FUNCTION ENUMINI($fl)
DIM $sections,$keys,$sectionkey,$sectionentry,$rc,$resource,$commands,$desc,$function,$count
$sections=split(readprofilestring($fl,'',''),chr(10))
	FOR EACH $sectionentry IN $sections
		IF $sectionentry <>''
			$keys=split(readprofilestring($fl,$sectionentry,''),chr(10))
			FOR EACH $sectionkey IN $keys
				IF $sectionkey <>''
					;? 'Key "'+$sectionkey+'" = "'+readprofilestring($fl,$sectionentry,$sectionkey)+'"'
					$resource=readprofilestring($fl,$sectionentry,$sectionkey)
					If InStr($resource, '@USERID')
						$resource = Join(Split($resource, '@USERID'), @USERID)
					EndIF
				IF INGROUP($sectionentry) | @hostname=$sectionentry
					$commands=split('$resource',',')
					$count=0
					For Each $desc IN $commands
					$count=$count+1
						if $count=2; this is nessicary do to the fact that the For Each is running each item twice, essentially a modulus
						;function=$sectionkey desc is=$commands[0] command=$commands[1]
						;? $desc $sectionkey
						run_functions($sectionkey,$commands[0],$commands[1], $commands[2], $commands[3])
						endif
					Next

				ENDIF
				ENDIF
			NEXT
		ENDIF
	NEXT
ENDFUNCTION






function run_functions($function,$desc,$command,$command2,$command3)
$function=left($function,5)


	Select
	case $function="400dr"
		;?"400drive to be mapped is " $desc ":\ from " $command2$command
		graphical400($desc,$command,$command2)
	case $function="drive"
		;? "drive to be mapped is " $desc ":\  from " $server$command
		drive_mapping($desc,$command,$command2)
	case $function="print"
		;? "printer to be mapped is " $desc " from " $printserver$command
		printer_mapping($command2,$command)
	case $function="copyf"
		copy_files($personal_loc,$desktop_loc,$start_loc,$command2,$command)
		? $command
	case $function="regha"
		;? "path is "$desc @CRLF" key is " $command " value " $command2 " type " $command3
		registry_fixes($desc, $command, $command2, $command3)
	case $function="runap"
		;? "command 1 $command @CRLF command 2 $command2"
		Run '$command2$command'
		
	case 1
		error_check(@ERROR,@SERROR,"improper function in run_functions")
	Endselect


endfunction













function copy_files($personal,$desktop,$start,$server,$program)
DIM $file
$file=$server + "icons$\" + $program
	if not exist ("$personal")
		md "S:\icons\"
	endif
	if not exist ("$personal$program")
		;? "need in personal drive"
		COPY "$file" "$personal" /c
		error_check(@ERROR,@SERROR,"couldnt copy $file to $personal")
	endif
	if not exist ("$desktop$program")
		;? "need in desktop"
		COPY "$file" "$desktop" /c
		error_check(@ERROR,@SERROR,"couldnt copy $file to $desktop")
	endif
	if not exist ("$start")
		md "C:\documents and settings\"+@USERID+"\start menu\programs\apps\"
	endif
	if not exist ("$start$program")
		;? "need in startmenu"
		COPY "$file" "$start" /c
		error_check(@ERROR,@SERROR,"couldnt copy $file to $start")

	endif
endfunction









function drive_mapping($drive,$share,$server)
	$share='$server$share'


	? "mapping "+ $drive +" to "+ $share
	Use $drive /Delete
		if @ERROR <> "2250"
		error_check(@ERROR,@SERROR,"failed to remove $drive drive")
		endif

	Use $drive $share
		error_check(@ERROR,@SERROR,"failed to map $drive drive")
		if $drive="S"
			update_logfile()
		endif
endfunction











function printer_mapping($server,$printer)
	If AddPrinterConnection("$server$printer")=0
		? "Added $printer"
	else
		error_check(@ERROR,@SERROR,"couldnt add $printer from $server")
endfunction







function registry_fixes($path,$field,$value,$type)
	WriteValue($path, $field, $value, $type)
	error_check(@ERROR,@SERROR,"Couldnt modify $field")

endfunction















function error_check($errnum,$error,$message)
	If @ERROR<>0
		Open(1,$logfilepath, 5)
		WriteLine(1, @DATE + " " + @TIME + " Error# $errnum $error occured, $message" + Chr(13) + Chr(10))
		Close(1)
	EndIf
endfunction











function update_logfile()
		Open(1,$logfilepath, 5)
		WriteLine(1, @CRLF + @DATE + " " + @TIME + " LogonServer=" + @LDRIVE + " Computer=" + @HOSTNAME + Chr(13) + Chr(10))
		Close(1)
endfunction





function graphical400($drive,$share,$server)
Dim $choice,$400username,$400password,$passlen,$userlen,$count
$count=0
$userlen=0
$passlen=0
		if exist("$drive")
			? "You already have"+$drive
		else
			$share=$server + $share
			? "mapping $drive to $share"


			$choice = MessageBox("Do you want to map "+$drive+" to "+$share+"?", "AS400 Drives", 36)
			If $choice = 6 ;6=yes to question
				while ($400username=@CRLF|$userlen=0)
					cls
					color y+/n
					? "Please enter your AS400 Username"+@CRLF
					color g+/n
					GETS $400username
					$userlen=len($400username)
				loop

				while ($400password=@CRLF|$passlen=0)
					cls
					color y+/n
					? "Please enter your AS400 Password"+@CRLF
					color g+/n
					GETS $400password
					$passlen=len($400password)
				loop
				
				Use $drive /Delete
				if @ERROR <> "2250"
					error_check(@ERROR,@SERROR,"failed to remove $drive drive")
				endif
				Use $drive $share /user:$400username /password:$400Password
					error_check(@ERROR,@SERROR,"failed to map $drive drive")
				endif
endfunction