The Official Scripting Guys Forum! Forum

Problem with user level environment variables set from VBS logon script not being available until logoff/logon

Tue, 24 Nov 2009 22:48:54 Z

Hi,

I'm a little stuck with this problem on Windows 7. Our VBS logon script sets certain user level environment variables. On Windows XP and 2003 this works perfectly. On Windows 7, it does not.

Details of the problem are posted in the Windows 7 forum here. I have had no luck getting a solution there so thought I'd try in here instead :)

A quick overview of the problem is that when a user logs onto Windows 7 for the first time, the environment variables set by the logon script are not available until the user logs off and then on again.

They are set using WScript.Shell.Environment like this:

Set Shell = CreateObject("WScript.Shell")
Set TEnv = Shell.Environment(TLevel)
TEnv(TName) = TValue

I have even tried putting this into an in-house VB.NET DLL that sets them like this:

Environment.SetEnvironmentVariable(VarName, VarValue, EnvironmentVariableTarget.User)

However they are set, they appear in the Registry and Computer -> Properties -> Advanced -> Environment Variables.

They just won't work!

Restarting explorer.exe and dwm.exe have no affect so at this stage I am guessing that this is a bug in winlogon.exe or some other parent process.

So, I have 2 questions:

1. Does anyone know how to force a refresh of user environment variables?
2. Is this a bug - can someone from Microsoft comment please?

Remember that this problem is only seen during a first logon (or the 1st time a new variable is set I think), when the variables are set during the logon.

One last thing, if, after logon, I manually set a new variable, the others are then picked up, which suggests that there is a way to refresh environment variables for new processes...

Thanks!

Rob

Script to query mapped drive information from multiple computers in domain

Wed, 25 Nov 2009 02:17:04 Z

Hey Scripting Guy,

Good day to you and hope all is well.

I'm currently conducting an audit to multiple computers in one domain. I need to get their information with regards to their mapped drive. I want to know what drive letter are they pointing to and what path are they assigning each drive letter.

Hoping for your favorable response.

Best Regards,
-Krone-

Uptime using SystemInfo | Find "Uptime" method for multiple computers

Wed, 25 Nov 2009 02:11:24 Z

Hey Scripting Guy,

Good day to you, my name is Krone and I got a question with regards to uptime script using the Windows SystemInfo method. Here's my simple script below.

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

for /f %%i in (machinelist_selected.txt) do SystemInfo | Find "Up Time" %%i>>Out1.txt

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

where: machinelist_selected.txt are the list of the machines to be queried
out1.txt should be the output where the computers being queried should be recorded.

My problem is that the script run successfully and generate an Out1.txt file on the path where the script is being saved however Out1.txt doesn't seem to provide any data recorded based on the query, in short Out1.txt is empty :(.

Is there any other pipe method that could display the output properly.

Also, I've no problem running the script using uptime.exe method, all works well. I'll just need to further validate and compare the results of the two methods.

Hoping for your favorable response.

P.S. ---> this thread is migrated from http://social.technet.microsoft.com/Forums/en-US/itproxpsp/thread/d74aade1-78b7-420a-a1b8-ea5bd7c0f694 and I had just migrated it. Old thread is now okay to be deleted.

-Krone-

New to VBScripting - Reading a log file extracting the error line and the next line and writing an output file and also extract the last 15 lines at the end on the file

Tue, 24 Nov 2009 16:54:16 Z

I am new to vbscripting and have the following task at hand. I am reading a unicode log file and am trying to extract the errors from the file. Each error line contains the word * Error * so I have figured out how to extract that line, however I would also like to exctract the next line that contains additional information about the error. I would like to write these lines to an output file. Also the last 15 lines of the file contain valuable summary information that I would also like to be written to the output file. That is a constant it is always the last 15 lines. Any hlep and our examples would be apprceciated. Other nices to have would be the generation of a unique output file name based on the input file name and the date.

IE8 HTA Print lost focus

Tue, 24 Nov 2009 23:46:19 Z

Hi guys, we have a HTA software running some CRM functions like Invocing / Ordering. Under IE6 everything is OK. Recently we planned to switch over to IE8 but one of the problems is printing issue.
We are using the following code to start print, the print dialog will appear and click the "print" button on the dialog will send the page to the printer. But immediately it jumps away to an other opened application (like Excel).

"<A HREF="javascript: void(0);" ID="print" ONCLICK="window.print();">Print</A> "

I also tried an other way as the following code, it still jumps away for a little while but then jumps back again.

A HREF="javascript: this.focus();" ID="print" ONCLICK="window.print();">Print</A>"

Is it a bug for IE8?

Reading a group from one domain and copying users to another group in a different domain using VBS and W2K8 SP2

Tue, 24 Nov 2009 20:49:49 Z

Hey all,

I'm trying to read a group from a child domain and extract the users so that I can put them in a group with the same name in the parent domain.
Here is my code so far. It reads the child domain group but I can't seem to get the users into the parent domain group. currently the names of the groups are different but will change once testing is complete.

