Dalle & DXter

Moderator at Scripting Guys Forum

By Fredrik Wall

Just before the switch to the new year I got a question
from Ed Wilson (One of The Scripting Guys at Microsoft) if
I wanted to help out Moderating their forum.

This was not a hard question for me and the answer was yes.

Thanks for the confidence Microsoft and The Scripting Guys.

The Scripting Guys Forum is a large forum at Microsoft that
helps out with answers for several scripting techniques including
VBScript, PowerShell and most of the  scripting languages on the
Windows platform.

http://social.technet.microsoft.com/Forums/en/ITCG/threads/

 

Mappa enheter efter grupptillhörighet

By Fredrik Wall

On Error Resume Next

Dim WshNetwork, objADSysInfo, objUser, objGroup
Dim strUser, strGroup

Set WshNetwork = CreateObject(“WScript.Network”)
Set objADSysInfo = CreateObject(“ADSystemInfo”)

strUser = objADSysInfo.UserName

Set objUser = GetObject(“LDAP://” & strUser)

For Each strGroup in objUser.memberOf
 
  Set objGroup = GetObject(“LDAP://” & strGroup)

If LCase(objGroup.CN) = LCase(sGroup) Then
   WshNetwork.RemoveNetworkDrive sLetter
   WshNetwork.MapNetworkDrive sLetter , sNetShare
End If
 
Next
End Sub

 

Mappa skrivare efter grupptillhörighet

By Fredrik Wall

Många av de skriptfrågor som jag får handlar om grupptillhörighet och skrivare i AD.
Därför har jag skapat en liten subrutin som sköter detta.

Liten men väldigt smidig!

 

 

Sub AddPrinterWithGroup(sPrinter, sGroup)
‘ Namn: MapDriveWithGroup
‘ Skriven Av: Fredrik Wall
‘ Syfte: Koppla upp nätverksskrivare efter grupptillhörighet
‘ Användning: AddPrinterWithGroup "\\printerserver\skrivarkö","grupp"
‘ Kommentar: Funkar i Win2000/2003 ActiveDirectory
On Error Resume Next

Dim WshNetwork, objADSysInfo, objUser, objGroup
Dim strUser, strGroup

Set WshNetwork = CreateObject("WScript.Network")
Set objADSysInfo = CreateObject("ADSystemInfo")

strUser = objADSysInfo.UserName
Set objUser = GetObject("LDAP://" & strUser)
For Each strGroup in objUser.memberOf

Set objGroup = GetObject("LDAP://" & strGroup)

If LCase(objGroup.CN) = LCase(sGroup) Then
  WshNetwork.RemovePrinterConnection sPrinter
  WshNetwork.AddWindowsPrinterConnection sPrinter
End If

Next
End Sub