The Official Scripting Guys Forum! Forum

IAG (Whale Client Components)

Thu, 26 Nov 2009 05:38:34 Z

Hi,
Can any one tell me which whale component is responsiable for running the batch file in iag. I need to know which dll it is. The name of that component.

Clean up folders 2 days old

Wed, 25 Nov 2009 21:09:13 Z

I am trying to create a VB Script to clean up temp folders created by one of my internal websites. This is what I came up with from googling examples, but it does not work. I would like all folders > subfolders & files to be removed from "C:\Inetpub\AMM\amtemp\" which are less then "X" days old.

Dim oFSO
Dim sDirectoryPath
Dim oFolder
Dim oDelFolder
Dim oFileCollection
Dim oFile
Dim oFolderCollection

Set oFSO = CreateObject("Scripting.FileSystemObject")
sDirectoryPath = "C:\Inetpub\AMM\amtemp"
set oFolder = oFSO.GetFolder(sDirectoryPath)
set oFolderCollection = oFolder.SubFolders
set oFileCollection = oFolder.Files

For each oDelFolder in oFolderCollection
If DateDiff("D", oDelFolder.DateLastModified, Now) > 2 Then oDelFolder.Delete
Next

Thanks, Scott.

script: cannot empty recycling bin - all options corrupt the bin

Wed, 25 Nov 2009 15:41:40 Z

After further research these options may empty it upon the next reboot. I need it to make the bin appear empty without rebooting. I have commented out the code I have tried below. Each option appears to delete the recycling bin files but does not make the icon appear empty. newly deleted items after the script is ran do not appear in the bin, it remains to appear empty even if the files are in the bin. i have to use ccleaner to fix the bin afterwards. any ideas?

similar code in windows 7 works without issues: del c:\$Recycle.Bin\. /f /s /q /a

echo ******************************************

echo emptying c:\windows\prefetch

echo ******************************************

echo *** enter to continue *** CTRL+C to quit

rem pause

rd c:\windows\Prefetch /s /q

md C:\windows\Prefetch

cls

echo windows prefetch folder cleaned

rem pause

cls

rem echo ******************************************

rem echo emptying recycling bin

rem echo ******************************************

rem deltree /y c:\recycled

rem mkdir "c:\recycled"

rem echo *** enter to continue *** CTRL+C to quit

rem pause

rem for /f %q in ('dir /b /a:s C:\Recycler') do (rd /s C:\Recycler\%q)

rem RD c:\recycler /q /s

rem DEL /f /s /q C:\RECYCLER\*.*

rem rd c:\RECYCLER /s /q

rem del /f/s/q/a c:\RECYCLER\*.*

rem del /f/s/q/a c:\RECYCLER

rem del C:\RECYCLER\. /f /s /q /a

rem del /s /f /q c:\Recycled\*

rem del /s /f /q c:\Recycler\*

Create Windows 7 library in VBScript, PowerShell, CMD, other login script?

Wed, 25 Nov 2009 17:37:23 Z

We are just starting to look at rolling out Windows 7 desktops in AD environments. We would like to be able to create Windows 7 libraries using login scripts. Anyone have a way?

vb scripting for renaming a file with reuters date

Wed, 25 Nov 2009 15:51:11 Z

Hi,

I'm wondering if anyone can assit me with a renaming script. I need it to rename an existing file i.e 'test31122009.txt' to 'ABCDE.X31'. In this case x represents the month of november. So the charachter generated will be driven by the MM (in this case '11') part of the file name.
I'm guessing some kind of lookup table will be required and the reuters months tables are as follows;

Jan - F
Feb - G
Mar - H
Apr - J
May - K
Jun - M
Jul - N
Aug - Q
Sep - U
Oct - V
Nov - X
Dec - Z

Any help greatly appreciated.

Tom

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-

Script to identify stale computer accounts in AD. Help Needed

Wed, 25 Nov 2009 16:20:36 Z

Ive tried many iterations of this script but not working. Any help much appreciated. Ive blanked out the DC details

'http://www.microsoft.com/technet/scriptcenter/guide/sas_srv_ifcf.mspx?mfr=true
'Resetting Computer Account Passwords

On Error Resume Next

Set objFS = CreateObject("Scripting.FileSystemObject")
Set objNewFile = objFS.CreateTextFile("TEST_Computers.csv")

Const ADS_SCOPE_SUBTREE = 2

Set objConnection = CreateObject("ADODB.Connection")
Set objCommand = CreateObject("ADODB.Command")
objConnection.Provider = "ADsDSOObject"
objConnection.Open "Active Directory Provider"
Set objCommand.ActiveConnection = objConnection