On Error Resume Next
Dim strMember
Set objGroup = GetObject("LDAP://cn=fo power users group,ou=fo,dc=fo,dc=CA,dc=org")
objGroup.GetInfo
arrMemberOf = objGroup.GetEx("member")

WScript.Echo "Members:"
For Each strMember in arrMemberOf
    WScript.echo strMember
Next

'' Add users to a group
Const ADS_PROPERTY_APPEND = 3

Set objRootDSE = GetObject("LDAP://rootDSE")
Set objContainer = GetObject("LDAP://cn=Users," & _
    objRootDSE.Get("defaultNamingContext"))

For Each strMember in arrMemberOf
    Set objGroup = GetObject("LDAP://cn=fo power users group,ou=fo users,ou=fo,ou=field office,dc=CA,dc=org")
    objGroup.Putex ADS_PROPERTY_APPEND, strMember,"FO Power Users Group"
    objGroup.SetInfo
    WScript.echo strMember
Next
WScript.Echo "Done"

Any help would be appreciated. And yes, I have looked at the scripting forum but the copying between groups script fails. Might be 2008 issue.

Thanks,

Frank

DNS Script - Powershell

Tue, 24 Nov 2009 17:23:26 Z

I'm busy working on a script to DNS check over 300 servers.

My script does the following:

1. Checks if there is a DNS record from a text file of hosts
2. Returns to an excel file, the hostname, the Hostname in DNS, the ip address and eventually i want to add aliases.

My script is as follows:

$erroractionpreference = "SilentlyContinue"
$a = New-Object -comobject Excel.Application
$a.visible = $True

$b = $a.Workbooks.Add()
$c = $b.Worksheets.Item(1)

$c.Cells.Item(1,1) = "Machine Name"
$c.Cells.Item(1,2) = "DNS Entry"
$c.Cells.Item(1,3) = "IP Address listed"

$d = $c.UsedRange
$d.Interior.ColorIndex = 19
$d.Font.ColorIndex = 11
$d.Font.Bold = $True
$d.EntireColumn.AutoFit($True)

$intRow = 2

$colComputers = get-content C:\ScriptData\activehosts.txt
foreach ($strComputer in $colComputers)
{
$c.Cells.Item($intRow, 1) = $strComputer.ToUpper()

#Resolve the host name

$dnsresult = [System.Net.DNS]::GetHostEntry($strComputer)

#Display information about host

#Give hostname Entry in Cell2

$c.Cells.Item($intRow, 2) = $dnsresult.HostName

#IP listed in Cell 3

$c.Cells.Item($intRow, 3) = $dnsresult.AddressList[0].IpAddressToString

$intRow = $intRow + 1

}
$d.EntireColumn.AutoFit()

It is almost working perfectly, except that if there isn't a DNS record, it seems to just populate that field with the previous dns record it had from the previous server it looked up. I'm unsure what command to use to give a false value or just to output "No DNS record" in the hostname column and leave the ip column blank.

Any advice is appreciated

Robocopy - Include directories (as opposed to Include files) option?

Tue, 14 Jul 2009 00:51:48 Z

Hello,

I would like to copy only a given set of directories using robocopy. How can this be achieved? Is there an option that I am missing?

Details of my requirement:
- I already use robocopy to sync a large number of binary files. I use robocopy obviously because I want to copy only the files that are changed since the last copy. (something like rsync)
- Almost always I can run the robocopy on the top level directory. But once in a while (very infrequently), I need to copy a few files (~100 files) from 3-4 directories. I do not want to copy anything else. Again, not all files within these 3-4 directories have changed. But I know that the files that have changed are within these directories. So again using robocopy will be ideal because it will detect and copy only the changed files.

From what I see so far, there is no way to provide just these directory names to robocopy and copy the appropriate files. I will have to loop through these directories and then robocopy individual files. Is that correct? Or is there an option in robocopy that can achieve this?

Many thanks,
-Hari

Windows 7 Backup and Shutdown with Powershell

Tue, 24 Nov 2009 22:06:22 Z

I am would like to writing a Powershell script which will fire the "built in" backup utility in Windows 7 and shut the computer down when finished. I am new to Powershell, and I was unable to find any sample scripts in the downloads section for this type of backup. Since I am interested in learning Powershell, I would like to avoid using VBscript and the like. Thank you for your help.

Reading text from webpage/source code into access database, preferably with VBA

Tue, 24 Nov 2009 21:06:56 Z

Not sure if this is the right place or not, so if it is in the wrong place let me know.

At work, we have a webpage that is hosted offisite. Its a simple site that allows residents to submit service requests for things like down trees, road kill, stuff like that. After submission, there is a tracking page that is always in the same format. The problem here is that data is stored offsite and off of our network, so we have no real way to access it other than through the limited webpage.

Each request is givin a request number, and that number is placed in the url, so the page is http://biglongurlforrequest=requestNumber. I have a hyperlink field on our in house work order system, they just have to put the request number in the field, then double click to access the page. There is no security or loggin in. The problem is I have no idea how to write a webpage to a file or array, and then pull that information from the page. My biggest hurdle is I dont know how to get the info from the file into a field in access.

