Archive - July 2013

"Believe you can and you're halfway there." - Theodore Roosevelt

Index

Setting Folder Permissions
Users and Logon Scripts
Renaming PDF Files
Remove Legacy SMTP Proxy Addresses
Detect USB Drive and Alert
Determine which USB Devices are connected
How to install Zenworks Silently

Remove User from Local Admin
Remove Novell Account
Set IP Address to Static
Show Current Team Viewer ID
Join Computer to Specific OU

Δ Wednesday, July 31st, 2013

Δ Setting Folder Permissions

How to set permissions usning VBScript

[download resource files]

Δ [email me]

Δ Tuesday, July 30th, 2013

Δ Users and Logon Scripts

How to show users' logon scripts

[download resource files]

This script simply creates a tab delimited text file showing all users with their logon script and object’s distinguished name. You’ll be notified by a prompt when the script has finished processing. Simply open the resulting text file with Excel to see the information formatted into columns. You could modify the script to output to a CSV file if you don’t use commas in your display names

Const ForWriting = 2

'Path for the output file
filePath = "C:\WhichLoginScript.txt"

'Setup output file
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile(filepath, ForWriting, True)

'Write Header row
objTextFile.writeLine("Display Name" & vbTab & "Logon Script" & vbTab & "DN")

'Create Objects for LDAP Queries
Set rootDSE = GetObject("LDAP://RootDSE")
DomainContainer = rootDSE.Get("defaultNamingContext")

Set conn = CreateObject("ADODB.Connection")
conn.Provider = "ADSDSOObject"
conn.Open "ADs Provider"

'LDAP query for all users
strLDAP = "<LDAP://" & DomainContainer & ">;(&(objectCategory=person)(objectClass=user));adspath;subtree"

'Get query results and output to file
Set oComm = CreateObject("ADODB.Command")
oComm.ActiveConnection = conn
oComm.CommandText = strLDAP
oComm.Properties("Sort on") = "DisplayName"
oComm.Properties("Page size") = 1500

Set rs = oComm.Execute

While Not rs.EOF
	
	Set FoundObject = GetObject (rs.Fields(0).Value)
			strRow = FoundObject.DisplayName & vbTab & FoundObject.scriptPath & vbTab & FoundObject.distinguishedName		
			objTextFile.writeLine(strRow)
	rs.MoveNext

Wend

MsgBox "Processing complete!"

Δ [email me]

Δ Friday, July 26th, 2013

Δ Renaming PDF Files

How to rename pdf files

[download resource files]

Δ [email me]

Δ Thursday, July 25th, 2013

Δ Remove Legacy SMTP Proxy Addresses

How to remove older proxy addresses

[download resource files]

Const ForWriting = 2
Const ForReading = 1
Const ADS_PROPERTY_DELETE = 4

'Path for the output file
outputfilePath = "C:\processlog.txt"

'Path for input file
inputfilepath = "c:\users.txt"
The script takes the input file and processes each listed user. It checks all the proxy addresses for the user and deletes any that match the specified domain. Two output files are produced. The first is a processing log which lists whether each user was found and how many addresses were removed for that user. The second file is a log of all addresses removed which can be used as a reference in the event of a mistake.

'Path for address log
logfilepath = "c:\addresslog.txt"

'Domain to be processes
strSMTPDomain = "lykeslines.com"
intSDLen = Len(strSMTPDomain)

'Setup input file
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objInTextFile = objFSO.OpenTextFile(inputfilepath, ForReading, True)

'Setup output file
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile(outputfilepath, ForWriting, True)

'Setup log file
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objAdLogTextFile = objFSO.OpenTextFile(logfilepath, ForWriting, True)

'Create Objects for LDAP Queries
Set rootDSE = GetObject("LDAP://RootDSE")
DomainContainer = rootDSE.Get("defaultNamingContext")

Set conn = CreateObject("ADODB.Connection")
conn.Provider = "ADSDSOObject"
conn.Open "ADs Provider"

'Read name from input file
Do Until objInTextFile.AtEndOfStream

strDisplayName = objInTextFile.ReadLine
	
	'Find the user in AD using an LDAP query
	strLDAP = "<LDAP://" & DomainContainer & ">;(&(objectCategory=person)(objectClass=user)(displayName=" & strDisplayName & "));adspath;subtree"

'Get query results and output to file
	Set oComm = CreateObject("ADODB.Command")
	oComm.ActiveConnection = conn
	oComm.CommandText = strLDAP
	oComm.Properties("Sort on") = "DisplayName"
	oComm.Properties("Page size") = 1500

Set rs = oComm.Execute
	AddCount = 0
	
	If rs.recordcount = 0 then
		QueryResult = "User not found"
		objTextFile.WriteLine(strDisplayName & vbtab & QueryResult)
	End If

