Logonscripts

Hier ein paar Bausteine, mit denen man sich die eigenen Logonscripts zusammenbauen kann.


Inhaltsverzeichnis


Logonscript mit Batchdatei

top.gifZurück zum Inhalt


Logonscript mit Visual Basic Script

Logonscript
'########################################################################
' LogonScript - Mapping Network Drives
'########################################################################

Dim objNet, strUserName
Set objNet = CreateObject("Wscript.Network")
strUserName =objNet.UserName

'########################################################################
'# Map T:\ to \\icesrv01\data
'########################################################################

Set objDrives = objNet.EnumNetworkDrives
For i = 0 to objDrives.Count - 1 Step 2
'WScript.Echo "Drive " & objDrives.Item(i) & " = " & objDrives.Item(i+1)
If objDrives.Item(i) = "T:" then
objNet.RemoveNetworkDrive "T:"
end if
Next
objNet.MapNetworkDrive "T:", "\\icesrv01\data"
'########################################################################
'# Show Network Printers
'########################################################################
Set objPrinters = objNet.EnumPrinterConnections
For i = 0 to objPrinters.Count - 1 Step 2
'WScript.Echo "Port " & objPrinters.Item(i) & " = " & objPrinters.Item(i+1)
Next
'########################################################################
'# Empty Temporary Internet Files when Browser closes
'########################################################################
' The script writes to the registry value Empty Temporary Internet Files
' The key Method is RegWrite. RegLocate is the name of the variable
' Note: REG_DWORD (not REG_SZ)
' Note: Logic of 0 (zero = off) means persistent ON - strange but true!

Set oWshShell = WScript.CreateObject("WScript.Shell")
RegLocate = "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings\Cache\Persistent"
oWshShell.RegWrite RegLocate,"0","REG_DWORD"
'########################################################################
'# Logonscript sucessfully completed
'########################################################################
'Set oWshShell = WScript.CreateObject("WScript.Shell")
oWshShell.Popup "Logonscript sucessfully completed", 2, "Logonscript", 64

top.gifZurück zum Inhalt


Copyright © November 2004 - Andres Bohren, Icewolf Software