Over 10 years we help companies reach their financial and branding goals. Engitech is a values-driven technology agency dedicated.

Gallery

Contacts

411 University St, Seattle, USA

engitech@oceanthemes.net

+1 -800-456-478-23

VBS Active Directory Workstations Organization Unit to Text file Reboot Whole Computer List

‘ Declare Variables
query=”LDAP://OU=Computers,OU=Workstations,dc=domain,dc=com”
fldrvar=”c:temp”
filevar=”computerlist.txt”

Set objOU = GetObject(query)
objOU.Filter = Array(“Computer”)
computers=””
For Each objComputer in objOU
computers=computers & objComputer.cn & vbcrlf
Next

Set fso = CreateObject(“Scripting.FileSystemObject”)
if not fso.folderexists(fldrvar) then fso.createfolder(fldrvar)
Set ts = fso.OpenTextFile(fldrvar & “” & filevar, 2, True)
ts.writeline computers
ts.close

Msgbox “All Done file is located at: ” & fldrvar & “” & filevar
msgbox “Usefull Command #1: Start Cmd Box -> Type “”shutdown -i”” without quotes”

Angel Computers – Contact Us

More Posts

How Managed IT Services Can Reduce Costly Downtime

Instead of worrying about how much a period of downtime could cost you, it’s better to have a plan in place that can reduce and prevent it whenever possible. And a managed IT partner can help you devise such a strategy.

Why Is It Important to Have a Robust DNS Filter?

A robust suite of cybersecurity tools is a vital necessity for any business. Failing to protect your network and devices can have huge financial consequences. DNS filters are more than just a tool — they’re an investment in your business. Here’s how having your IT team set up a DNS filter can provide big benefits across your organization.

Employee Spotlight: Mark

For this months employee spotlight we’re featuring new-again employee, Mark. He previously worked at AngelCom for 7 years and is back in the role of Director of Support.