Archive - August 2013

"Success is not final, failure is not fatal: it is the courage to continue that counts." - Winston Churchill

Index

Map Printer Based on OU
SpybotSD Cleanup Spyware
Rename Computer
Find Dated Computer Objects
Enter Computer Name and Rename
Rename PC with Netdom
Autologin Once - reduced steps

Change Name and Join Domain
Correcting User Account and Mailbox Associations
Returning Paths and Extension
Background Previewer
Picture/Book Slide Show

Δ Friday, August 30th, 2013

Δ Map Printer Based on OU

How to use VBScript to map printers based upon Active Directory OUs

[download resource files]

Set objSysInfo = CreateObject("ADSystemInfo")
strName = objSysInfo.ComputerName

arrComputerName = Split(strName, ",")
arrOU = Split(arrComputerName(1), "=")
strComputerOU = arrOU(1)

Set objNetwork = CreateObject("WScript.Network")

'=========================================================================
'STEP 1 - Remove any NETWORK printers (NOT Local Printers)
'=========================================================================

Set WshNetwork = WScript.CreateObject("WScript.Network")
Set Printers = WshNetwork.EnumPrinterConnections

For i = 0 to Printers.Count - 1 Step 2

If Left(ucase(Printers.Item(i+1)),2) = "\\" Then
        WSHNetwork.RemovePrinterConnection Printers.Item(i+1)
    End IF
Next

'=========================================================================
'STEP 2 - Connect Printers based on COMPUTER OU membership
'=========================================================================

Select Case strComputerOU
    Case "OU1"
        objNetwork.AddWindowsPrinterConnection "\\PNL-DC\3055"
        objNetwork.AddWindowsPrinterConnection "\\PNL-DC\4600"
        objNetwork.SetDefaultPrinter "\\PNL-DC\4600"
    Case "OU2"
        objNetwork.AddWindowsPrinterConnection "\\PNL-DC\3055"
        objNetwork.AddWindowsPrinterConnection "\\PNL-DC\4600"
        objNetwork.SetDefaultPrinter "\\PNL-DC\3055"
End Select

Δ [email me]

Δ Friday, August 23rd, 2013

Δ SpybotSD Cleanup Spyware

How to automate the spyware cleanup process

Δ [email me]

Δ Wednesday, August 21st, 2013

Δ Rename Computer

How to rename computer using VBScript; specified name.

[download resource files]

Δ [email me]

Δ Monday, August 19th, 2013

Δ Find Dated Computer Objects

How to search Active Directory for old objects

[download resource files]

Δ [email me]

Δ Thursday, August 15th, 2013

Δ Enter Computer Name and Rename

How to rename computer with input box

[download resource files]

Δ [email me]

Δ Wednesday, August 14th, 2013

Δ Rename PC with Netdom

How to use the netdom.exe command to rename computer

[download resource files]

Δ [email me]

Δ Monday, August 12th, 2013

Δ Autologin Once - reduced steps

How to autologin to computer

[download resource files]

REG ADD "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon" /v AutoAdminLogon /d 1 /f REG DELETE "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon" /v AutoLogonCount /f REG ADD "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon" /v DefaultUserName /d useraccount /f REG ADD "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon" /v DefaultPassword /d userpw /f REG ADD "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon" /v DefaultDomainName /d YourDomain /f *note* if you want it to use a domain account change %COMPNAME% with the domain you want to use Second Force a restart (power control to reboot) Finally once it boots up, remove the registry keys to prevent remote viewing of the password as it will be in plain text. REG ADD "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon" /v AutoAdminLogon /d 0 /f REG ADD "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon" /ve DefaultUserName /f REG DELETE "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon" /v DefaultPassword /f REG ADD "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon" /v DefaultDomain /d YourDomain /f

Δ [email me]

Δ Friday, August 9th, 2013

Δ Change Name and Join Domain

How to change computer name and join domain

[download resource files]

Const JOIN_DOMAIN = 1
 Const ACCT_CREATE = 2
 Const ACCT_DELETE = 4
 Const WIN9X_UPGRADE = 16
 Const DOMAIN_JOIN_IF_JOINED = 32
 Const JOIN_UNSECURE = 64
 Const MACHINE_PASSWORD_PASSED = 128
 Const DEFERRED_SPN_SET = 256
 Const INSTALL_INVOCATION = 262144
 Dim message
 Dim IP
 strDomain = "DOMAINNAME"
 strUser = administrator
 strPassword = DOMAINPASSWORD