If rs.recordcount > 1 then
		QueryResult = "Resolved to more than one name"
	  objTextFile.WriteLine(strDisplayName & vbtab & QueryResult)
	End If

If rs.recordcount = 1 then
		QueryResult = "User found"	
	 While Not rs.EOF
	     Set FoundObject = GetObject (rs.Fields(0).Value)
			 arrProxyAddresses = FoundObject.proxyAddresses
			 For Each Address In arrProxyAddresses
			 'Confirm that the address is for the SMTP somain you want to process
			 If left(Address,5)= "smtp:" And Right(LCase(Address),intSDLen)= strSMTPDomain Then
			 	 objAdLogTextFile.WriteLine(FoundObject.Displayname & vbTab & Address)
				  'Strip the address from the array
				  FoundObject.PutEx ADS_PROPERTY_DELETE, "proxyAddresses", Array(Address)
				  FoundObject.SetInfo
				  AddCount = AddCount + 1
			 End if
		  Next
    	rs.MoveNext
	 Wend
	 objTextFile.WriteLine(strDisplayName & vbtab & QueryResult & vbTab & AddCount & " addresses removed")
	End If
	
Loop

MsgBox "Processing complete!"

Δ [email me]

Δ Monday, July 22nd, 2013

Δ Detect USB Drive and Alert

How to alert user which they have inserted usb drive

[download resource files]

Δ [email me]

Δ Friday, July 19th, 2013

Δ Determine which USB Devices are connected

How to return which usb devices are connected

[download resource files]

Δ [email me]

Δ Thursday, July 18th, 2013

Δ How to install Zenworks Silently

How to install the zenworks software silently

[download resource files]

Set WshShell = WScript.CreateObject("WScript.Shell") WshShell.Popup "Installing ZenWorks, please wait", 60, "Please Wait..", 64 WshShell.Run "X:\myfolder\Novell\Zenworks\10.2.2\PreAgentPkg_AgentComplete.exe -x -q", 0, True WScript.Sleep 120000 ‘ 120 seconds While CheckProcess("ZENPreAgent.exe") = True ‘ Installation still running, waiting x seconds WScript.Sleep 5000 Wend WshShell.Popup "Installation completed – machine should be restarted.", 60, "Please restart computer", 64 Function CheckProcess(ByVal strName) ‘ Monitor Threads CheckProcess = False Set objDictionary = CreateObject("Scripting.Dictionary") strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colProcesses = objWMIService.ExecQuery("Select * from Win32_Process") For each objProcess in colProcesses objDictionary.Add objProcess.ProcessID, objProcess.Name Next Set colThreads = objWMIService.ExecQuery _ ("Select * from Win32_Thread") For each objThread in colThreads intProcessID = Int(objThread.ProcessHandle) strProcessName = objDictionary.Item(intProcessID) If UCase(strProcessName) = UCase(strName) Then CheckProcess = True End If Next End Function

Δ [email me]

Δ Tuesday, July 16th, 2013

Δ Remove User from Local Admin

How to remove a user from the local admin group

[download resource files]

Δ [email me]

Δ Friday, July 12th, 2013

Δ Remove Novell Client

How to remove the novell client

[download resource files]

On Error Resume Next

Const HKLM=&H80000002 ‘HKEY_LOCAL_MACHINE
Set objReg=GetObject("winmgmts:!root/default:StdRegProv") ' Registry access
Set WshShell = WScript.CreateObject(”WScript.Shell”) ' used For executing a command line command

' I would like to know what version of Novell this is, only to find out if I uninstalled it successfully.
' You may remove this if you dont care
Key = HKLM
SubKey = "SOFTWARE\Novell"
ValueName = "CurrentVersion"
KeyType = REG_SZ
objReg.GetStringValue Key, SubKey, ValueName, Value

WScript.Echo "Novell found – version = " & Value
If IsNull(Value) Then
    WScript.Echo "Is Novell installed?"
Else 
    WScript.Echo "Removing Novell Client, please wait."
    WshShell.Run "%WINDIR%\system32\NetWare\Nwmigw2k\setupw2k.exe /u ms_nwspx", 0, True ' 0 minimized, true wait for completion
    WshShell.Run "%WINDIR%\system32\NetWare\Nwmigw2k\setupw2k.exe /u ms_nwnb", 0, True
    WshShell.Run "%WINDIR%\system32\NetWare\Nwmigw2k\setupw2k.exe /u ms_nwipx", 0, True
    WshShell.Run "%WINDIR%\system32\NetWare\Nwmigw2k\setupw2k.exe /u nw_wm", 0, True
    WshShell.Run "%WINDIR%\system32\NetWare\Nwmigw2k\setupw2k.exe /u nw_ndps", 0, True
    WshShell.Run "%WINDIR%\system32\NetWare\Nwmigw2k\setupw2k.exe /u nw_nwfs", 0, True
   
    ' Check and see what version we have now – hint we should not have any!   
    objReg.GetStringValue Key, SubKey, ValueName, Value2
    If Value = Value2 Then
        WScript.Echo "Oh no! Failed uninstalling Novell… help!"
    Else
        WScript.Echo "Novell is gone!"
    End If
