•   

  <!-- Leaderboard Ad -->   <script language="JavaScript1.1" src="http://a.windowsitpro.com/RealMedia/ads/adstream_jx.ads/www.windowsitpro.com/jsi@Top"></script>  <!-- Body Content -->    <!-- <div style="float: right; margin-top: 47px; margin-bottom: 10px;">  <SCRIPT LANGUAGE="JavaScript1.1" SRC="http://a.windowsitpro.com/RealMedia/ads/adstream_jx.ads/www.windowsitpro.com/jsi@Right1"></script>  </div> -->      8628 » How can I copy files that where created on or after a given date to a  different drive, preserving the original folder structure? 29-Oct-04 Using only standard commands, I have scripted CopyCreated.bat  to perform the subject copy.  The syntax for using CopyCreated.bat is:  #1 CopyCreated  Folder YYYYMMDD  Drive :
• CopyCreated Folder YYYYMMDD Drive

• When you open the properties for a user account, click the Account tab,  and then either select or clear the check boxes in the Account options dialog box, numerical values are assigned  to the UserAccountControl attribute. The value that is assigned to the  attribute tells Windows which options have been enabled.
  

• Search for All Computers Whose Accounts Have Been Disabled

• On Error Resume Next strComputer = "fictional" Set objWMIService = GetObject("winmgmts:\\" & strComputer) If Err.Number <> 0 Then     WScript.Echo "Error: " & Err.Number     WScript.Echo "Error (Hex): " & Hex(Err.Number)     WScript.Echo "Source: " &  Err.Source     WScript.Echo "Description: " &  Err.Description     Err.Clear End If 

   

  Typical output:

• On Error Resume Next  Const E_ADS_PROPERTY_NOT_FOUND = &h8000500D  Set objOU = GetObject _   ("LDAP://cn=Users,dc=NA,dc=fabrikam,dc=com")     ObjOU.Filter= Array("user")    For Each objUser in objOU   Wscript.Echo objUser.cn & " is a member of: "   Wscript.Echo vbTab & "Primary Group ID: " & _   objUser.Get("primaryGroupID")      arrMemberOf = objUser.GetEx("memberOf")      If Err.Number <> E_ADS_PROPERTY_NOT_FOUND Then   For Each Group in arrMemberOf   Wscript.Echo vbTab & Group   Next   Else   Wscript.Echo vbTab & "memberOf attribute is not set"   Err.Clear   End If   Wscript.Echo VbCrLf  Next 

• Set objConfiguration = GetObject _   ("LDAP://cn=Configuration,dc=fabrikam,dc=com")     For Each objContainer in objConfiguration   Wscript.Echo objContainer.Name  Next 
• objCommand.CommandText = _  "<LDAP://dc=NA,dc=fabrikam,dc=com>;;name;subtree" Set objRecordSet = objCommand.Execute
• objCommand.CommandText = _  "<LDAP://dc=NA,dc=fabrikam,dc=com>;(objectCategory=computer)" & _  ";distinguishedName,name;subtree"

1 more annotation...

• netsh firewall set service RemoteAdmin

• Vbs To  Exe
  
   

  VbsToExe is a command line application that converts VBScript files into  an executables.

  The created program executes the  VBScript-code from memory using Ms-ScriptControl.
  It hides the conent of the  VBScript-file and optionally protects them with a  password.
  
  
  NOTICE
  
  The  resulted program may not work correct. Some VBScript functions are not  available.
  You may test it for  functionality.
  
   

  ---

   
  Usage

vbstoexe  [ -c | -e ] { -p "password" } [ VBScript | Script-Exe ]

 
  • -c  --  [convert the VBScript file into an  executable]  
  • -e  --  [extract the source]   
  • -h  --  [print help]   
  • -p  --  [protect the program with a password]   
  • -v  --  [print version]  
    

• Enum Files in Folder

• Description

   

  Enumerate files in folder and  subfolders.