Set objNetwork = CreateObject("WScript.Network")
 strComputer = objNetwork.ComputerName

Set objWMIService = GetObject ("winmgmts:" & "!\\" & strComputer & "\root\cimv2")
 Set colAdapters = objWMIService.ExecQuery ("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled = True")

title = "Join computer to domain"
 message = "Please enter computer name. Leave blank or press cancel to quit." & vbCrLf & vbCrLf & "Generated name: " & generatedName
 newComputerName = InputBox(message, title)

If newComputerName = "" Then
 Wscript.quit
 End If

areYousure = MsgBox("Are you sure you want to add computer to domain with name: " & vbCrLf & vbCrLf & newComputerName, vbYesNo + vbQuestion,"Add computer to domain")

If areYouSure = "7" Then
 MsgBox "Exiting script.",vbInformation
 Wscript.quit
 End If

Set objComputer = GetObject("winmgmts:{impersonationLevel=Impersonate}!\\" & _
 strComputer & "\root\cimv2:Win32_ComputerSystem.Name='" & _
 strComputer & "'")

ReturnValue = objComputer.JoinDomainOrWorkGroup(strDomain, strPassword, strDomain & "\" & strUser, "ou=OUNAME,DC=DOMAINNAME,dc=local", _
 JOIN_DOMAIN + ACCT_CREATE)

If ReturnValue = 0 Then
 MsgBox "Computer added to domain under old name without error. proceeding to change computer name. "
 Else
 MsgBox "Computer not added to domain successfully. Return value: " & ReturnValue
 End If

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

Set colComputers = objWMIService.ExecQuery _
 ("Select * from Win32_ComputerSystem")

For Each objComputer in colComputers
 MsgBox "About to rename computer to: " & newComputername
 ErrCode = objComputer.Rename(newComputerName, strPassword, strUser)
 If ErrCode = 0 Then
 MsgBox "Computer renamed correctly."
 Else
 MsgBox "Eror changing computer name. Error code: " & ErrCode
 End If

Δ [email me]

Δ Wednesday, August 7th, 2013

Δ Correcting User Account and Mailbox Associations

How to fix broken mailbox associations

•In Active Directory Users & Computers note SMTP addresses, group memberships, address and phone details of the account currently associated to the mailbox.

•Note the current mailbox store.

•Remove the Exchange attributes from the account.

•Rename the account to have a prefix of ‘Disabled –‘. Disable the account and move to the Disabled Accounts OU (this is an OU we have created in our AD).

•Connect Exchange Admin to the Exchange 5.5 server at the other end of the relevant connection agreement.

•Delete the mailbox entry in Exchange Admin.

•In ESM find the correct mailbox store. Expand and right click on the Mailboxes folder and select ‘Run Cleanup Agent’.

•Refresh the view and the mailbox should now have a red cross on it.

•Right click on the mailbox and select ‘Reconnect’. Select the correct account when prompted.

•In ADUC add the necessary SMTP addresses, groups, address and phone information.

•Update Custom Attribute 15 with you initials, date and comment saying corrected account/mailbox mapping (this is part of our process for any changes made to mail-enabled objects).

•Create a new Outlook profile for the user.

Δ [email me]

Δ Tuesday, August 6th, 2013

Δ Returning Paths and Extension

How to return basic file location information

Δ [email me]

Δ Friday, August 2nd, 2013

Δ Background Previewer

How to cycle through pictures

[download resource files]


<html>
<head>
<style>

.bgimages img {cursor:hand}
</style>
<script language="JavaScript1.2">
<!--

function tile(){
if (!document.all)
return
var source=event.srcElement
if (source.tagName=="IMG")
document.body.style.backgroundImage="url("+source.src+")"
}

function restore(){
document.body.style.backgroundImage=''
}
document.body.onclick=restore
//-->
</script>
</head>
<body>
<span class="bgimages" onClick="tile();event.cancelBubble=true"><img src="backgr10.jpg"><img src="backgr11.jpg"><br><img src="backgr13.jpg"><img src="backgr14.jpg"></span>
</body>
</html>

Δ [email me]

Δ Thursday, August 1st, 2013

Δ Picture/Book Slide Show

How to add pictures into a slide show presentation

[download resource files]


<script type="text/javascript">

//Specify the slider's width (in pixels)
var sliderwidth="500px"
//Specify the slider's height
var sliderheight="150px"
//Specify the slider's slide speed (larger is faster 1-10)
var slidespeed=3
//configure background color:
slidebgcolor="#EAEAEA"

