VBS

Windows Firewall ausscahlten

Set objFirewall = CreateObject("HNetCfg.FwMgr")
Set objPolicy = objFirewall.LocalPolicy.CurrentProfile
objPolicy.FirewallEnabled = False

BGInfo

Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "\\SERVER\netlogon\BGINFO\bginfo.exe \\SERVER\netlogon\BGINFO\Clients.bgi /timer:0"

Drucker & Shares verbinden

'Variablendeklaration
Dim wshNetwork
Set wshNetwork = WScript.CreateObject("WScript.Network")
Dim strDomain   : strDomain   = wshNetwork.UserDomain
Dim strUser     : strUser     = wshNetwork.UserName

on error resume next

'Allen Netzwerkdrucker entfernen
if IsMember("GRP-DeleteAllPrinters") Then
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colInstalledPrinters = objWMIService.ExecQuery _
("Select * From Win32_Printer Where Network = True")

For Each objPrinter In colInstalledPrinters
objPrinter.Delete_
Next
End If

'Fügt die Drucker nach Gruppenzugehörigkeit hinzu

If IsMember("GRP-Printer") Then
	wshNetwork.AddWindowsPrinterConnection "\\SERVER\printer"
End If

If IsMember("GRP-Laufwerk-Y") Then
	WshNetwork.MapNetworkDrive "Y:", "\\SERVER\share"
End If

Function IsMember(strGroup)
    Dim objMember, objGroup
    On Error Resume Next
    Set objGroup = GetObject("WinNT://" & strDomain & "/" & strGroup & ",group")
    If Err.Number = 0 Then
       IsMember = objGroup.IsMember("WinNT://" & strDomain & "/" & strUser)
    End If
    On Error Goto 0
End Function