objCommand.Properties("Page Size") = 1000
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE

objCommand.CommandText = "SELECT ADsPath FROM 'LDAP://OU=Test_Computers -Clients,DC=X,DC=X,DC=com' WHERE " & "objectCategory='computer'"
Set objRecordSet = objCommand.Execute

objRecordSet.MoveFirst
Do Until objRecordSet.EOF
strPath = objRecordSet.Fields("ADsPath").Value
Set objComputer = GetObject(strPath)

objnewFile.Write objComputer.samaccountname
objNewFile.Write ","
objnewFile.Write objComputer.operatingsystem
objNewFile.Write ","
objnewFile.Write objComputer.operatingsystemServicePack
objNewFile.Write ","
objnewFile.Write objComputer.AccountDisabled
objNewFile.Write ","
objnewFile.Write objComputer.whencreated
objNewFile.Write ","
objnewFile.Write objComputer.LastLogon
objNewFile.Write ","
objnewFile.Write objComputer.PasswordLastChanged
objNewFile.Write ","
objNewFile.Write DateDiff("d", objComputer.passwordlastchanged, Date)
objNewFile.Write ","
objNewFile.Write objComputer.DistinguishedName
objNewFile.WriteLine

objRecordSet.MoveNext
Loop

'wscript.echo "Parasing completed ... !!"

'http://technet.microsoft.com/en-us/magazine/cc161038.aspx

Help me in modifying this Script Please. Urgent.

Wed, 25 Nov 2009 15:35:21 Z

Hello there,

heare is my script. it will check the services are running or not and if its stopped it will start it. if there is an error while starting it will say as error while stopping.

But am unable to get exact o/p as am looking, some looping is missing..

in this code i used an strStopped string.

when i calling the sendmail function, i need the value in strStopped as follows.

suppose say service 1 and service 2 are stopped, then while starting service 1 started successfully but service 2 is error.

service1     started successfully
service2     Error while starting

But when i ran this script its overlapping . meanse it is like o/p is not coming properly.. some time it will come as

service 1    started successfully

service2 started successfully

even though the service 1 is error while starting..

Please help me..

Option Explicit
Dim strComputer, objWMIService, colServices, objService, strService
Dim objFSO, strFile, objFile,strStopped,strStopped1,strTmp

Const ForReading = 1

' Specify text file with service names.
strFile = "C:\Services.txt"

' Open the text file for reading.
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile(strFile, ForReading)

' Specify the computer.
strComputer = "."

' Connect to the computer with WMI.
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate,authenticationLevel=Pkt}!\\" _
    & strComputer & "\root\cimv2")

strStopped = ""
Do Until objFile.AtEndOfStream
    strService = Trim(objFile.ReadLine)
    ' Skip blank lines.
    If (strService <> "") Then
        ' Retrieve information on the service.
        Set colServices = objWMIService.ExecQuery _
            ("SELECT * FROM Win32_Service WHERE Name = '" & strService & "'")
        For Each objService In colServices
            If (objService.State = "Stopped") Then
                ' If you want to attempt to start the service, uncomment the next line.
                  dim tmp
                  tmp = 0
                  tmp = objService.StartService()
                ' Flag service as stopped.
                If (strStopped = "") Then
                   if (tmp > 0) then
                    'strStopped = strService & "		" & "Error while starting the Service"
                    strTmp = "Error while Starting the Service"
                   else
                    strTmp = "Started Successfully"
                   end if 
                   strStopped = strService  & "		" & strTmp
                Else
                    strStopped = strStopped  & vbCrLf & strService &"	 " & strTmp
                End If
            End If
			
        Next
    End If
Loop

' Clean up.
objFile.Close


If (strStopped <> "") Then
    'Call SendEmailMessage(strComputer, strStopped)

    Wscript.Echo  strStopped
    'Call SendEmailMessage(strComputer, strStopped)	
End If

Sub SendEmailMessage(ByVal strComputer, ByVal strStopped)
    ' Send email message.
    ' Sender and To email addresses are hard coded.
    Dim objMessage

    Set objMessage = CreateObject("CDO.Message")
    objMessage.Subject = "TMEA Services stopped on the Server  " & strComputer
    objMessage.Sender = "suresh.babu.ps@hds.com"
    objMessage.To = "suresh.babu.ps@hds.com"

objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

'Name or IP of Remote SMTP Server
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.hds.com"