Example from the source code:
<td align="left" valign="top"><tr><td align="right" valign="top">Comments:</td>
<td align="left" valign="top">Description of problem.</td></tr></td></tr>

How would I get the bolded part into a field in a table? If there is a better way to go about this please let me know of other options.

Or can you tell me where to look/research for this stuff. My limit of VBA is mostly looping, if/then, and form operations.

Thank you

Executing script on a remote machine - VBScript

Tue, 24 Nov 2009 17:27:23 Z

I'm trying to remotely run a script that will get a listing of all printers (network and local) for a specific user along with whether they are default or not. I have a script that I can use to do this locally. I've been able to remote computers printers, but only local printer and not default status.

I tried WSH, but I ran into issues with it that may have to do with how our company's domain security is set up, something I can't change. I tried disabling firewalls, putting myself in the admin group, and all that good stuff, but was never able to get WSHRemote to work right.

How to identify a junction in VBscript?

Tue, 24 Nov 2009 16:07:38 Z

As you know, Win 2008 and Vista make much use of junctions (aka reparse points). For example, "Documents and Settings" is a junction. When using a VBscript to enumerate all folders and files, the presence of the junction causes the subfolders and files to be listed twice.

Is there a way in VBscript to determine that a folder or file is really a junction?

I realize that I could start a subordinate CMD process to use the "dir /al" command, but was hoping for something more efficient, that avoids starting another process.

Thank you.

James Troy

