Login script.

[rscheerhout]

Hallo,

Hier heb ik een voorbeeld van een VB script.

Deze maakt tevens ook een mapping naar een printer.
' set variabelen mapping 1 and 2
DriveHome = "(driveletter):"
Homepath = "\\(servernaam)\"
DriveLetter = "Driveletter:"
remotepath = "\\(servernaam)\(sharenaam)"

'===================================================================================================================================================
'Mapping 1 (home dir)

'=================================================================================================================================================

Set objNetwork = WScript.CreateObject("WScript.Network")
Set CheckDrive = objNetwork.EnumNetworkDrives()

' Nodig voor oa de PopUp
Set WshShell = WScript.CreateObject("WScript.Shell")

' Doe de check van de Driveletter
AlreadyConnected = False
For i = 0 To CheckDrive.Count - 1 Step 2
If CheckDrive.Item(i) = Drivehome Then AlreadyConnected = True
Next

If AlreadyConnected = True Then
' Disconnect de Driveletter
objNetwork.RemoveNetworkDrive Drivehome
Set objNetwork = CreateObject("Wscript.Network")
strUser = objNetwork.UserName
objNetwork.MapNetworkDrive DriveHome,homepath&strUser

Else

Set objNetwork = CreateObject("Wscript.Network")
strUser = objNetwork.UserName
objNetwork.MapNetworkDrive DriveHome,homepath&strUser

End if
'=================================================================================================================================================
'Mapping 2 (Algemeen)


'=================================================================================================================================================
' set variabelen mapping 2

Set objNetwork = WScript.CreateObject("WScript.Network")
Set CheckDrive = objNetwork.EnumNetworkDrives()

' Nodig voor oa de PopUp
Set WshShell = WScript.CreateObject("WScript.Shell")

' Doe de check van de Driveletter
AlreadyConnected = False
For i = 0 To CheckDrive.Count - 1 Step 2
If CheckDrive.Item(i) = DriveLetter Then AlreadyConnected = True
Next

If AlreadyConnected = True Then
' Disconnect de Driveletter
objNetwork.RemoveNetworkDrive DriveLetter
'objNetwork.MapNetworkDrive DriveLetter, RemotePath, SaveProfile, RemoteUser, RemotePassword
strUNCpath = "\\(servernaam)\(sharenaam)\"
Set objNetwork = CreateObject("Wscript.Network")
strUser = objNetwork.UserName
objNetwork.MapNetworkDrive DriveLetter,remotepath
Else


'Dim objNetwork, DriveLetter, remotepath, strUser
strUNCpath = "\\(servernaam)\(sharenaam)\"
Set objNetwork = CreateObject("Wscript.Network")
strUser = objNetwork.UserName
objNetwork.MapNetworkDrive DriveLetter,remotepath

'================================================================================================================================================
'Mapping 3 (printer)

'=================================================================================================================================================
end if

Set WshNetwork = CreateObject("WScript.Network")

'// Adds the printer. Substitute your server name and printer share.
WshNetwork.AddwindowsPrinterConnection "\\(servernaam)\(printer sharenaam)"

'// Makes the specified printer the default.
WshNetwork.SetDefaultPrinter "\\(servernaam)\(printer sharenaam)"


Anders kan je altijd nog via net use driveletter) \\servernaam\share\

Ik hoop dat je er wat aan hebt..

 

[puppie]

Euhhhhhhhhhhhh ja.
En wat is de vraag

 

[Rimsic]

haha ja, ik snapte ook al niet

 

[Elisa]

Het hoort in een andere thread thuis zo te zien.

 

[rscheerhout]

Oeps

hahaha Sorry...

Dit hoort inderdaad bij een andere vraag.

http://www.helpmij.nl/forum/showthread.php?threadid=204544

sorry..

 

[m@rio]

Dan kan deze wel dicht