This VBscript will map a drive using a subroutine. The script can be modified to map multiple drives using the subroutine. Can be useful as a login script. Tested on Windows 2000 through to Windows 10.
'==========================================================================
'MapDrive.vbs
'Created by Timothy Bourne
'http://www.imric.co.uk
'Last Modified: 11th November 2009
'==========================================================================
'This VBscript will map a drive using a subroutine. The script can be
'modified to map multiple drives using the subroutine. Can be useful as a
'login script.
'==========================================================================
Option Explicit
On Error Resume Next
Dim objNetwork, objPassword, objCheckDrive
Dim strLocalName, strRemoteName, strUser
Dim bUpdateProfile, bAlreadyConnected
Dim i
Set objNetwork = Wscript.CreateObject("WScript.Network")
'Create drive mapping for Z: (this section can be copied for multiple drives)
strLocalName = "Z:"
strRemoteName = "\\Server01\data"
strUser = objNetwork.UserName 'Will use the current logged in username.
bUpdateProfile = FALSE 'Drive mapping will not be perminant.
EnumDrives 'Runs the subroutine to connect drive Z:
WScript.Quit
'EnumDrives subroutine
Sub EnumDrives
bAlreadyConnected = FALSE
Set objCheckDrive = objNetwork.EnumNetworkDrives()
'Check if the drive is already connected or not.
For i = 0 To objCheckDrive.Count - 1 Step 2
If objCheckDrive.Item(i) = strLocalName Then bAlreadyConnected = True
Next
If bAlreadyConnected = True then
WScript.Echo VbCrLf & strLocalName & " drive is already connected. Disconnecting it..."
'If the drive letter already exists, disconnect it...
objNetwork.RemoveNetworkDrive strLocalName
'... then connect it to the specified path.
objNetwork.MapNetworkDrive strLocalName, strRemoteName, bUpdateProfile, strUser
WScript.Echo strLocalName & " drive was reconnected to successfully."
Else
'If the drive letter dosn't exist, connect it to the specified path.
objNetwork.MapNetworkDrive strLocalName, strRemoteName, bUpdateProfile, strUser
WScript.Echo strLocalName & " drive was connected successfully."
End If
End Sub
Tuesday 13 March 2018
get group members script
This VBscript will export the members of the specified AD group and then save and display in excel. Tested on Windows 10 and Windows 2008 functional domain.
'==========================================================================
'GetGroupMembers.vbs
'Created by Timothy Bourne
'http://www.imric.co.uk
'Last Modified: 27/07/2015
'==========================================================================
'This VBscript will export the members of the specified AD group and
'then save and display in excel.
'==========================================================================
Option Explicit
'On Error Resume Next
Dim strGroup
Dim objFSO, objOutfile, objGroup, objMember, objShell
strGroup = InputBox("Please enter the group name:")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objOutFile = objFSO.CreateTextFile(strGroup & ".csv")
Set objGroup = GetObject("LDAP://cn=" & strGroup & ",OU=Groups,OU=Site,DC=Domain,DC=Name")
objOutFile.WriteLine "Group Name: " & objGroup.SAMAccountName
objOutFile.WriteLine objGroup.Info
objOutFile.WriteLine "Members:"
For Each objMember in objGroup.Members
objOutFile.WriteLine "," & objMember.cn
Next
WScript.Echo "Exported the group: "& strGroup
Set objShell = CreateObject("WScript.Shell")
objShell.run ("Excel" & " """ & strGroup & ".csv""")
'==========================================================================
'GetGroupMembers.vbs
'Created by Timothy Bourne
'http://www.imric.co.uk
'Last Modified: 27/07/2015
'==========================================================================
'This VBscript will export the members of the specified AD group and
'then save and display in excel.
'==========================================================================
Option Explicit
'On Error Resume Next
Dim strGroup
Dim objFSO, objOutfile, objGroup, objMember, objShell
strGroup = InputBox("Please enter the group name:")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objOutFile = objFSO.CreateTextFile(strGroup & ".csv")
Set objGroup = GetObject("LDAP://cn=" & strGroup & ",OU=Groups,OU=Site,DC=Domain,DC=Name")
objOutFile.WriteLine "Group Name: " & objGroup.SAMAccountName
objOutFile.WriteLine objGroup.Info
objOutFile.WriteLine "Members:"
For Each objMember in objGroup.Members
objOutFile.WriteLine "," & objMember.cn
Next
WScript.Echo "Exported the group: "& strGroup
Set objShell = CreateObject("WScript.Shell")
objShell.run ("Excel" & " """ & strGroup & ".csv""")
Monday 12 March 2018
change admin password script
This VB script will change the local administrator password of a computer remotely by hostname. Tested on Windows XP, 2003 & Vista.
'==========================================================================
'ChangeAdminPassword.vbs
'Created by Timothy Bourne
'http://www.imric.co.uk
'Last Modified: 10th October 2007
'==========================================================================
'This VBscript will change the local administrator password of a computer
'remotely by hostname.
'==========================================================================
Option Explicit
Dim strComputer, strPassword
Dim objUser
'Set the password.
strPassword = "Pa$$w0rd."
'Input box for the user the enter the remote hostname.
strComputer = InputBox("Enter Computer name:", "Computer Name")
'Get the Administator user account and set the password.
Set objUser = GetObject("WinNT://" & strComputer & "/Administrator, user")
objUser.SetPassword(strPassword)
objUser.SetInfo
'Set the Administrator account as enabled.
objUser.AccountDisabled = False
objUser.SetInfo
'Echo out that the Administrator password is reset.
WScript.Echo "The administrator password on " & strComputer & " has been changed."
add printer script
This VBscript will add one or more printers by using a subroutine. Tested on Windows 2000, XP, Vista & 7.
'==========================================================================
'AddPrinter.vbs
'By Timothy Bourne
'http://www.imric.co.uk
'Last Modified: 24th January 2010
'==========================================================================
'This VBscript will add one or more printers by using a subroutine.
'==========================================================================
Option Explicit
On Error Resume Next
Dim strPrinterPath
Dim objNetwork
'Path of Printer
strPrinterPath = "\\ServerName\Printer1"
AddPrinter
objNetwork.SetDefaultPrinter strPrinterPath 'Makes this printer the default.
WScript.Echo strPrinterPath & " was marked default."
strPrinterPath = "\\ServerName\Printer2"
AddPrinter
'Add a printer subroutine
Sub AddPrinter
Set objNetwork = CreateObject("WScript.Network")
objNetwork.AddWindowsPrinterConnection strPrinterPath
WScript.Echo strPrinterPath & " was successfully mapped."
End Sub
imr3dm5 · The Boltbox
game : Quake III Arena
mod : OSP / CPMA
file download : N/A
file size : N/A
gameplay : FFA / 1v1 / 2v2
date of release : Maybe someday?
mod : OSP / CPMA
file download : N/A
file size : N/A
gameplay : FFA / 1v1 / 2v2
date of release : Maybe someday?
imr3dm4 · The Bad Place
game : Quake III Arena
mod : OSP / CPMA
file download : imr3dm4.zip
file size : 1,935KB
gameplay : FFA / 1v1 / 2v2
date of release : 13th November 2009
original level : DM4 for Quake by id Software
other info : There are two versions of this map included in the file. imr3dm4 with my new item layout and imr3dm4cl with a classic style item layout.
mod : OSP / CPMA
file download : imr3dm4.zip
file size : 1,935KB
gameplay : FFA / 1v1 / 2v2
date of release : 13th November 2009
original level : DM4 for Quake by id Software
other info : There are two versions of this map included in the file. imr3dm4 with my new item layout and imr3dm4cl with a classic style item layout.
imr3dm3 · The Dark Zone
game : Quake III Arena
mod : OSP / CPMA
file download : imr3dm3.zip
file size : 658KB
gameplay : FFA / 1v1 / 2v2
date of release : 10th March 2002
original level : DM6 for Quake by id Software
mod : OSP / CPMA
file download : imr3dm3.zip
file size : 658KB
gameplay : FFA / 1v1 / 2v2
date of release : 10th March 2002
original level : DM6 for Quake by id Software
imr3dm2 · Trapped In Hell
game : Quake III Arena
mod : OSP / CPMA
file download : imr3dm2.zip
file size : 1,043KB
gameplay : FFA / 2v2 / 4v4
date of release : 10th March 2002
mod : OSP / CPMA
file download : imr3dm2.zip
file size : 1,043KB
gameplay : FFA / 2v2 / 4v4
date of release : 10th March 2002
imr3dm1 · Industrial Revolution
game : Quake III Arena
mod : OSP / CPMA
file download : imr3dm1.zip
file size : 5,990KB
gameplay : FFA / 4v4
date of release : 25th January 2002
mod : OSP / CPMA
file download : imr3dm1.zip
file size : 5,990KB
gameplay : FFA / 4v4
date of release : 25th January 2002
milktdm1 · Industrial Revolution
game : Quake III Arena
mod : OSP / CPMA
file download : milktdm1.zip
file size : 6,320KB
gameplay : FFA / 4v4
date of release : 29th October 2001
mod : OSP / CPMA
file download : milktdm1.zip
file size : 6,320KB
gameplay : FFA / 4v4
date of release : 29th October 2001
q3a2 · Return To Atlantis
game : Quake III Arena
mod : OSP / CPMA
file download : q3a2-v2.zip
file size : 2,443KB
gameplay : 1v1
date of release : 31st August 2001
original level : A2 for Quake by Pingu
mod : OSP / CPMA
file download : q3a2-v2.zip
file size : 2,443KB
gameplay : 1v1
date of release : 31st August 2001
original level : A2 for Quake by Pingu
Subscribe to:
Posts (Atom)