Copying file numerous times and rename each file from Excel spread sheet (followed your answer to DF and didn't work)

Mon, 23 Nov 2009 17:51:30 Z

Hi Scripting Guy,

I have a file that needs to be duplicated numerous times and named from a list in Excel spread sheet. I coded the following script from your response to DF:

strComputer = "."

Set objWMIService = GetObject ("winmgmts:\\" & strComputer & "\root\cimv2")

Set colFiles = objWMIService.ExecQuery ("Select * From CIM_DataFile Where Name ='C:\\Scripts\\Test.txt'")

Set objExcel = CreateObject ("Excel.Application")
objExcel.Visible = True

Set objWorkbook = objExcel.Workbooks.Open("C:\Documents and Settings\wilsonm1\My Documents\Projects\ENSRProjects\ENSRFileNames1.xls")

intRow = 1

Do Until objExcel.Cells (intRow, 1).Value = ""

strNewName = objExcel.Cells (intRow, 1).Value

For Each objFile in ColFiles
strCopy = "C:\Scripts\" & strNewName
objFile.Copy(strCopy)
Next

intRow = intRow + 1
Loop

objExcel.Quit

The script ran and I can't find the files. I thought they should be in C:\Scripts\new file?????

Generate a List of Last Modified files in a Folder and Subfolders

Tue, 17 Nov 2009 00:12:49 Z

Hello,

I'm trying to find an easy way to display files that have been modified since a relative date (12/31/2006) . I was recently looking at the FORFILES command which appears to allow this, but the help description is puzzling and I can't get it to work.

I need to generate a list of the files that were not modified in last 3 years, so last modified in December, 31, 2006 in a specific folder and subfolders, generate a log file with the all patch and file name and after that another line to push this log and delete all files.

Was thinking about (VBscript).
Found this post: http://blogs.technet.com/heyscriptingguy/archive/2008/03/13/how-can-i-find-the-number-and-size-of-all-the-files-recently-modified-or-added-to-a-computer.aspx that could edit and help me, but I dont know how.

I was reading this Thread: http://social.technet.microsoft.com/Forums/en-US/ITCG/thread/121ff244-b60b-4256-aadc-86286d274302, but question is pretty similar.

Hope you Guys can help.

Thanks in Advance.

Thiago Pereira | http://thiagoinfrat.spaces.live.com | http://www.winsec.org

VB script for lastlogon dnsserver.

Tue, 30 Jun 2009 18:51:28 Z

I have a script for polling all the dns server in a domain to find the lastlogon, but the script I have doesn't store the name of the dns server that had the most current last logon. Is that data stored in the user class somewhere. Or do I need to take the most current time I found and verify it against evey dns server with a If most current time = last logon time on this dns server echo the name? I am not real sure how to go about verifying it either. I got alot of this script from Richard Mueller's site http://www.rlmueller.net This script is great for auditing user accounts, so feel free to use it if you need it. Thanks for your help in advance.

Johnny

Option Explicit
Dim objRootDSE, strConfig, objConnection, objCommand, strQuery
Dim objRecordSet, objDC
Dim strDNSDomain, objShell, lngBiasKey, lngBias, k, arrstrDCs()
Dim strDN, dtmDate, objDate, lngDate, objList, strUser
Dim strBase, strFilter, strAttributes, lngHigh, lngLow

' Create dictionary to keep track of
' users and login times
Set objList = CreateObject("Scripting.Dictionary")
objList.CompareMode = vbTextCompare
' rmueller's script
' Obtain local Time Zone bias from machine registry.
Set objShell = CreateObject("Wscript.Shell")
lngBiasKey = objShell.RegRead("HKLM\System\CurrentControlSet\Control\" _
& "TimeZoneInformation\ActiveTimeBias")
If UCase(TypeName(lngBiasKey)) = "LONG" Then
lngBias = lngBiasKey
ElseIf UCase(TypeName(lngBiasKey)) = "VARIANT()" Then
lngBias = 0
For k = 0 To UBound(lngBiasKey)
 lngBias = lngBias + (lngBiasKey(k) * 256^k)
Next
End If
' Determine configuration context and DNS domain from RootDSE object.
Set objRootDSE = GetObject("LDAP://RootDSE")
strConfig = objRootDSE.Get("configurationNamingContext")
strDNSDomain = objRootDSE.Get("defaultNamingContext")
' Use ADO to search Active Directory for ObjectClass nTDSDSA.
' This will identify all Domain Controllers.
Set objCommand = CreateObject("ADODB.Command")
Set objConnection = CreateObject("ADODB.Connection")
objConnection.Provider = "ADsDSOObject"
objConnection.Open "Active Directory Provider"
objCommand.ActiveConnection = objConnection
strBase = "<LDAP://" & strConfig & ">"
strFilter = "(objectClass=nTDSDSA)"
strAttributes = "AdsPath"
strQuery = strBase & ";" & strFilter & ";" & strAttributes & ";subtree"
objCommand.CommandText = strQuery
objCommand.Properties("Page Size") = 100
objCommand.Properties("Timeout") = 60
objCommand.Properties("Cache Results") = False
Set objRecordSet = objCommand.Execute
' Enumerate parent objects of class nTDSDSA. Save Domain Controller
' AdsPaths in dynamic array arrstrDCs.
k = 0
Do Until objRecordSet.EOF
Set objDC = _
 GetObject(GetObject(objRecordSet.Fields("AdsPath")).Parent)
ReDim Preserve arrstrDCs(k)
arrstrDCs(k) = objDC.DNSHostName
k = k + 1
objRecordSet.MoveNext
Loop
' Retrieve lastLogon attribute for each user on each Domain Controller.
For k = 0 To Ubound(arrstrDCs)
strBase = "<LDAP://" & arrstrDCs(k) & "/" & strDNSDomain & ">"
strFilter = "(&(objectCategory=person)(objectClass=user))"

strAttributes = "distinguishedName,lastLogon"
strQuery = strBase & ";" & strFilter & ";" & strAttributes _
 & ";subtree"
objCommand.CommandText = strQuery
On Error Resume Next
Set objRecordSet = objCommand.Execute
If Err.Number <> 0 Then
 On Error GoTo 0
 Wscript.Echo "Domain Controller not available: " & arrstrDCs(k)
Else
 On Error GoTo 0
 Do Until objRecordSet.EOF
 strDN = objRecordSet.Fields("distinguishedName")
 lngDate = objRecordSet.Fields("lastLogon")

 On Error Resume Next
 Set objDate = lngDate
 If Err.Number <> 0 Then
 On Error GoTo 0
 dtmDate = #1/1/1601#
 Else
 On Error GoTo 0
 'stored as a 64 bit integer that VBScript cannot handle, must
 'seperate it to work with it.
 lngHigh = objDate.HighPart
 lngLow = objDate.LowPart
 If lngLow < 0 Then
 lngHigh = lngHigh + 1
 End If
 If (lngHigh = 0) And (lngLow = 0 ) Then
 dtmDate = #1/1/1601#
 Else
 dtmDate = #1/1/1601# + (((lngHigh * (2 ^ 32)) _
 + lngLow)/600000000 - lngBias)/1440
 End If
 End If
 If objList.Exists(strDN) Then
 If dtmDate > objList(strDN) Then
 objList(strDN) = dtmDate
 End If
 Else
 objList.Add strDN, dtmDate
 End If
 objRecordSet.MoveNext
 Loop
End If
Next
Dim objNetwork,objExcel
dim intRow
intRow = 2
Set objNetwork = Wscript.CreateObject("Wscript.Network")
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
objExcel.Workbooks.Add

objExcel.Cells(1,1).value = "First Name"
objExcel.Cells(1,2).value = "Last Name"
objExcel.Cells(1,3).value = "User ID"
objExcel.Cells(1,4).value = "Last Logon Date"
objExcel.Cells(1,5).value = "Last Logon Time"
objExcel.Cells(1,6).value = "Last Logon Server"
objExcel.Cells(1,7).value = "Account Status"

' Output latest lastLogon date for each user.
Dim easydate1
Dim easydate2
Dim objUser

For Each strUser In objList
'easydate1 is the date stamp
'easydate2 is the time stamp
easydate1 = objList(strUser)
easydate1 = FormatDateTime(easydate1,2)
easydate2 = objList(strUser)
easydate2 = FormatDateTime(easydate2,3)
'output username and last login date and last login time
' change 1/1/1601 to Never for Never logged in
If easydate1 = "1/1/1601" Then
easydate1 = "Never"
End If
' change 12:00:00 AM to Never for Never logged in
If easydate2 = "12:00:00 AM" Then
easydate2 = "Never"
End If

