HOWTO: Setup folder permissions for anonymous user

In Windows Server 2003 thing are tighten up. When you want anonymous users to gain access to a shared folder, without being prompted for credentials, you must change the following group-policy settings:

Worked for me!

SCRIPT: Share and unshare printers automatically

Share local printers:

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

Set colInstalledPrinters = objWMIService.ExecQuery _
("Select * from Win32_Printer Where Network = FALSE")

i = 1

For Each objPrinter in colInstalledPrinters
objPrinter.Shared = TRUE
objPrinter.ShareName = objPrinter.Name
objPrinter.Put_
i = i + 1
Next

Unshare local printers:

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

Set colInstalledPrinters = objWMIService.ExecQuery _
("Select * from Win32_Printer Where Network = FALSE")

i = 1

For Each objPrinter in colInstalledPrinters
objPrinter.Shared = FALSE
objPrinter.ShareName = objPrinter.Name
objPrinter.Put_
i = i + 1
Next


SCRIPT: Exclude files and directories read from a single file using Robocopy

Use this script and 2 textfiles which can be used to exclude files and folders.

robocopy.vbs
EXCLUDEDIRS = "C:\robocopy\excludedirs.txt"
EXCLUDEFILES = "C:\robocopy\excludefiles.txt"
ROBOCOPYLOCATION = "C:\robocopy\robocopy.exe"
SOURCELOCATION = "Y:\"
TARGETLOCATION = "D:\"
Const FOR_READING = 1
Set WshShell = WScript.CreateObject("WScript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile(EXCLUDEDIRS, FOR_READING)
strDirExclude = objFile.ReadAll
objFile.Close
Set objFile = objFSO.OpenTextFile(EXCLUDEFILES, FOR_READING)
strFileExclude = objFile.ReadAll
objFile.Close
arrDirExclude = Split(strDirExclude, vbCrLf)
arrFileExclude = Split(strFileExclude, vbCrLf)
For Each dir In arrDirExclude
dirs = dirs + " /xd " + chr(34) + dir + chr(34)
Next
For Each bestand In arrFileExclude
bestanden = bestanden + " /xf " + chr(34) + bestand + chr(34)
Next
mycommand = ROBOCOPYLOCATION & chr(32) & SOURCELOCATION & chr(32) & TARGETLOCATION & " /COPYALL /S /mir /R:5 /W:10 /IPG:10 /TBD /ETA /LOG+:C:\ictivity\robo.log /TEE " & dirs & bestanden
WshShell.Run(mycommand)


Excludedirs.txt
y:\Program Files
y:\Profiles
y:\TSprofiles


Excludefiles.txt
y:\Application Partitions.vsd
y:\Domains.vsd
y:\Groups.csv
y:\AD\TEST\pagefile.sys

SCRIPT: Delete network printer

Use this script to delete a network printer:

Option Explicit
Dim objNetwork, strUNCPrinter
strUNCPrinter = "\\server\mprinter"

Set objNetwork = CreateObject("WScript.Network")
objNetwork.RemovePrinterConnection strUNCPrinter

Wscript.Quit


SCRIPT: Install Networkprinter and make it default

Use this VB script to install a network printer and make it default:

Set objNetwork = CreateObject("WScript.Network")
objNetwork.AddWindowsPrinterConnection "\\server\printer"

Dim objPrinter
Set objPrinter = CreateObject("WScript.Network")
objPrinter.SetDefaultPrinter "\\server\printer"


SCRIPT: Remove Installed Windows Updates

With the following script you can easily remove files and uninstall information of Windows Updates on your computer.
This script can by example run on a local computer as a scheduled task. This will assure that old update-leftovers are deleted.

This is the script:


Option Explicit
Dim o, oShell, nConfirm
Set o = WScript.Application
o.Interactive = True
Set oShell = CreateObject("WScript.Shell")

Dim oFSO, sWinDir, oFolder, oDictionary, oSubFolder, sFolderName, sFolderPath, sUpdateName, sDeleted
Set oFSO = CreateObject("Scripting.FileSystemObject")
sWinDir = oFSO.GetSpecialFolder(0)
sDeleted = vbNullString
Set oFolder = oFSO.GetFolder(sWinDir)
Set oDictionary = CreateObject("Scripting.Dictionary")
For Each oSubFolder In oFolder.SubFolders
sFolderName = LCase(oSubFolder.Name)
sFolderPath = LCase(oSubFolder.Path)
'change days here
If (DateDiff("D", oSubFolder.DateCreated, Date()) > 90) And Left(sFolderName, 12) = "$ntuninstall" And Mid(sFolderName, 13, 2) = "kb" Or Mid(sFolderName, 13, 2) = "q" Then
sUpdateName = Mid(sFolderName, 13, Len(sFolderName) - 13)
oDictionary.Add sUpdateName, sFolderPath
End If
Next

For Each sUpdateName in oDictionary.Keys
sDeleted = sDeleted & vbCrLF & sUpdateName
sFolderPath = oDictionary.Item(sUpdateName)
On Error Resume Next
oShell.RegDelete "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\" & sUpdateName & "\"
On Error Goto 0
oShell.Run "%ComSpec% /C RD /S /Q " & Chr(34) & sFolderPath & Chr(34), 0, True
Next
' Uncomment the following if you want a visual comfirmation what has been deleted
'If Len(sDeleted) > 0 Then
' MsgBox "The uninstall data for the following updates are now removed:" & vbCrLf & UCase(sDeleted), vbOKOnly + vbInformation, "Files Removed"
' sDeleted = vbNullString
'Else
' MsgBox "No Windows Update Folders found for removal", vbOKOnly + vbInformation, "Nothing To Do"
'End If
o.Quit 0


HOW TO: Disable Sophos auto update at startup

When workstations startup and have the Sophos Anti Virus solution installed, the bootup is delayed because Sophos wants to update the anti-virus definitions. This is a most secure solution, but not preferred.
After a little bit of searching, i discovered a nice setting which delays the Auto-Update at startup.
I created a ADM for your convenience.

Use this ADM:

CLASS MACHINE

CATEGORY !!SOPHOS

KEYNAME "SYSTEM\CurrentControlSet\Services\Sophos AutoUpdate Service"
POLICY !!ImagePath
PART !!SophosImagePath EDITTEXT EXPANDABLETEXT REQUIRED
VALUENAME "ImagePath"
DEFAULT "C:\Program Files\Sophos\AutoUpdate\ALsvc.exe -NoStartupCheck"
END PART
END POLICY
END CATEGORY

[strings]
SOPHOS="Sophos AutoUpdate"
ImagePath="Sophos AutoUpdate ImagePath"
SophosImagePath="Sophos Image Path"


Works like a charm..

HOW TO: Enable autologon in Windows 7 & Windows Server 2008

To enable Autologon in Windows 7 & Windows Server 2008,
Click Start, search for “control userpasswords2″ and press enter.

Select the user from the list and uncheck “User must enter a user name and password to enter this computer
” and click Apply and OK.
That’s it! The next time when the computer is started, you should be logged straight into your desktop

HOW-TO: Exit Demo mode AIWA cdc-r227

As a service to my fellow Aiwa CDC-X227 owners, here are the directions for turning off “demo” mode. It involves three sets of controls: The “SRC” button, the volume control knob and the two up-down switches to the left of the volume control.

1. Press and hold the SRC button until “ILL” appears on the display.

2. Press either the up or down switch until “DE” appears on the display.

3. Rotate the volume control until “DE 0″ appears on the display. Don’t touch the stereo for several seconds after that, so that it accepts the command and goes back to its normal display.

Took me 15 minutes searching the web for this solution! Now i’ve got it and no-one can take it from me!

Fix ConsoleOne Buttons and Lines

Today i tackled a problem at my customer. His problem was that when he opens Novell ConsoleOne, the buttons were unavailable and lines are not shown.

To resolve this, i changed in the following registry key:


REGEDIT4

[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\ThemeManager]
"ThemeActive"="0"


Now the buttons are shown correctly!