'Server port (typically 25)
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

objMessage.Fields.Item("urn:schemas:mailheader:importance").Value = "High"
objMessage.Fields.Update()

objMessage.Configuration.Fields.Update


objMessage.TextBody = "Hello Team," & vbCrLf &"The Following services " & strStopped  & vbCrLf  & " are stopped on computer " & vbCrLf  & strComputer & vbCrLf 

objMessage.Send

   
End Sub

like this..

Madhu Adavi

VBS problem with spaces using fso.OpenTextFile(str).ReadAll

Wed, 25 Nov 2009 15:11:46 Z

I have an hta written in VBS that uses .OpenTextFile(strDirectory).ReadAll as an "include" statement to make functions in a vbs file locally accessible to the hta code.
There are 3 points to my problem that seem significant:
1. On 'my system' (the LAN I work in and developed the code on) has no problems and runs fine under all circumstances

2. On 'the other' system in my company (I don't really understand what differences there are between the systems, but I have to sign into a security portal to gain access to the other drives and/or virtual terminals that run on the other system) the .OpenTextFile(strDirectory).ReadAll statements fail with "path not found" if there are spaces in the path. It fails with 'bad file name or number' when I try to put quotes around it.

3. I'm "almost" sure it's a 'spaces' issue because I can run it on the old system if I take the space out of the parent folder name and run as an hta. However I want to make it an .exe which makes it run from a local temp file which will have spaces in it.

Here's the relevant code:

intpos=InStrRev(document.location.pathname,"\")
strCurrentDirectory=""
   If intpos>0 Then
     strcurrentDirectory = Left(document.location.pathname,intpos)
     strCurrentDirectory = strCurrentDirectory
   End If

strDirectory = strCurrentDirectory & "GetProjectFolders.vbs"
strDirectory = Chr(34)& strDirectory & Chr(34)

ExecuteGlobal CreateObject("Scripting.FileSystemObject").OpenTextFile(strDirectory).ReadAll

I've tried this with double quotes (Chr(34)) as well and it also gives me 'bad file name or number'.

I've searched hi and low on the web to find the proper way to quote out the spaces and just can't find a solution. How are these paths supposed to be quoted for spaces?

EnableBitlocker.vbs, issue since Vista SP2

Wed, 25 Nov 2009 14:15:49 Z

Hi there,

I'm looking for a little guidance with Starr Andersens script to enable BitLocker:
http://gallery.technet.microsoft.com/ScriptCenter/ja-jp/780d167f-2d57-4eb7-bd18-84c5293d93e3

We tested with the script successfully using Vista SP1 clients, but now we are trying to enable this in our live environment which has been patched to Vista SP2 (and soon to be Win7). We now seem to have hit the problem detailed in this KB article: http://support.microsoft.com/kb/2002136

Much of this script is way beyond my basic understanding of VBScript so implementing the recommended solution is proving tricky.

Many thanks,
Matt Tee

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

Powershell script to export mailboxes to a csv, and script to import as contacts.

Wed, 25 Nov 2009 10:48:56 Z

Hi,
We recently expanded our business, and open a new company, - they run completely separate from us, and have their own exchange 2007sp2, and what I would like is that we once or twice a year export mailboxes to a csv file, and then import the resulting csv into our exchange 2007 sp2 as contacts.
get-mailbox | select-object name, alias, PrimarySmtpAddress | Export-Csv C:\mailboxes.csv -NoTypeInformation

Unfortunate the above lacks information as Tiltle, company, department and lastly manager.

Also what command do i need to run to import the final script.
Can someone help me ?

Thanks

Network User Agreement on logon using script and a flag

Wed, 25 Nov 2009 12:31:30 Z

Hi everyone,
I'm working on a Network User Agreement for the company I work for.

A long time ago, I created a little web page that launched from a batch file and it created a cookie when the user clicked "Agree." It didn't prompt them after that until I ran a script to delete all the cookies for it, forcing the users to agree on next logon. If they did not agree, they would be logged off.

I am sure that there is some kind of function I can use with vbscript or batch script to present a neat little user agreement box with Agree or Disagree.

The desired functionality would be:
Agree - Continue the login script and launch the shell.
Disagree - Logoff user immediately and if possible lock out their account until they call IT for support and to discuss. Alternatively we could generate a simple email to the IT Manager advising that User:John.Doe does not accept the user agreement. We can do without this functionality but it would be great.

The users cannot be given the option to close the script or get around it.

Thanks in advance :)

Ian

Aussie Tech

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-

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

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.

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