Set objUser = GetObject _
("LDAP://" & struser & "")

objExcel.Cells(intRow,1).value = objuser.givenname
objExcel.Cells(intRow,2).value = objuser.sn
objExcel.Cells(intRow,3).value = objuser.sAMAccountName
objExcel.Cells(intRow,4).value = easydate1
objExcel.Cells(intRow,5).value = easydate2

'*Problem area Start*
'objExcel.Cells(intRow,6).value = lastlogon dns server name
'populated disabled column
'*Problem area End*

if objuser.AccountDisabled = True Then
objExcel.Cells(intRow,7).value = "DISABLED"
Else
objExcel.Cells(intRow,7).value = "ACTIVE"
End if
intRow = intRow + 1

'sort by login Date
Dim obrange, obrange2
Set obrange = objExcel.Range("A:K")
Set obrange2 = objExcel.Range("A2")
obrange.Sort obrange2,1,,,,,,1

' Clean up.
objConnection.Close
Set objRootDSE = Nothing
Set objConnection = Nothing
Set objCommand = Nothing
Set objRecordSet = Nothing
Set objDC = Nothing
Set objDate = Nothing
Set objList = Nothing
Set objShell = Nothing
Set obrange = Nothing
Set obrange2 = Nothing
Set objExcel = Nothing
WScript.Quit

Johnny

reset local admin password on windows server 2008

Tue, 24 Nov 2009 15:21:10 Z

Hello,

there is a script that i can use with gpo on windows server 2008 that actually reset /remove the local admin built in password for all clients/users?

Thanks

Permission denied copying file to Progam Files folder

Mon, 23 Nov 2009 15:05:31 Z

We use SAP in our business which is installed in the Program Files (or Program Files (x86) if using 64bit OS) folder, and have a .ini file in the SAPGui folder located within Program Files which lists all connections available when the user starts the program.
This is updated from time-to-time, and is copied across from a central network location as part of the login script. We've had no issues with Windows XP at all, however, now we're testing Windows 7, I'm finding I'm getting a Permission Denied error when it's trying to copy the file locally (thanks to UAC, I guess)
I *thought* there was some "virtual" folder that was referenced for just such occassions - where a seperate folder was created outside of Program Files but with the same structure... is this not the case?
Is there any workaround for me?

Thanks
Craig

WMI Asynchronously in ASP.NET

Wed, 18 Nov 2009 04:07:31 Z

Hi,

I am developing ASp.net app using WMI. I have one button and textbox in web form.
When user click button, I want to execute below program code under button click
protected void Button1_Click(object sender, EventArgs e)

{ }

I WANT TO EXECUTE BELOW CODE WHEN BUTTON CLICK OCCUR, How can I do it?

using System;
using System.Management;
using System.Windows.Forms;

namespace WMISample
{
    public class WMIReceiveEvent
    {
        public WMIReceiveEvent()
        {
            try
            {
                WqlEventQuery query = new WqlEventQuery(
                    "SELECT * FROM Win32_ProcessStartTrace WHERE ProcessName = 'notepad.exe'");

ManagementEventWatcher watcher = new ManagementEventWatcher(query);
Console.WriteLine("Waiting for an event...");

                watcher.EventArrived +=
                    new EventArrivedEventHandler(
                    HandleEvent);

// Start listening for events
watcher.Start();

// Do something while waiting for events
System.Threading.Thread.Sleep(10000);

                // Stop listening for events
                watcher.Stop();
                return;
            }
            catch(ManagementException err)
            {
                MessageBox.Show("An error occurred while trying to receive an event: " + err.Message);
            }
        }

        private void HandleEvent(object sender,
            EventArrivedEventArgs e)
        {
            Console.WriteLine("Win32_ProcessStartTrace event occurred.");
        }

        public static void Main()
        {
            WMIReceiveEvent receiveEvent = new WMIReceiveEvent();
            return;
        }

}
}

Automate in task scheduler to runa c# script , whena new file is created in the folder ?

Thu, 12 Nov 2009 06:58:25 Z

I do have a C# script which i need to run automatically whenever a file is created in the folder.
I searched in task scheduler for the above , i did not find any visible solution . Can anyone help me with this ???? Any help is appreciated.

Is there any other way , can anybody guide with this ?

Thanks

Powershell directory splitter

Tue, 24 Nov 2009 12:48:10 Z

Hi,
Our call center makes recordings which are converted to mp3 files and put into a directory with a name of month like this... 2009-01-30. When I get time, I archive them to dvd/dvd-dl .
This time of year, the folders can get quite large and it's a pain to divide them up to fit on dvds.
I made a little diddy to split the folders but I'm looking to see if someone has a better way of doing this or improving the code.

# Copy files into DVD or DVD-DL size folders
# With flex room for larger files

