posted 15/01/10

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/

 

3 Comments
read more
posted 18/06/06

Mappa enheter efter grupptillhörighet

By Fredrik Wall
flagse 
Här kommer nästa subrutin som kollar i AD grupper och utför något efter det.
Denna mappar upp enheter.
 
 
 
Sub MapDriveWithGroup(sLetter, sNetshare, sGroup)
‘ Namn: MapDriveWithGroup
‘ Skriven Av: Fredrik Wall, fredrik.wall@edsbacka.net, http://itbloggen.se/cs/blogs/dalle

‘ Syfte: Koppla upp nätverksenhet efter grupptillhörighet
‘ Användning: MapDriveWithGroup "X:","\\server\share","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.RemoveNetworkDrive sLetter
   WshNetwork.MapNetworkDrive sLetter , sNetShare
End If
 
Next
End Sub

 

Andra (Bloggar.se) skriver om: , ,
No Comments
read more
posted 14/06/06

Mappa skrivare efter grupptillhörighet

By Fredrik Wall

flagse

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

 

Andra (Bloggar.se) skriver om: , ,
No Comments
read more