buehler.be - IT FAQ/Support

Dim strerr
Dim objNet

' On Error Resume Next

Set WshNetwork = WScript.CreateObject("WScript.Network")
Set WshShell = WScript.CreateObject("WScript.Shell")

'set time
' Return = WshShell.Run("net time \\servername /SET /YES", 0, true)

'Remove all Mappings
'Return = WshShell.Run("net use * /D /Y", 0, true)

'set common drives
Return = WshShell.Run("net use m: \\servername\allgemein$ /persistent:no", 0, true)
Return = WshShell.Run("net use r: \\servername\cdrom /persistent:no", 0, true)
'WshNetwork.MapNetworkDrive "M", "\\servername\allgemein$"
'WshNetwork.MapNetworkDrive "R", "\\servername\cdrom$"

'set special drives
 If IsMember("Buchhaltung") Then
 Return = WshShell.Run("net use p: \\servername\Buchhaltung$ /persistent:no", 0, true)
' WshNetwork.MapNetworkDrive "P:", "\\servername\Buchhaltung$"
End If

If IsMember("Username oder Gruppe") Then
 Return = WshShell.Run("net use n: \\servername\FREIGABE$ /persistent:no", 0, true)
 Return = WshShell.Run("net use o: \\servername\GL$ /persistent:no", 0, true)
' WshNetwork.MapNetworkDrive "N:", "\\servername\FREIGABE$"
' WshNetwork.MapNetworkDrive "O:", "\\servername\GL$"
End If

'Drucker verbinden
WshNetwork.AddWindowsPrinterConnection "\\servername\HPLJ4000"
WshNetwork.AddWindowsPrinterConnection "\\servername\HP CLJ CP3505 PCL6"
'WshNetwork.AddWindowsPrinterConnection "\\servername\HPLJ4500PCL"
'WshNetwork.AddWindowsPrinterConnection "\\servername\HPLJ4500PS"

Function IsMember(strGroup)
 Dim objMember, objGroup, strUser, strDomain
 On Error Resume Next
 Set objGroup = GetObject("WinNT://" & WshNetwork.UserDomain & "/" & strGroup & ",group")
 If Err.Number = 0 Then
  IsMember = objGroup.IsMember("WinNT://" & WshNetwork.UserDomain & "/" & WshNetwork.UserName)
  If Not IsMember Then
   For Each objMember In objGroup.Members
    IsMember = IsMember(objMember.Name)
    If IsMember Then Exit For
   Next
  End If
 Else
  IsMember = False
 End If
End Function

-----------------------------------------------

Die Drucker mit einem lokalen LPT Port verbinden per Loginscript:

WshNetwork.RemovePrinterConnection "LPT2", true, true
WshNetwork.RemovePrinterConnection "LPT3", true, true

If IsMember("Gruppenname") Then
 WshNetwork.AddPrinterConnection "LPT2", "\\SERVERNAME\pr01"
 WshNetwork.AddPrinterConnection "LPT3", "\\SERVERNAME\pr02"
Else
 if WshNetwork.UserName="GRUPPENNAME oder USERLOGIN" then
  WshNetwork.AddPrinterConnection "LPT3", "\\SERVERNAME\pr3"
  WshNetwork.AddPrinterConnection "LPT2", "\\SERVERNAME\pr4"
 else
  WshNetwork.AddPrinterConnection "LPT2", "\\SERVERNAME\pr3"
  WshNetwork.AddPrinterConnection "LPT3", "\\SERVERNAME\pr4"
 end if
End If

-----------------------------------------------

angehängte Dateien: loginscirpt.vbs.txt, loginscript_lpt.vbs.txt