Function CopyFiles{

# Get source path for the copy operation.
param ($SourceFolder = $(Read-Host "Please Enter The Source Path"))

$intFiles = 53000
# intFiles = 29000

If (!(Test-Path -path "$SourceFolder")) {
   Exit
}

$Num = 1
$Counter = 0
$TargetFolder = $SourceFolder + "-" + $Num
    New-Item "$TargetFolder" -Type Directory

Foreach ($File in (gci $SourceFolder -Recurse)){
    If ($Counter -eq $intFiles){
      $Num = $Num + 1
      $Counter = 0
      $TargetFolder = $SourceFolder + "-" + $Num
      New-Item "$TargetFolder" -Type Directory
    }
    Copy-Item $SourceFolder\$File $TargetFolder
    $Counter = $Counter + 1

}
}
CopyFiles

thanks,
rc

How to export a DictionaryBase Propertycollection object to csv using PowerShell.

Sat, 21 Nov 2009 14:08:47 Z

Hi,

I am trying to export an Active Directory user's details into a csv file.
Got as far as having the user's details in a System.Collections.DictionaryBase ResultPropertyCollection object.

I would like to export this to a csv so thet the Keys are the header and the Values are the values.

More generally, I want to export a collection/hashtable so that the keys/index are the header and the values are the values.

Struggling to achieve this.

PowerShell v1 will crash on raising event

Tue, 24 Nov 2009 08:38:36 Z

Hi guys and gals,

I ve encountered a problem with Powershell v1 and am interested if any of you can induce it.

[code]

function

watch {

$dir = $args[0]

if ($dir -eq $null){$dir=$((gi .).Fullname)}

if ($dir -eq "."){$dir=$((gi .).Fullname)}

if ([system.io.directory]::exists($dir)) { 　

$fsw = new-object System.IO.FileSystemWatcher $dir

$fsw.IncludeSubDirectories = $false

#$fsw.SynchronizingObject =

$fsw.add_Changed({Write-Host -f Red "$((get-date).ToShortTimeString()) : $($_.FullPath)$($_.ChangeType)"})

$fsw.EnableRaisingEvents = $true;

while($true){

if ($host.ui.rawui.KeyAvailable){

If (($host.ui.rawui.ReadKey()).VirtualKeyCode -eq "88") { # ctrl + x

write-host "Stopping watcher...";

$fsw.EnableRaisingEvents = $False;

break;

}}}}

else {"Directory $dir does not exist"} }

[/code]

This snippet is supposed to monitor changes is a selected folder. I ve found it some place (

do not remember where but thanks to the one who made it) Problem is that the PS will crash on raising an event. I can easily induce it on XP and Vista. Just start the script, say that you will watch the c:\something folder and create a text file in it, containing few symbols.

What I ve tried:

uninstalled the community ext pack PSCX-1.2

install the PSeventing from codeplex (PSEventing 1.1) and use it uninstall the community pack (PSCX-1.2)

Does not matter what I try every time I call $fsw.add_Changed or $fsw.add_Created, the PS will crash.

Could you please try it and let me know it if works for you ?

Thanks

Momchil Bojinov

How to Find local Admin Users for Entire Domain ...( Windows 2003 R2 )

Mon, 23 Nov 2009 08:54:48 Z

Hello Friends,

We have found some of the domain users are having local admin rights on their PCs.

We need to find out the users those who are member of Administrator Account & remove them from Domain.

Is there any tool / Script to find out...???

Our Domain is Windows 2003 Enterprize R2.

Kindly help me ..Thanks in Advanced.

Regards, Amjad

WMI Query Returns Incorrect TimeGenerated Value

Thu, 19 Nov 2009 21:35:53 Z

In March, I wrote "The TimeGenerated value returned by a VBScript using the query, SELECT * FROM Win32_NTLogEvent, with a date filter began returning the wrong date after the DST change this past weekend. It is now one hour behind. The script queries the event logs on our production SQL Servers from a central monitoring server. As a result, I had to employ a work-around to have my script work correctly. Has anyone in your group encountered this issue and, if so, how do you fix it? "

Ed Wilson wrote back that it was a bug and there would be a fix released. In October, Ed pointed me to KB 970413 as the fix.

We applied the hotfix to all of the database servers that I monitor using a centralized WMI query utility. Unfortunately, the patch does not seem to have resolved the issue. We are seeing the same behavior that we saw in the spring. For example, there is an error entry in the Event Log on one server this morning from 5:43 AM. The WMI query that was run on our monitoring server returned 6:43 AM. Since our utility uses the last poll date/time in the filter for the query, the result of this is that the entry is returned every time the utility is run until an hour has passed (from 5:43 to 6:44). Do you know if there have been other reports of this patch not resolving the issue? Thanks.

Chuck Hottle

Tillamook County Creamery Association

6855 SW Baylor Street

Tigard, OR 97223

503-619-4242 phone

Add or Move Excel sheet with PowerShell

Mon, 23 Nov 2009 03:54:34 Z

I've had good success with working with Excel and PowerShell except I fail to find how to add or move a sheet to the last position. It appears to me that the Add and Move methods accept similar arguments so I'm just going to focus on attempting to get it to work with the optional After argument. Here is what I have.

