Systems Management

Copy Pictures/ Video/ Audio while maintaining file structure

noreply@blogger.com (Ashur Guliana) — Mon, 30 Jan 2012 17:07:00 +0000

REM Copy Pictures/ Video/ Audio while maintaining file structure

@Echo off

Echo ============================= >> C:\copy_log.txt
Echo = = >> C:\copy_log.txt
Echo ============================= >> C:\copy_log.txt

cd C:\

ROBOCOPY C:\SOURCE C:\DESTINATION *.aif *.iff *.m3u *.m4a *.mid *.mp3 *.ra *.wav *.wma *.3g2 *.3gp *.asf *.asx *.avi *.flv *.mov *.mp4 *.mpg *.rm *.swf *.vob *.wmv *.tiff *.tif *.png *.jpg *.jpeg *.gif *.exif *.bmp /E >> C:\copy_log.txt

Echo ============================= >> C:\copy_log.txt
Echo = = >> C:\copy_log.txt
Echo ============================= >> C:\copy_log.txt

Backup VMware Server Guests

noreply@blogger.com (Ashur Guliana) — Sat, 05 Feb 2011 18:46:00 +0000

@ECHO OFF

::Backup of Virtual Hard Drives and Configuration Files
::Only tested on Server 2003 running VMware Server version 2.0.1 build-156745
::http://www.virtuatopia.com/index.php/Controlling_VMware_Virtual_Machines_from_the_Command_Line_with_vmrun

::For a list of running VMs and on the server run this from the VM Host
::"C:\Program Files\VMware\VMware Server\vmrun.exe" -T server -h https://localhost:8333/sdk -u ADMIN -p PASS list

:WARNING

echo By running the backup the guest server(s) will be shutdown

echo Are you sure you wish to continue?

timeout /T 30

cls

:: Header of Logfile

echo. >> "C:\IT\VM-Backup.log"

echo %date% >> "C:\IT\VM-Backup.log"

::Variables:

set bakloc="\\vmserver2\e$\BACKUP-VM1"

SET /A SRV=1

set vmrun="C:\Program Files\VMware\VMware Server\vmrun.exe"

set username=ADMIN

set password=PASS

set datastore=E:\Virtual Machines

:: Verify mapped Drive "V:\"

if not exist v: net use v: %bakloc%

if not exist v: echo Mapped Drive V:\ or link to %bakloc% not present >> "C:\IT\VM-Backup.log"

if not exist v: goto END

set overall=%time%

goto %SRV%

:1

set start=%time%

set SERVER=TEST1

SET VMGUEST="[VMSERVER1] TEST1/Windows Server 2003 Enterprise Edition.vmx"

Title Backup of %SERVER% in Progress

::if exist "V:\%server%" del "V:\%server%\*.*" /q

%vmrun% -T server -h https://localhost:8333/sdk -u %username% -p %password% stop %VMGUEST% soft

timeout /T 120

xcopy "%datastore%\%SERVER%\*.vmdk" "V:\%SERVER%\" /C /R /Y

xcopy "%datastore%\%SERVER%\*.vmx" "V:\%SERVER%\" /C /R /Y

%vmrun% -T server -h https://localhost:8333/sdk -u %username% -p %password% start %VMGUEST%

set finish=%time%

goto CON

:2

set start=%time%

set SERVER=TEST2

SET VMGUEST="[VMSERVER1] TEST2/Windows XP Professional.vmx"

Title Backup of %SERVER% in Progress

::if exist "V:\%server%" del "V:\%server%\*.*" /q

%vmrun% -T server -h https://localhost:8333/sdk -u %username% -p %password% stop %VMGUEST% soft

timeout /T 120

xcopy "%datastore%\%SERVER%\*.vmdk" "V:\%SERVER%\" /C /R /Y

xcopy "%datastore%\%SERVER%\*.vmx" "V:\%SERVER%\" /C /R /Y

%vmrun% -T server -h https://localhost:8333/sdk -u %username% -p %password% start %VMGUEST%

set finish=%time%

goto CON

:3

set start=%time%

set SERVER=TEST3

SET VMGUEST="[VMSERVER1] TEST3/Windows Server 2003 Enterprise Edition.vmx"

Title Backup of %SERVER% in Progress

::if exist "V:\%server%" del "V:\%server%\*.*" /q

%vmrun% -T server -h https://localhost:8333/sdk -u %username% -p %password% stop %VMGUEST% soft

timeout /T 120

xcopy "%datastore%\%SERVER%\*.vmdk" "V:\%SERVER%\" /C /R /Y

xcopy "%datastore%\%SERVER%\*.vmx" "V:\%SERVER%\" /C /R /Y

%vmrun% -T server -h https://localhost:8333/sdk -u %username% -p %password% start %VMGUEST%

set finish=%time%

goto CON

:4

set start=%time%

set SERVER=TEST4

SET VMGUEST="[VMSERVER1] TEST4/Windows Server 2003.vmx"