//Specify the slider's images
var leftrightslide=new Array()
var finalslide=''
leftrightslide[0]='<a href="http://"><img src="dynamicbook1.gif" border=1></a>'
leftrightslide[1]='<a href="http://"><img src="dynamicbook2.gif" border=1></a>'
leftrightslide[2]='<a href="http://"><img src="dynamicbook3.gif" border=1></a>'
leftrightslide[3]='<a href="http://"><img src="dynamicbook4.gif" border=1></a>'
leftrightslide[4]='<a href="http://"><img src="dynamicbook5.gif" border=1></a>'

//Specify gap between each image (use HTML):
var imagegap=" "

//Specify pixels gap between each slideshow rotation (use integer):
var slideshowgap=5


////NO NEED TO EDIT BELOW THIS LINE////////////

var copyspeed=slidespeed
leftrightslide='<nobr>'+leftrightslide.join(imagegap)+'</nobr>'
var iedom=document.all||document.getElementById
if (iedom)
document.write('<span id="temp" style="visibility:hidden;position:absolute;top:-100px;left:-9000px">'+leftrightslide+'</span>')
var actualwidth=''
var cross_slide, ns_slide

function fillup(){
if (iedom){
cross_slide=document.getElementById? document.getElementById("test2") : document.all.test2
cross_slide2=document.getElementById? document.getElementById("test3") : document.all.test3
cross_slide.innerHTML=cross_slide2.innerHTML=leftrightslide
actualwidth=document.all? cross_slide.offsetWidth : document.getElementById("temp").offsetWidth
cross_slide2.style.left=actualwidth+slideshowgap+"px"
}
else if (document.layers){
ns_slide=document.ns_slidemenu.document.ns_slidemenu2
ns_slide2=document.ns_slidemenu.document.ns_slidemenu3
ns_slide.document.write(leftrightslide)
ns_slide.document.close()
actualwidth=ns_slide.document.width
ns_slide2.left=actualwidth+slideshowgap
ns_slide2.document.write(leftrightslide)
ns_slide2.document.close()
}
lefttime=setInterval("slideleft()",30)
}
window.onload=fillup

function slideleft(){
if (iedom){
if (parseInt(cross_slide.style.left)>(actualwidth*(-1)+8))
cross_slide.style.left=parseInt(cross_slide.style.left)-copyspeed+"px"
else
cross_slide.style.left=parseInt(cross_slide2.style.left)+actualwidth+slideshowgap+"px"

if (parseInt(cross_slide2.style.left)>(actualwidth*(-1)+8))
cross_slide2.style.left=parseInt(cross_slide2.style.left)-copyspeed+"px"
else
cross_slide2.style.left=parseInt(cross_slide.style.left)+actualwidth+slideshowgap+"px"

}
else if (document.layers){
if (ns_slide.left>(actualwidth*(-1)+8))
ns_slide.left-=copyspeed
else
ns_slide.left=ns_slide2.left+actualwidth+slideshowgap

if (ns_slide2.left>(actualwidth*(-1)+8))
ns_slide2.left-=copyspeed
else
ns_slide2.left=ns_slide.left+actualwidth+slideshowgap
}
}


if (iedom||document.layers){
with (document){
document.write('<table border="0" cellspacing="0" cellpadding="0"><td>')
if (iedom){
write('<div style="position:relative;width:'+sliderwidth+';height:'+sliderheight+';overflow:hidden">')
write('<div style="position:absolute;width:'+sliderwidth+';height:'+sliderheight+';background-color:'+slidebgcolor+'" onMouseover="copyspeed=0" onMouseout="copyspeed=slidespeed">')
write('<div id="test2" style="position:absolute;left:0px;top:0px"></div>')
write('<div id="test3" style="position:absolute;left:-1000px;top:0px"></div>')
write('</div></div>')
}
else if (document.layers){
write('<ilayer width='+sliderwidth+' height='+sliderheight+' name="ns_slidemenu" bgColor='+slidebgcolor+'>')
write('<layer name="ns_slidemenu2" left=0 top=0 onMouseover="copyspeed=0" onMouseout="copyspeed=slidespeed"></layer>')
write('<layer name="ns_slidemenu3" left=0 top=0 onMouseover="copyspeed=0" onMouseout="copyspeed=slidespeed"></layer>')
write('</ilayer>')
}
document.write('</td></table>')
}
}
</script>

Δ [email me]

About

   I'm a Computer
   Systems Engineer

   Living and Loving Life

Author