#get my sheets
$Sheets = $WorkBook.WorkSheets
#find the index of the last one
$SheetCount = $Sheets.Count
#create an object reference to the last sheet
$LastSheet = $WorkBook.Sheets | WHERE {$_.Index -eq $SheetCount}
#attempt to create the new sheet after the last one
$NewSheet = $Sheets.Add($LastSheet After)

It does not work. Do any of you know how to create a sheet in the last position with PowerShell?

Joe Moyle

Wireless Configuration Script

Wed, 18 Nov 2009 21:03:37 Z

I have been tasked with creating a report that lists the computers in our SCCM 2007 system that currently have wireless SSID's configured and what security they are configured to use (none, WEP, WPA, etc.). I don't see that as a default report in SCCM, so I was thinking of creating some kind of script that I would deploy to the machines that would write this information to a text file that I could then gather in some way.

Is there any kind of WMI (or other) script that will list all configured SSIDs and what type of security they're configured to use?

I was looking at this tool: http://www.symantec.com/connect/articles/how-capture-and-deploy-wlan-profiles

... which in 3 seperate commands will find the GUID of the WLAN card, find the SSIDs and find the type of encrypton, keys, etc., but each successive command uses output from the one before it, so I'm not sure how to script it.

Thanks

VBScript routine to move / hide an IE window on the desktop

Thu, 23 Jul 2009 13:46:12 Z

I have a pop up box that I do not want a user to fill in. I would like to move this window off the desktop, then I will proxy in credentials using VBScript. If I could hide this window - but still be able to access it using VBScript - that would be perfect. Any help would be appreciated.

Thanks!

Leo

Using CSVDE export/import a global security grouping

Thu, 19 Nov 2009 21:04:52 Z

Hi, new to AD first time using CSVDE,
2008 domain

In the domain, created a global security group of 128 users to be applied to some app based policys.
need to export the group to a csv file, to transfer to a test domain which mirrors live, which i think i can export with
CSVDE -d "cn=g-sec-appgrouping,OU=dept,OU=london,DC=blah,dc=com" -f appgroup.csv
Test system is a direct mirror of live.
I now need to import it in to live
Question would the global security be a CN class or an OU class
and would the Import string look like this
CSVDE -i "cn=g-sec-appgrouping,OU=dept,OU=london,DC=blah,dc=com" -f appgroup.csv
Trying to do this in theory at home, to get my head round it,before i get to work to try it out tomorrow.
any advice gratefully welcomed

Password expiration e-mail

Tue, 21 Apr 2009 08:34:47 Z

Hello,

i would like my users to be notified bij e-mail (exchange 2007) when there password is about to expire. Does someone have a script i can use for that ?

thanks Dave

Wondows 7 System image backup automation

Mon, 23 Nov 2009 07:28:44 Z

Is it possible to automate windows system image backup remotely (i mean through Group policy or scripts).? if yes please give some solutions

We have so many client machines in our office ..we need to take atleast one copy of all machines system image very efficently

Thanks
Renjith

Win32_share and Print Queue creation

Mon, 23 Nov 2009 05:33:14 Z

Does anyone have a sample of a script using win32_share to create Print Queues? I have in the process of rewriting all of the script that manage my print enviroment from vbscript to power shell. Currently I and calling the dll method to create the queue and I want to try new method that will have actual return code that can be evaluated.

Query Network Interface Counters

Wed, 18 Nov 2009 15:01:11 Z

Hi All,

i want to query network interface counters for checking network speed ( bytes out and bytes in ) , i am familiar in writing it down in c++ but i need a script to attach it to our custom app. Please provide me a sample script which can query network interface counters ( one defined in perfmon counters )

If you any one has a sample script using please do help me

Microsoft Management console tips

Sun, 22 Nov 2009 19:45:57 Z

Hi guys,
Im trying to create a simple taskpad view in MMC to ping (eg ping www.google.com)
Now i select shell command and select the command from C:\windows\system32\ping.exe
Now my question is how to add the variable like www.google.com or www.orkut.com to this command. When i click on the parameter arrow,it shows :Target Node Name $name<0>, target node parent name $name<1> and name $col<0>
Im unable to understand what is $col<0>,$name<0> and <1>
Can anyone please clear me out on this.Can we pass variables using Taskpad shell commands?
Also if you can suggest any books for mmc that will be highly appreciated

Newbie : Syntax Problem in Powershell

Fri, 20 Nov 2009 20:58:16 Z

# setting the folder location
$loc = 'e:\dsain\dc prd'

# i want to use dos command from power shell to list the contents of above dir

# i am using following command

invoke-expression "cd $loc : dir"

i get an error
Set-Location : A parameter cannot be found that matches parameter name 'prd'.
At line:1 char:3
+ cd <<<< e:\saurabh\eain preid dir

--it works fine if there is no space in folder name i.e
if
$loc = 'e:\dsain\dcprd'

student

How to invoke Outlook 2007 macro from Powershell?