End If
Set objReg = Nothing
Set WshShell = Nothing

Δ [email me]

Δ Thursday, July 11th, 2013

Δ Set IP Address to Static

How to set IP address in a script

[download resource files]

Δ [email me]

Δ Wednesday, July 3rd, 2013

Δ Show Current Team Viewer ID

How to return team viewer information

[download resource files]

Const strFolderName = "\\fileserver\share\folder\"
' set this to where you want the files stored, make sure there is permission from clients to this no matter what user they are logged on with!
Const ShowInfoOutput = True
' Set to true/false for writing to console

Const ForReading = 1, ForWriting = 2, ForAppending = 8
Const HKEY_CURRENT_USER = &H80000001
Const HKEY_LOCAL_MACHINE = &H80000002

strComputer = "."
 
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _
    strComputer & "\root\default:StdRegProv")
 
strKeyPath = "SOFTWARE\Wow6432Node\TeamViewer\Version5"
strValueName = "ClientID"
oReg.GetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwTVID

' client ID is placed in more than one place depending on version
' in case we dont get it first, try a second place (add more of theese "if sections" if other versions are used)
If dwTVID = 0 Then
	strKeyPath = "SOFTWARE\Wow6432Node\TeamViewer\Version5.1"
	oReg.GetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwTVID
End If
Set oReg = Nothing

' Get information about this machine
Set WshNetwork = WScript.CreateObject("WScript.Network") ' used for Networking object control
UserName = UCase(WshNetwork.UserName)
ComputerName = UCase(WshNetwork.ComputerName)
EnvDomainName = UCase( WshNetwork.UserDomain )
Set WshNetwork = Nothing

If ShowInfoOutput Then
	WScript.Echo "User:         " & EnvDomainName & "\" & UserName
	WScript.Echo "Computer:     " & ComputerName
	WScript.Echo "TeamViewerID: " & dwTVID
End If

If Not dwTVID = 0 Then
	' only save if we did get a TeamViewer ID
	' Save to userdomain, computername, username, teamviewerid to a text file with same name
	strFileName = strFolderName & EnvDomainName & "_" & ComputerName & "_" & UserName & "_" & dwTVID & ".txt"
	Set objFSO = CreateObject("Scripting.FileSystemObject") ' used for file operations
	Set objTextFile = objFSO.OpenTextFile (strFileName, ForWriting, True)
	objTextFile.WriteLine EnvDomainName & vbCrLf & ComputerName & vbCrLF & UserName & vbCrLF & dwTVID
	objTextFile.Close
End If

Δ [email me]

Δ Monday, July 1st, 2013

Δ Join Computer to Specific OU

How to join computers to ad ou

[download resource files]

On Error Resume Next
' This script joins the current computer to a domain, using specified user and placing it in specified OU

' Set theese variables
'-------------------------------------------------------------------------------------------------------
strDomain = "mydomain.local" ' Domain to logon
strPassword = "MyPassword" ' Service account logon password
strUser = "MyUserAccount" ' Service account
strOU = "OU=LetsPlaceItHere,OU=MySecondOU,OU=MyFirstOU,DC=mydomain,DC=local" ' OU to place computer in
'-------------------------------------------------------------------------------------------------------

' Constants to choose from when joining
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

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

' Join Domain
Set objComputer = GetObject("winmgmts:{impersonationLevel=Impersonate}!\\" & _
strComputer & "\root\cimv2:Win32_ComputerSystem.Name='" & _
strComputer & "'")
ReturnValue = objComputer.JoinDomainOrWorkGroup(strDomain, _
strPassword, strDomain & "\" & strUser, strOU, _
JOIN_DOMAIN + ACCT_CREATE + DOMAIN_JOIN_IF_JOINED)

Select Case ReturnValue

Case 0 Status = "Success"

Case 2 Status = "Missing OU"

Case 5 Status = "Access denied"

Case 53 Status = "Network path not found"

Case 87 Status = "Parameter incorrect"

Case 1326 Status = "Logon failure, user or pass"

Case 1355 Status = "Domain can not be contacted"

Case 1909 Status = "User account locked out"

Case 2224 Status = "Computer Account allready exists"

Case 2691 Status = "Already joined!"

Case Else Status = "UNKNOWN ERROR " & ReturnValue

' Show Status
WScript.Echo "Join domain status: " & Status

End Select

Δ [email me]

About

   I'm a Computer
   Systems Engineer

   Living and Loving Life

Author