Title Backup of %SERVER% in Progress

::if exist "V:\%server%" del "V:\%server%\*.*" /q

%vmrun% -T server -h https://localhost:8333/sdk -u %username% -p %password% stop %VMGUEST% soft

timeout /T 120

xcopy "%datastore%\%SERVER%\*.vmdk" "V:\%SERVER%\" /C /R /Y

xcopy "%datastore%\%SERVER%\*.vmx" "V:\%SERVER%\" /C /R /Y

%vmrun% -T server -h https://localhost:8333/sdk -u %username% -p %password% start %VMGUEST%

set finish=%time%

goto CON

:: Add new servers to the list above

:: Keep This Set Last but update the number!

:5

echo.

echo %start%

set start=%overall%

set finish=%time%

set SRV=0

set SERVER=done

goto CON

:CON

:: time conversion

set shh=%start:~0,2%

set smm=%start:~3,2%

set sss=%start:~6,2%

set sms=%start:~9,2%

if %shh% LSS 10 set shh=%shh:~1,1%

if %smm% LSS 10 set smm=%smm:~1,1%

if %sss% LSS 10 set sss=%sss:~1,1%

if %sms% LSS 10 set sms=%sms:~1,1%

SET /a Start100S=%shh%*360000+%smm%*6000+%sss%*100+%sms%

set fhh=%finish:~0,2%

set fmm=%finish:~3,2%

set fss=%finish:~6,2%

set fms=%finish:~9,2%

if %fhh% LSS 10 set fhh=%fhh:~1,1%

if %fmm% LSS 10 set fmm=%fmm:~1,1%

if %fss% LSS 10 set fss=%fss:~1,1%

if %fms% LSS 10 set fms=%fms:~1,1%

SET /a Finish100S=%fhh%*360000+%fmm%*6000+%fss%*100+%fms%

:: START midnight rollover. If so, add 1 day=8640000 1/100ths secs

IF %Finish100S% LSS %Start100S% SET /a Finish100S+=8640000

SET /a TookTime=%Finish100S%-%Start100S%

if %TookTime% LEQ 99 goto MILLI

if %TookTime:~0,-2% GEQ 3600 goto HRS

if %TookTime:~0,-2% GEQ 60 goto MINS

if %TookTime:~0,-2% GEQ 1 goto SECS

goto ERR0

:HRS

SET /A HRS=%TookTime:~0,-2%/3600

SET /A MINS=(%TookTime:~0,-2%-%HRS%*3600)/60

SET /A SECS=%TookTime:~0,-2%-(%HRS%*3600+%MINS%*60)

set ELAPSED=%HRS% Hours %MINS% Minutes %SECS%.%TookTime:~-2% Seconds

IF %SERVER% NEQ done echo %SERVER% elapsed time: %ELAPSED% >> "C:\IT\VM-Backup.log"

IF %SERVER% EQU done echo Total elaspsed time: %ELAPSED% >> "C:\IT\VM-Backup.log"

IF %SRV% EQU 0 goto END

SET /A SRV=%SRV%+1

goto %SRV%

:MINS

SET /A MINS=%TookTime:~0,-2%/60

SET /A SECS=%TookTime:~0,-2%-%MINS%*60

set ELAPSED=%MINS% Minutes %SECS%.%TookTime:~-2% Seconds

IF %SERVER% NEQ done echo %SERVER% elapsed time: %ELAPSED% >> "C:\IT\VM-Backup.log"

IF %SERVER% EQU done echo Total elaspsed time: %ELAPSED% >> "C:\IT\VM-Backup.log"

IF %SRV% EQU 0 goto END

SET /A SRV=%SRV%+1

goto %SRV%

:SECS

set ELAPSED=%TookTime:~0,-2%.%TookTime:~-2% Seconds

IF %SERVER% NEQ done echo %SERVER% elapsed time: %ELAPSED% >> "C:\IT\VM-Backup.log"

IF %SERVER% EQU done echo Total elaspsed time: %ELAPSED% >> "C:\IT\VM-Backup.log"

IF %SRV% EQU 0 goto END

SET /A SRV=%SRV%+1

goto %SRV%

:MILLI

set ELAPSED=.%TookTime:~-2% Seconds

IF %SERVER% NEQ done echo %SERVER% elapsed time: %ELAPSED% >> "C:\IT\VM-Backup.log"

IF %SERVER% EQU done echo Total elaspsed time: %ELAPSED% >> "C:\IT\VM-Backup.log"

IF %SRV% EQU 0 goto END

SET /A SRV=%SRV%+1

goto %SRV%

:ERR0

IF %SRV% EQU 0 goto END

SET /A SRV=%SRV%+1

goto %SRV%

:END

net use /del v: /y

exit

Rename all files in a folder with specific extension

noreply@blogger.com (Ashur Guliana) — Fri, 09 Jul 2010 20:26:00 +0000

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