Sat, 21 Nov 2009 23:52:18 Z

How to invoke an existing Outlook 2007 macro from Powershell?

Convert Date/Time to LastLogon or LastLogonTimeStamp for AD

Wed, 18 Nov 2009 15:51:16 Z

Instead of converting from LastlogonTimeStamp to datetime I would like to go the other way converting from a datetime format to LastLogon or LastLogonTimeStamp format.

Thanks,

Raffi

How do I implement the VBScript MailEnable method in Powershell?

Fri, 20 Nov 2009 15:55:10 Z

Hi

I have the following VBScript code which creates a distribution group and mail enables it into an Exchange 2003 distribution list:

strGroupName = "testgroup"
Set objOU = GetObject("LDAP://OU=MyOU,DC=mydomain,DC=com")
' create group
Const ADS_GROUP_TYPE_GLOBAL_GROUP = &H2
Set oGroup = objOU.Create("Group", "cn=" & strGroupName)
oGroup.Put "groupType", ADS_GROUP_TYPE_GLOBAL_GROUP
oGroup.MailEnable
oGroup.SetInfo

The code is run from a Windows 2003 Domain Controller without any Exchange tools/utilities installed and this works.

I now want to convert this to PowerShell so I have come up with the following:

Set-Variable -Name ADS_GROUP_TYPE_GLOBAL_GROUP -value 2 -option constant
$Type = $ADS_GROUP_TYPE_GLOBAL_GROUP
$GroupName = "testgroup"
$objOU = [ADSI]"LDAP://OU=MyOU,DC=mydomain,DC=com"
$objGroup = $objOU.Create("group", "CN=" + $GroupName)
$objGroup.put("grouptype", $Type)
$objGroup.MailEnable()
$objGroup.SetInfo()

The code successfully created the group, however the group was not Mail Enabled despite that there were no error messages.

Can someone tell me what I need to do to get the same functionality in PowerShell?

Thanks.

- Andre

Internet explorer 8 - search provider default message every time explorer 8 is opened

Sat, 21 Nov 2009 04:47:41 Z

I upgraded to internet explorer 8, every time I access explorer 8, now, I receive a message that search provider default is set to live search. I removed all other search providers, I still get this message each time explorer 8 is accessed, I always have live search as my default but this error message still pops up, than redirects me to the search provider utility, every time. I even check the box requesting not to change or corrupt the search provider. Running windows XP.

Change desktop color using VBSCRIPT

Sat, 21 Nov 2009 10:02:30 Z

Hi,
has anyone a vbscript to change the desktop color for some users in an OU? And another color for specific users?
thanks!
Nathan

Using Powershell to delimit firewall ACLs

Sat, 21 Nov 2009 00:38:08 Z

I am a relative newbie to Powershell, but really love it. I am new enough where, when presented with a somewhat complex problem, I just frustratingly flail arround. I have a couple of projects where I can use knowledge gained from this thread, but the immediate one involves parsing out some Cisco firewall ACLs. Once I get them parsed, I can do anything with them...use ft to make them more digestible within PS, import directly into a DB or Excel.

But I cannot quite figure out how to get there. The way I have been trying to attack it is to think how I can get everything between, for example, spaces 3 and 5 in a string after a particular substring occurs. Might be barking up the wrong tree. Is there any way that I can delimit substrings with powershell? My application is to delimit Cisco ACL strings in order to further process them, export them, etc. Here are some example entries:

access-list inside_access_in extended permit tcp object-group SiteLocal-Network object-group Server-DataCenter-IntranetServers Object-group Sharepoint
access-list inside_access_in extended permit udp object-group SiteLocal-Network object-group Server-DataCenter-DomainControllers eq domain
access-list inside_access_in extended permit tcp object-group SiteLocal-MSSMSServer object-group Server-w2k3s-DataCenter-08 eq 445
access-list inside_access_in extended permit tcp object-group SiteLocal-DomainControllers object-group Server-DataCenter-SQL range 1024 65535
access-list SalesOffice_DataCenter_vpn extended permit ip 10.1.1.0 255.255.252.0 10.2.2.0 255.255.252.0
access-list inside_access_in extended deny ip any any
access-list outside_access_in remark Allow ping to work

Here is a format I would like and the way I have been trying to attack it:

ACL = everything prior to permit/deny/remark
Permit_Rem = permit/deny/remark (if value != "permit" or "deny," assume "remark" insert 4x "|" delimiters then process Eq field)
Prot = tcp/udp/ip
Source = everything 1-3 spaces from tcp/udp/ip
Dest = everything 3-5 spaces from tcp/udp/ip
Eq = everything from 5th space to end

Notes:
1) The above combines "Permit" and "Remark" fields into "Permit_Rem" field. Posisble values are Permit, Deny, and "Remark
2) Possible values for Prot (Protocol) are TCP, UDP, and IP
3) Source and Dest fields both can use "object group + name" OR "network + subnet" notation
4) Eq field can use remark text, "object group + name", " eq + name or port number", or " range + two port numbers" as value

Thanks very much for your help.