Basic Scripts for Windows Server

Basic Scripts for Windows Server

  • Comments 2

If you're new to Windows Server, you may need some help getting started or transitioning from another environment.  Gus Weber pointed me to the TechNet Script Center and some Sample Scripts.  In addition, here are a few commonly used scripts.

Adding a User “myerKen” in an Active Directory environment, where the OU = management, in the fabrikam domain:

Set objOU = GetObject("LDAP://OU=management,dc=fabrikam,dc=com")

Set objUser = objOU.Create("User", "cn=MyerKen")
objUser.Put "sAMAccountName", "myerken"
objUser.SetInfo

 

Creating a backup of all event logs

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

Set colLoggedEvents = objWMIService.ExecQuery _
    ("Select * from Win32_NTLogEvent Where Logfile = 'Application'")

For Each objEvent in colLoggedEvents
    Wscript.Echo "Category: " & objEvent.Category
    Wscript.Echo "Computer Name: " & objEvent.ComputerName
    Wscript.Echo "Event Code: " & objEvent.EventCode
    Wscript.Echo "Message: " & objEvent.Message
    Wscript.Echo "Record Number: " & objEvent.RecordNumber
    Wscript.Echo "Source Name: " & objEvent.SourceName
    Wscript.Echo "Time Written: " & objEvent.TimeWritten
    Wscript.Echo "Event Type: " & objEvent.Type
    Wscript.Echo "User: " & objEvent.User
Next
Leave a Comment
  • Please add 2 and 6 and type the answer here:
  • Post
  • In my last post, Basic Scripts for Windows Server , I posted some code onto my blog. I found a great

  • In my last post, Basic Scripts for Windows Server , I posted some code onto my blog. I found a great

Page 1 of 1 (2 items)