Set FileList = objWMIService.ExecQuery _
    ("ASSOCIATORS OF {Win32_Directory.Name='C:\test'} Where " _
        & "ResultClass = CIM_DataFile")

For Each objFile In FileList
    strDate = Left(objFile.CreationDate, 8)
    strNewName = objFile.Drive & objFile.Path & _
       strDate & "." & "jpg"
    strNameCheck = Replace(strNewName, "\", "\\")

    i = 1
    Do While True
        Set colFiles = objWMIService.ExecQuery _
            ("Select * from Cim_Datafile Where Name = '" & strNameCheck & "'")
        If colFiles.Count = 0 Then
            errResult = objFile.Rename(strNewName)
            Exit Do
        Else
            i = i + 1
            strNewName = objFile.Drive & objFile.Path & _
                strDate & "" & i & "." & "jpg"
            strNameCheck = Replace(strNewName, "\", "\\")
        End If
    Loop
Next

Lock your workstation

noreply@blogger.com (Ashur Guliana) — Fri, 09 Jul 2010 20:23:00 +0000

Batch file to lock the screen of your PC. Tested on Windows XP, Vista and 7. Works!

@echo off
%windir%\System32\rundll32.exe user32.dll,LockWorkStation
exit

Right click an empty area of your desktop, choose New/Shortcut and enter this line as the command line:

rundll32.exe user32.dll, LockWorkStation

Windows + L

User Profile Copier

noreply@blogger.com (Ashur Guliana) — Fri, 09 Jul 2010 20:18:00 +0000

A script to copy the user profile from one PC to another PC / USB drive.
You must make sure you first logon / logoff the required user on the destination PC and then logon with a domain admin to run the script as it requires access to copy to a c$ share.
This script makes it much easier to copy user profiles between machines.

@ECHO OFF

REM  User Profile Copier Script
REM  
REM  REM  Will copy Desktop items, Outlook PST files, 
REM  Outlook NK2 (Auto-complete) files, Outlook 
REM  Signatures, IE Favourites and anything in the
REM  the local My Documents folder

TITLE User Profile Copier

REM Change colour - because it's prettier and I'm a Leicester fan!
color 1F

cls
echo.
REM Get required details for profile copy
set /p SourcePC=Please enter the Computer Name of the source PC or type 0 for this PC: 
echo.
echo Please enter either the destination Computer Name or the destination 
set /p Destination=USB drive letter (eg. E:) To copy to the local PC type "C:" 
echo.
REM Ascertain media
set /p Media=Is this a USB or local C: (D)rive or is it a destination (P)C? 
echo.
set /p user=Please enter the Username for the user you wish to copy: 
REM Set filename for copy log as profilecopy-USERNAME-DATE.txt
set ProfFile=profilecopy-%user%-%date:~-11,2%%date:~-7,2%%date:~-2,2%.txt
echo.

TITLE User Profile Copier - %user%
cls

echo.
REM Output message to CMD window
echo The script is now running, please wait...

REM Begin witing logfile, note initially everything is written to the root of the local c: drive
echo Profile Copy > c:\%ProfFile%
echo ---------------- >> c:\%ProfFile%
echo. >> c:\%ProfFile%
echo Date:        %date% >> c:\%ProfFile%
echo Time:        %time:~-11,5% >> c:\%ProfFile%
echo. >> c:\%ProfFile%
if /i %sourcepc% EQU 0  echo Source:      %computername% >> c:\%ProfFile%
if /i %sourcepc% NEQ 0  echo Source:      %sourcepc% >> c:\%ProfFile%
echo Destination: %destination% >> c:\%ProfFile%
echo. >> c:\%ProfFile%
echo Username:    %user% >> c:\%ProfFile%
echo. >> c:\%ProfFile%

REM If copying to USB / local disk set destination accordingly
if /i %media% EQU D set dest=%destination%\Documents and Settings\%user%
if /i %media% NEQ P goto CheckSource
REM If copying to network PC set location accordingly
set dest=\\%destination%\c$\documents and settings\%user%
if not exist "%dest%" goto DestError

:CheckSource
echo Begin Copy >> c:\%ProfFile%
echo ---------------- >> c:\%ProfFile%
echo. >> c:\%ProfFile%
REM If source is local PC run different routine
if /i %sourcepc% EQU 0 goto NoSource

REM Set source location as remote machine
set source=\\%sourcepc%\c$\documents and settings\%user%
echo Copying Outlook NK2 (Auto-complete files)... >> c:\%ProfFile%
REM Copy Outlook NK2 files from source to destination
xcopy "%source%\Application Data\Microsoft\Outlook\*.nk2" "%dest%\Application Data\Microsoft\Outlook\*.nk2" /s /y >> c:\%ProfFile%
echo. >> c:\%ProfFile%

REM If there is an error with the copy goto an error routine
if %ERRORLEVEL% EQU 1 goto DestError
if %ERRORLEVEL% EQU 4 goto SourceError

echo Copying desktop items... >> c:\%ProfFile%
REM Copy desktop items from source to destination
xcopy "%source%\Desktop\*" "%dest%\Desktop\*" /s /y >> c:\%ProfFile%
echo. >> c:\%ProfFile%
echo Copying Outlook PST files... >> c:\%ProfFile%
REM Copy PST files from source to destination (only in folder Local Settings\App Data\Microsoft\Outlook\
xcopy "%source%\Local Settings\Application Data\Microsoft\Outlook\*.pst" "%dest%\Local Settings\Application Data\Microsoft\Outlook\*.pst" /s /y >> c:\%ProfFile%
echo. >> c:\%ProfFile%
echo Copying Outlook Signatures... >> c:\%ProfFile%
REM Copy Outlook Signatures from source to destination
xcopy "%source%\Application Data\Microsoft\Signatures\*" "%dest%\Application Data\Microsoft\Signatures\*" /s /y >> c:\%ProfFile%
echo. >> c:\%ProfFile%
echo Copying IE Favourites... >> c:\%ProfFile%
REM Copy IE Favourites from source to destination
xcopy "%source%\Favorites\*" "%dest%\Favorites\*" /s /y >> c:\%ProfFile%
echo. >> c:\%ProfFile%
echo Copying My Documents folder... >> c:\%ProfFile%
REM Copy My Documents folder from source to destination
if exist "%source%\My Documents" xcopy "%source%\My Documents\*" "%dest%\My Documents\*" /s /y >> c:\%ProfFile%
if exist "%source%\%user%'s Documents" xcopy "%source%\%user%'s Documents" "%dest%\My Documents\*" /s /y >> c:\%ProfFile%
echo. >> c:\%ProfFile%
goto Complete

:NoSource
REM Set source location as...
set source=c:\documents and settings\%user%

echo Copying Outlook NK2 (Auto-complete files)... >> c:\%ProfFile%
REM Copy Outlook NK2 files from source to destination
xcopy "%source%\Application Data\Microsoft\Outlook\*.nk2" "%dest%\Application Data\Microsoft\Outlook\*.nk2" /s /y >> c:\%ProfFile%
echo. >> c:\%ProfFile%

REM If there is an error with the copy goto an error routine
if %ERRORLEVEL% EQU 1 goto DestError
if %ERRORLEVEL% EQU 4 goto SourceError

echo Copying desktop items... >> c:\%ProfFile%
REM Copy desktop items from source to destination
xcopy "%source%\Desktop\*" "%dest%\Desktop\*" /s /y >> c:\%ProfFile%
echo. >> c:\%ProfFile%
echo Copying Outlook PST files... >> c:\%ProfFile%
REM Copy PST files from source to destination (only in folder Local Settings\App Data\Microsoft\Outlook\
xcopy "%source%\Local Settings\Application Data\Microsoft\Outlook\*.pst" "%dest%\Local Settings\Application Data\Microsoft\Outlook\*.pst" /s /y >> c:\%ProfFile%
echo. >> c:\%ProfFile%
echo Copying Outlook Signatures... >> c:\%ProfFile%
REM Copy Outlook Signatures from source to destination
xcopy "%source%\Application Data\Microsoft\Signatures\*" "%dest%\Application Data\Microsoft\Signatures\*" /s /y >> c:\%ProfFile%
echo. >> c:\%ProfFile%
echo Copying IE Favourites... >> c:\%ProfFile%
REM Copy IE Favourites from source to destination
xcopy "%source%\Favorites\*" "%dest%\Favorites\*" /s /y >> c:\%ProfFile%
echo. >> c:\%ProfFile%
echo Copying My Documents folder... >> c:\%ProfFile%
REM Copy My Documents folder from source to destination
if exist "%source%\My Documents" xcopy "%source%\My Documents\*" "%dest%\My Documents\*" /s /y >> c:\%ProfFile%
if exist "%source%\%user%'s Documents" xcopy "%source%\%user%'s Documents" "%dest%\My Documents\*" /s /y >> c:\%ProfFile%
echo. >> c:\%ProfFile%
goto Complete

:DestError
REM DestError will trigger when there is an issue getting files to a destination PC
cls
echo Either the access rights are not set correctly or the user does not yet exist 
echo on the destination PC.
echo Either the access rights are not set correctly or the user does not yet exist on the destination PC. >> c:\%ProfFile%
echo.
echo This script will now close.
goto End

:SourceError
REM SourceError will trigger when there is an issue getting files from a source PC
cls
echo The source files cannot be found, please make sure the username and source 
echo computer name are correct.
echo The source files cannot be found, please make sure the username and source computer name are correct. >> c:\%ProfFile%
echo.
echo This script will now close.
goto End

:Complete
cls
echo The script completed successfully, the files are now copied to: 
echo %dest%\
echo. >> c:\%ProfFile%
echo The script completed successfully, the files are now copied to %dest%\ >> c:\%ProfFile%

REM Move logfile to destination
move /y c:\%ProfFile% "%dest%\%ProfFile%"

:End
REM If a copy errors out the logfile will remain on the root of the c: drive
echo.
pause

Quick backup and restore of your NK2 file

noreply@blogger.com (Ashur Guliana) — Mon, 24 May 2010 17:38:00 +0000

To back it up.bat
md \\yourserver1\nk2\%username%
copy “c:\Documents and Settings\%username%\application data\Microsoft\Outlook\*.Nk2″ \\yourserver\nk2\%username%

To restore it.bat.bat
copy \\yourserver1\nk2\%username%\*.nk2 “c:\Documents and Settings\%username%\application data\Microsoft\Outlook\”

FIX-Windows Security Center reports multiple antivirus programs installed

noreply@blogger.com (Ashur Guliana) — Mon, 24 May 2010 16:30:00 +0000

service called Windows Management Instrumentation, right-click on it, and choose Stop.
Open My Computer
Double-click on Drive C
Double-click on the Windows folder
Double-click on System32
Double-click on WBEM
Right-click on the Repository folder and click Delete and remove it

Outlook PST Back Up

noreply@blogger.com (Ashur Guliana) — Thu, 20 May 2010 23:20:00 +0000

taskkill /im outlook.exe
@ping 127.0.0.1 -n 2 -w 1000 > nul
@ping 127.0.0.1 -n 2 -w 1000> nul

@echo backup of PST files starting.....
@echo please wait..

@echo MAKING DIRECTORY!!!!!
mkdir R:\%USERNAME%\
@echo DONE!

@echo Starting backup!
copy "C:\Documents and Settings\%USERNAME%\Local Settings\Application Data\Microsoft\Outlook\Outlook.pst" "R:\%USERNAME%\" /y
@echo DONE......

REM Change computer description locally/remotely via registry

noreply@blogger.com (Ashur Guliana) — Thu, 20 May 2010 20:36:00 +0000

Dim strDescription, strComputer, reg, objRegistry
Dim ret, msg, ValueName

Const HKLM = &H80000002
strComputer = inputbox("Input a computer name.")

if strComputer = "" then wscript.quit

on error resume next

Set reg = GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv")

if err.number <> 0 then
msgbox "There was an error while attempting to connect to " & strComputer & "'s WMI database. Is the computer powered on? If so, there may be an issue with your permissions.",16,"Error connecting to '" & strComputer & "'"
wscript.quit
end if

on error goto 0
Set objRegistry = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2").ExecQuery("Select Description FROM Win32_OperatingSystem")
For Each object In objRegistry
strDescription = object.Description
Next
value = inputbox("Input a computer description for '" & strComputer & "':","Enter a new description",strDescription)
If value = strDescription then wscript.quit
key = "SYSTEM\CurrentControlSet\Services\LanmanServer\Parameters"
ValueName = "srvcomment"
If Len(Value) > 48 Then Value = Left(Value, 48)
ret = reg.SetStringValue(HKLM, key, ValueName, value)
if ret <> 0 then msgbox "Remote update failed."

Remotely restart your Print Spooler

noreply@blogger.com (Ashur Guliana) — Mon, 03 May 2010 17:26:00 +0000

'****************************************
strComputer = "."
intSleep = 15000


strService = " 'SPOOLER' "
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" _
& strComputer & "\root\cimv2")
Set colListOfServices = objWMIService.ExecQuery _
("Select * from Win32_Service Where Name ="_
& strService & " ")
For Each objService in colListOfServices
objService.StopService()
WSCript.Sleep intSleep

Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colFolders = _
    objWMIService.ExecQuery("Select * From Win32_Directory Where Name = 'c:\\windows\\system32\\spool\\printers'")

For Each objFolder in colFolders
    objFolder.Delete
Next

objService.StartService()
Next
WScript.Echo strService & " service has restarted"
WScript.Quit
'***********************************

Add A Desktop Shortcut by Group

noreply@blogger.com (Ashur Guliana) — Mon, 03 May 2010 17:24:00 +0000

' Script installs desktop icons based on group membership
' Bill Reid, 2006
' -----------------------------------------------------------------------------------

Option Explicit
Dim objNetwork, objUser, CurrentUser, strDesktop
Dim strGroup, WshShell, oShellLink
'
' ================================================
'  Configure
'
Const userGroup1 = "cn=AD Group 1 users"
' ================================================

' Create objects and extract strGroup values
Set objNetwork = CreateObject("WScript.Network")
Set objUser = CreateObject("ADSystemInfo")
Set CurrentUser = GetObject("LDAP://" & objUser.UserName)
strGroup = LCase(Join(CurrentUser.MemberOf))

set WshShell = WScript.CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop")

' Assign shortcuts

' == userGroup1 ====================================
If InStr(strGroup, lcase(userGroup1)) Then

 ' Example of an Internet Shortcut
 set oShellLink = WshShell.CreateShortcut(strDesktop & "\ShortcutName.lnk")
 oShellLink.TargetPath = "http://url.com"
 oShellLink.IconLocation = "C:\pathtoicon\icon.ico" 
 oShellLink.Description = "ShortcutName"
 oShellLink.Save
 
End If
' ================================================

WScript.Quit

Network Drive Mapping by Group

noreply@blogger.com (Ashur Guliana) — Mon, 03 May 2010 17:22:00 +0000

'start script

On Error Resume Next

Set objSysInfo = CreateObject("ADSystemInfo")
Set objNetwork = CreateObject("Wscript.Network")

'find user name

strUserPath = "LDAP://" & objSysInfo.UserName
Set objUser = GetObject(strUserPath)

'find user group's

For Each strGroup in objUser.MemberOf
strGroupPath = "LDAP://" & strGroup
Set objGroup = GetObject(strGroupPath)
strGroupName = objGroup.CN

' if user member of a group then map network drive

Select Case strGroupName
Case "GROUP NAME 1"
objNetwork.MapNetworkDrive "DRIVE LETTER:", "NETWORK PATH"

Case "GROUP NAME 2" 
objNetwork.MapNetworkDrive "DRIVE LETTER:", "NETWORK PATH"

Case "GROUP NAME 3"
objNetwork.MapNetworkDrive "DRIVE LETTER:", "NETWORK PATH"
'
End Select
Next

'end script

A New Way to Ping

noreply@blogger.com (Ashur Guliana) — Mon, 03 May 2010 17:20:00 +0000

@echo off

rem write existing network or Web site source
SET DES="ynet.com"
SET UNK="Unknown host"
SET FAIL="Lost = 4"
SET REC="Received = 4"


ping %DES% | FIND /I %UNK% >NUL
IF NOT ERRORLEVEL 1 ECHO unknown & pause & GOTO :EOF

ping %DES% | FIND /I %FAIL% >NUL
IF NOT ERRORLEVEL 1 ECHO failure & pause & GOTO :EOF

ping %DES% | FIND /I %REC% >NUL
IF NOT ERRORLEVEL 1 ECHO success & pause & GOTO :EOF

noreply@blogger.com (Ashur Guliana) — Mon, 03 May 2010 17:19:00 +0000

@echo off
rem Just save as a bat file and set BackgroundImageYouWantToUse to the location of the image you want to use. 
REG /ADD HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Authentication\LogonUI\Background /t REG_SZ /v OEMBackground /d 1 /f
mkdir %windir%\system32\oobe\info
mkdir %windir%\system32\oobe\info\backgrounds

copy BackgroundImageYouWantToUse %windir%\system32\oobe\info\backgrounds\backgroundDefault.jpg

VBScript-Change Home Page

noreply@blogger.com (Ashur Guliana) — Mon, 03 May 2010 17:12:00 +0000

Set objWshShell = CreateObject("WScript.Shell") 

strHomePage = Address*

objWshShell.RegWrite "HKCU\Software\Microsoft\Internet Explorer\Main\Start Page", strHomePage 

Set objWshShell = Nothing

Big Mess into My Style

noreply@blogger.com (Ashur Guliana) — Mon, 03 May 2010 17:09:00 +0000

ACHIEVEMENTS-Time for Alphabet Soup and Counting MS2008 on its way

noreply@blogger.com (Ashur Guliana) — Mon, 03 May 2010 17:03:00 +0000

Add Ubuntu to your Windows Active Directory

noreply@blogger.com (Ashur Guliana) — Thu, 15 Apr 2010 21:11:00 +0000

open / install likewise
sudo apt-get update
sudo apt-get install likewise-open
sudo domainjoin-cli join fqdn.of.your.domain Administrator

open defautls
sudo update-rc.d likewise-open defaults
sudo /etc/init.d/likewise-open start

reboot and login
with domain\user credentials

check settings
within terminal you can check your settings

check active directory
for your new created object

Setup a FOG Server

noreply@blogger.com (Ashur Guliana) — Thu, 15 Apr 2010 21:01:00 +0000

Install Ubuntu
1. English
2. Install Ubuntu
3. English
4. Select your Time Zone
5. Suggested Option
6. Use Entire Disk
7. Enter User Information and Computer information, I named mine 'foghat' with foguser
8. Install
9. Restart
10. Login

Install FOG
1. Open Firefox
2. Go to http://www.fogproject.org and download FOG.
3. Open Terminal Applications->Accessories->Terminal
4. cd Desktop (Remember Linux is case sensitive)
5. tar -xvzf fog*
6. cd fog*
7. cd bin
8. sudo ./installfog.sh
9. Select opt 2 Enter
10. N Enter
11. Default IP Enter
12. You dont need to set up a router IP but I will in case I ever use the server for DHCP.
13. Set up a DNS IP, just accept the default.
14. No do not change the default network interface.(you may not get this prompt if you have 1 nic)
15. I will not be using FOG for DHCP. (will require changing my current DHCP server.)
16. Note your IP settings and continue.
17. Enter to Acknowledge.
18. (I like to notify the FOG group, they have made a great product and deserve my feedback, choice is yours here)
19. gksu gedit /var/www/fog/commons/config.php and put your mysql password you typed during install in "MYSQL_PASSWORD", "" save and close. It has been noted that you also should change the MYSQL password here while you are at it /opt/fog/service/etc/config.php.
20. Browse to http://localhost/fog/management
21. Click install!
22. Click to log in. You can now reach this webpage from anywhere on the network where your server is installed by using it's ip address. eg http://192.168.0.100/fog/management I would reccomend putting an A record in your DNS called FOGSERVER this will make things easier to remember. default: fog/password

Set up DHCP (For Windows DHCP)
1. Log onto your Windows DHCP server
2. Open DHCP console.
3. Right Click Scope Options -> Configure Options
4. Scroll Down to number 66 check and give the hostname of FOGSERVER
5. Scroll down to number 67 check and give the value pxelinux.0
6. Apply and close.

Install FOG service on client (Host)
1. Log onto the PC
2. Browse to http://FOGSERVER/fog/client
3. Click to download
4. Open
5. Run Setup.exe in the Fogservice folder
6. Accept defaults (FOG does not like to be installed in locations other than default)
7. Enter the ip or preferrably the hostname if you created one. FOGSERVER
8. Save Changes, Done, Close.
9. Open services Start->Run->services.msc
10. Scroll down and start "Fog Service"
11. This would also be a good time to make sure that PXE is your primary boot option in BIOS, you might need to enable it.

Create an image file.
1. Click on Image management.
2. New Image
3. Give it a name, description, default storage group, filename, and Image type (choose wisely). For dell computers with a utility partition you will HAVE to select multiple partition single disk.
4. Add.

Assign Image to Host
Assign the Image to a host, this will be the image the host uses to restore and deploy from, You can assign this image to as many PCs as you want. Useful for group Deployment.
1. Click on Host management.
2. List all hosts.
3. Click Edit next to your machine.
4. In Host Image select the proper image that you created in the previous step from the dropdown.

Upload an image.
1. From another machine log onto http://FOGSERVER/fog/management login with fog/password
2. Click on Tasks (The Star)
3. List all Hosts
4. Click Upload next to the PC.
5. Upload image.
6. Click on active Tasks, and either wait for the PC to check in and autoreboot or Reboot it manually.

Test Restore/Deploy
1. Click on Tasks (The Star)
2. Click Deploy next to your PC.
3. Click image All computers.
4. Verify image by booting computer and making sure everything works.

File Server Migration

noreply@blogger.com (Ashur Guliana) — Thu, 15 Apr 2010 20:53:00 +0000

Migrate File Shares

a. Download and install the File Migration Utility from the reference link below onto NEWDC.
b. Create a new migration project.
c. Follow the New Project Wizard. I have not done the DFS portion, so typically uncheck this part. Set your default location to D:\ and Finish.
d. From the main server, click on "Add Server..." under the "Source file servers" pull down. Type in OLDDC.
e. Select the shares you wish to migrate. Be careful here. The File Migrator does not move shares within shares very well (if you have d:\share and d:\share\share shared, it'll have all kinds of problems). Note the Target Share and Target location over to the right.
f. On the "View by" pull down, select "Target Volumes". Click through every folder in this section.
g. Change the "Target Share" to what you want it to be (default adds the old server name, which is probably not what you want).
h. Change the "Target Location" on the right. Same problem, edit each folder as necessary.
i. Click on "Continue" and validate everything before starting (this may take a couple of minutes to come up).
j. Click on "Continue" to begin the phase 1 file copy. This will create new shares on the new server and begin copying files from the old server. It does NOT turn off access to the old server and can be run during business hours. Any files that are in use will be skipped. I sometimes call this step "pre-seeding".

Migrate File Shares

a. Phase 1 will probably take several hours to complete. Once done schedule a downtime for the file server. Usually on the weekends.
b. It is possible to exit out of the File Migration utility and restart it later, just note the configuration file name so you can load that later.
c. When ready for Phase 2, click on "Continue" and confirm you wish to turn off the shares. This will turn off all access to the old server and copy all files that have changed since the phase 1 file copy.
d. When completed the File Migration utility will turn on the new shares and they will now be accessible.
e. Update your login script to reflect the shared folder change. If you don't have a login script, now would be a good time to implement one. A simple script could look like:

NET USE S: /D
NET USE S: \\NEWDC\SHARED

Change User Folders

a. Simply multi-select (ctrl-click) the users you want to change.
b. Right click and click on properties
c. Click on the "Profile" tab
d. Click on "Home Folder", click on "Connect" then select the drive letter and type the path: \\NEWDC\USERS\%USERNAME%
e. You'll probably get an error message that the folders already exist, that's OK. Click on "Cancel" to exit this window.
f. Copy the script to NEWDC and run it. A log will be created of every folder that was changed and what it was changed to.

http://www.microsoft.com/downloads/details.aspx?FamilyID=d00e3eae-930a-42b0-b595-66f462f5d87b&DisplayLang=en

Find and/or cleanup old computer accounts in AD

noreply@blogger.com (Ashur Guliana) — Wed, 07 Apr 2010 19:41:00 +0000

Dsquery is a command-line tool that is built into Windows Server 2008.
It is available if you have the Active Directory Domain Services (AD DS) server role installed.
To use dsquery, you must run the dsquery command from an elevated command prompt.
To open an elevated command prompt, click Start, right-click Command Prompt, and then click Run as administrator.

To find inactive computer accounts (number is inactivity in weeks):
dsquery computer -inactive 2

To find computers with stale passwords (number is stale in days)
dsquery computer -stalepwd 45

There is also a combination to disable / delete the accounts:
combined with dsmod/dsrm

dsquery computer -inactive 4 dsmod computer -disabled yes
dsquery computer -stalepwd 45 dsrm computer

You can get additional info on both of these tools with dsquery computer /? ,dsmod computer /?, and dsrm computer /?

Batch to install VNC

noreply@blogger.com (Ashur Guliana) — Wed, 07 Apr 2010 19:33:00 +0000

Batch to install VNC

@ECHO OFF
REM - REALVNC ROLL OUT BATCH
IF EXIST "c:\Program Files\RealVNC" (GOTO END) ELSE (GOTO START)
:START
\\fs1\install\RealVNC\RealVNC.exe /register /SecurityTypes=None
/DisableClose=true /silent
rmdir "c:\documents and settings\All users\Start Menu\Programs\RealVNC" /S
/Q
REGEDIT /S \\fs1\install\RealVNC\VNCREG.reg
:END

EXIT

WAKE ON LAN batch

noreply@blogger.com (Ashur Guliana) — Wed, 07 Apr 2010 19:31:00 +0000

WAKE ON LAN

@ECHO OFF
C:
CD\
CLS
for /f %%a in (MAC_ADDRESSES.CSV) do start "" WOL %%a
EXIT

CSV file should have a list of MAC's with no dash's

Batch file menu

noreply@blogger.com (Ashur Guliana) — Wed, 07 Apr 2010 19:27:00 +0000

Batch file menu
@ECHO OFF
C:
CD\
CLS

:MENU
CLS

ECHO ============= MENU NAME =============
ECHO -------------------------------------
ECHO 1. Selection 1
ECHO 2. Selection 2
ECHO 3. Selection 3
ECHO 4. Selection 4
ECHO 5. Selection 5
ECHO 6. Selection 6
ECHO 7. Selection 7
ECHO -------------------------------------
ECHO 8. Selection 8
ECHO -------------------------------------
ECHO 9. Selection 9
ECHO -------------------------------------
ECHO ==========PRESS 'Q' TO QUIT==========
ECHO.

SET INPUT=
SET /P INPUT=Please select a number:

IF /I '%INPUT%'=='1' GOTO Selection1
IF /I '%INPUT%'=='2' GOTO Selection2
IF /I '%INPUT%'=='3' GOTO Selection3
IF /I '%INPUT%'=='4' GOTO Selection4
IF /I '%INPUT%'=='5' GOTO Selection5
IF /I '%INPUT%'=='6' GOTO Selection6
IF /I '%INPUT%'=='7' GOTO Selection7
IF /I '%INPUT%'=='8' GOTO Selection8
IF /I '%INPUT%'=='9' GOTO Selection9
IF /I '%INPUT%'=='Q' GOTO Quit

CLS

ECHO ============INVALID INPUT============
ECHO -------------------------------------
ECHO Please select a number from the Main
echo Menu [1-9] or select 'Q' to quit.
ECHO -------------------------------------
ECHO ======PRESS ANY KEY TO CONTINUE======

PAUSE > NUL
GOTO MENU

:Selection1

Whatever code you want goes here...

:Selection2

and in here...

:Selection3

and in here too...

:Selection4

and so on

:Selection5

and so on

:Selection6

and so on

:Selection7

and so on

:Selection8

and so on

:Selection9

and so on

:Quit
CLS

ECHO ==============THANKYOU===============
ECHO -------------------------------------
ECHO ======PRESS ANY KEY TO CONTINUE======

PAUSE>NUL
EXIT

Change Microsoft Office 2003 user info

noreply@blogger.com (Ashur Guliana) — Fri, 12 Feb 2010 16:45:00 +0000

A VBScript script

on error resume next

Set WSHShell = Wscript.CreateObject("Wscript.Shell")

wshshell.regwrite "HKCU\Software\Microsoft\Office\11.0\Common\UserInfo\Username",CLng(&H00),"REG_BINARY"

wshshell.regwrite "HKCU\Software\Microsoft\Office\11.0\Common\UserInfo\UserInitials",CLng(&H00),"REG_BINARY"