File and folder auditing

TheMSsForum.com: The Microsoft Software Forum

The MSS Forum ‹ VBscripts
- Archive
  - Biz
  - MCSE
  - CRM
  - Drivers
  - Framework
  - ADO
  - ASP
  - Compact
  - Forms
  - Dotnet
  - C#
  - VB
  - FontpageGen
  - Excel
  - WorkSheet
  - Exchange
  - Setup
  - Fox
  - Fontpage
  - ASP
  - IIS
  - Entourage
  - Money
  - Messanger
  - PocketPC
  - Powerpoint
  - Project
  - Publisher
  - Excel
  - VB
  - Security
  - Portal
  - Services
  - SQLServerDev
  - SVCS
  - SQLServer
  - VB
  - VC
  - MFC
  - ExcelGen

- Previous
 - 1
 - Permission Denied Errors - FileSystemObject I'm using the FSO object to manage the contents of a list box on a Custom Outlook Form. On occasion, I've gotten the 'Permission Denied' error when trying to save the contents or otherwise work with the text (*.txt) file involved as in copy and delete. Any ideas as to why? More importantly have any of you encountered the error as well? Exiting Outlook and restarting corrects the problem. Tag: File and folder auditing Tag: 209690
 - 2
 - Copy multiple files with a recordset Ok, I know how to pull information from a database with a record set, but I was wondering if you could actually copy multiple files with it. I'm trying to go through a series of folders that search for a reference number, but the file ext can be different and the file isn't always jut the ref number. examples: 12345.zip 12345.ba1 12345.bad 12345pan.zip etc. folders include prod proto hold I have a script that will go through and find just the .zip files... I'll post it incase anyone sees a easier fix. This script is still in it's infant stages so I haven't gone through and added everything it needs to do. Thanks On Error Resume Next Set objExplorer = WScript.CreateObject _ ("InternetExplorer.Application", "IE_") Set objShell=CreateObject("WScript.Shell") Set objFSO = CreateObject("Scripting.FileSystemObject") Dim strZippedFile ' The full path/filename of the file to unzip strCommandLine = "pspecs " & strONum strView = "c:\view\" objExplorer.Navigate "file:///C:\Scripts\dropdown.htm" objExplorer.ToolBar = 0 objExplorer.StatusBar = 0 objExplorer.Width = 250 objExplorer.Height = 175 objExplorer.Visible = 1 Do While (objExplorer.Document.Body.All.OKClicked.Value = "") Wscript.Sleep 250 Loop strType = objExplorer.Document.Body.All.OKClicked.Value strONum = objExplorer.Document.Body.All.fldOrderNum.Value objExplorer.Quit Wscript.Sleep 250 If strType = "Cancelled" Then Wscript.Quit End If If strONum = NULL Then wscript.echo "Order number required" Wscript.Quit End If ' ===================================================================== ' Locates file and copies it over ' ===================================================================== objShell.Run strCommandLine, 1, true if strType = "Production" then Dim strCopy, StrK, StrO, strcamb, strHold, strProd strCopy = "c:\view\" & strONum & ".zip" strK = "k:\prod\" & strONum & ".zip" strO = "o:\prod\" & strONum & ".zip" strcamb = "s:\cambak\prod\" & strONum & ".zip" strHold = "k:\hold\prod\" & strONum & ".zip" strProd = "o:\prod\" & intProd(strONum) & "\" & strONum & ".zip" wscript.echo strProd if objFSO.FileExists(strK) Then wscript.echo "Found in the K" objFSO.CopyFile strK, strCopy, true elseif objFSO.FileExists(strO) then wscript.echo "Found in the O" objFSO.CopyFile strO, strCopy, true elseif objFSO.FileExists(strcamb) then wscript.echo "Found in the CAMBAK" objFSO.CopyFile strcamb, strCopy, true elseif objFSO.FileExists(strHold) then wscript.echo "Found in the Hold" objFSO.CopyFile strHold, strCopy, true elseif objFSO.FileExists(strProd) then wscript.echo "Found in the " & intProd(strONum) objFSO.CopyFile strProd, strCopy, true else wscript.echo "File not found" End if else strCopy = strview & "P" & strONum & ".rel" strproto = "S:\MODEM\REL\P" & strONum & ".rel" objFSO.CopyFile strProto, strCopy, true wscript.echo "File Copied" end if strComLine2 = "c:\scripts\wzunzip c:\view\" & strONum & ".* c:\view" objShell.Run strComLine2, 1, true ' ===================================================================== ' End ' ===================================================================== Function intProd(ByVal intChar) Select Case TRUE Case intChar > 0 and intChar <= 5000 intProd = "01k-5k" Case intChar > 5001 and intChar <= 10000 intProd = "05k-10k" Case intChar > 10001 and intChar <= 15000 intProd = "10k-15k" Case intChar > 15001 and intChar <= 20000 intProd = "15k-20k" Case intChar > 20001 and intChar <= 25000 intProd = "20K-25k" Case intChar > 25001 and intChar <= 30000 intProd = "25k-30k" Case intChar > 30001 and intChar <= 35000 intProd = "30k-35k" Case intChar > 35001 and intChar <= 40000 intProd = "35k-40k" Case intChar > 40001 and intChar <= 45000 intProd = "40k-45k" Case intChar > 45001 and intChar <= 50000 intProd = "45k-50k" Case intChar > 50001 and intChar <= 55000 intProd = "50k-55k" Case intChar > 55001 and intChar <= 60000 intProd = "55k-60k" Case intChar > 60001 and intChar <= 65000 intProd = "60k-65k" Case intChar > 65001 and intChar <= 70000 intProd = "65k-70k" Case intChar > 70001 and intChar <= 75000 intProd = "70k-75k" Case intChar > 75001 and intChar <= 80000 intProd = "75k-80k" Case intChar > 80001 and intChar <= 85000 intProd = "80k-85k" Case intChar > 85001 and intChar <= 90000 intProd = "85k-90k" Case intChar > 90001 and intChar <= 95000 intProd = "90k-95k" Case intChar > 95001 and intChar <= 100000 intProd = "95k-100k" Case Else intProd = "100K" End Select End Function Tag: File and folder auditing Tag: 209688
 - 3
 - REPOST INFO ONLY: Running a VBS elevated under Vista with UAC enabled Hi, this is an old message I posted in microsoft.public.scripting.wsh on March 2nd, 2007. I repost here because some people asked me about this problem. Hope you'll find it useful. By the way, now there's also a different solution from MS guys: http://www.microsoft.com/technet/technetmag/issues/2007/06/UtilitySpotlight/default.aspx Massimo. ------ ORIGINAL POST FOLLOWS -------- Hi. I think that your problem is due to the fact that you need elevated privilege to execute certain tasks. This is quite easy if you develop a program in Visual Studio .NET. In this way you can add a manifest to you project is order to have it running with elevated privileges (user just been asked to confirm elevation of privileges). Unfortunately Microsoft says this is theoretically impossible for VBS. Fortunately this is not completely true. I spent several days fighting with UAC, and it's a pleasure to share my findings with others. I was able to run VBS in elevated privilege mode with a couple of tricks: 1) If you right click an EXE file, you see "Run as Administrator", if you right click a VBS file not. SOLUTION: create a file named VBS.REG and copy the following on it: ------- copy below ------- Windows Registry Editor Version 5.00 [HKEY_CLASSES_ROOT\VBSFile\Shell\runas] [HKEY_CLASSES_ROOT\VBSFile\Shell\runas\command] @="C:\\Windows\\system32\\WScript.exe \"%1\" %*" "IsolatedCommand"="C:\\Windows\\system32\\WScript.exe \"%1\" %*" ------- copy end ------- Double click VBS.REG and apply to registry. Now you have "Run as Administrator" right clicking a VBS. 2) To avoid user having to right click the VBS each time, you can run it as administrator from an other VBS (that don't need to run as administrator). If you need to run C:\MYVBS.VBS as administrator, create a script RUNME.VBS like this: Set objShell = CreateObject("Shell.Application") Set objFolder = objShell.Namespace("C:\") Set objFolderItem = objFolder.ParseName("MYVBS.VBS") objFolderItem.InvokeVerb "runas" Now just doubleclick RUNME.VBS. It'll ask user to confirm elevation of privileges, and then run C:\MYVBS.VBS elevated. Massimo. Tag: File and folder auditing Tag: 209682
 - 4
 - how to call a web service without using soap toolkit Reading from Microsoft they say that the soap toolkit is no longer supported, and on top of that it seems to be very touchy and hard to troubleshoot. I want to find a new way of consuming a asp.net web service from vbs script. does any one know how to call a web service from vbs or call a .net dll from vbs Tag: File and folder auditing Tag: 209680
 - 5
 - code for silent installing software using VBscript Hi, I need to create script to install ( .netframework2.0,MDAC2.7,XML4.0, VC++2005,Windows installer services3.0,OWC10.0)with silent installation through VBscript. the script should be able to check the previous registry entry,which machine do not have the particular version, then installation will start from my script with software folder.The executable script and softwares will be located on same folder. i have developed script.but problem is not able to find silent installation via vbscript.i have command line switches and it is working fine using cmd prompt.(standalone machine).But using script does not support the same command line. i will send my script and command line details. Set objFSO = CreateObject("Scripting.FileSystemObject") Set objShell = CreateObject("Wscript.Shell") Set objNetWork = WScript.CreateObject("WScript.Network") strComputer = "." const HKEY_LOCAL_MACHINE = &H80000002 strComputer = "." Set objReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\"& strComputer & "\root\default:StdRegProv") Computername= objNetWork.computername strKeyPath = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\" objReg.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, arrSubKeys blnVcplus = false blnOWC = false blnDotnet = false 'blnXml = false For Each subkey In arrSubKeys Select case subKey 'For VC++ case "{A49F249F-0C91-497F-86DF-B2585E8E76B7}" blnVcplus = true 'For OWC case "{90260409-6000-11D3-8CFE-0050048383C9}" blnOWC = true 'For Dotnet case "{7131646D-CD3C-40F4-97B9-CD9E4E6262EF}" blnDotnet = true 'For Xml 'case "{716E0306-8318-4364-8B8F-0CC4E9376BAC}" 'blnXml = true end select next If blnVcplus = false Then RunInstaller("""C:\Documents and Settings\134520\Desktop\working\vc++""") End If If blnOwc = false Then RunInstaller("""C:\Documents and Settings\134520\Desktop\working\owc10. exe""") End If If blnDotnet = false Then RunInstaller("""C:\Documents and Settings\134520\Desktop\working\dotnet""") End If 'If blnDotXML = false Then 'RunInstaller("""C:\Documents and Settings\134520\Desktop\working\XML""") 'End If set arrSubKeys=nothing Function RunInstaller(installerPath) Dim fso, sh, r, s, pe,wshshell Set fso = CreateObject("Scripting.FileSystemObject") Set wshShell = WScript.CreateObject ("WSCript.shell") wshshell.run """C:\Documents and Settings\134520\Desktop\working\WindowsInstaller.exe""", 6, false wshshell.run installerPath, 6, false set wshshell = nothing End Function Command line switches for my pre-requisites. .net2.0 - dotnetfx.exe /q:a /c:"Install /q" vc++ "VCREDI~1.EXE" /q:a /c:"msiexec /i vcredist.msi /qb!" OWC10 owc10.exe /q:a /c:"msiexec /i owc10se.msi /qb!" xml4.0 msiexec /i msxml4.msi /qn kindly please provide your solution. thanks, N.senthil Tag: File and folder auditing Tag: 209679
 - 6
 - code for silent installing software using VBscript Hi, I need to create script to install ( .netframework2.0,MDAC2.7,XML4.0, VC++2005,Windows installer services3.0,OWC10.0)with silent installation through VBscript. the script should be able to check the previous registry entry,which machine do not have the particular version, then installation will start from my script with software folder.The executable script and softwares will be located on same folder. i have developed script.but problem is not able to find silent installation via vbscript.i have command line switches and it is working fine using cmd prompt.(standalone machine).But using script does not support the same command line. i will send my script and command line details. Set objFSO = CreateObject("Scripting.FileSystemObject") Set objShell = CreateObject("Wscript.Shell") Set objNetWork = WScript.CreateObject("WScript.Network") strComputer = "." const HKEY_LOCAL_MACHINE = &H80000002 strComputer = "." Set objReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\"& strComputer & "\root\default:StdRegProv") Computername= objNetWork.computername strKeyPath = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\" objReg.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, arrSubKeys blnVcplus = false blnOWC = false blnDotnet = false 'blnXml = false For Each subkey In arrSubKeys Select case subKey 'For VC++ case "{A49F249F-0C91-497F-86DF-B2585E8E76B7}" blnVcplus = true 'For OWC case "{90260409-6000-11D3-8CFE-0050048383C9}" blnOWC = true 'For Dotnet case "{7131646D-CD3C-40F4-97B9-CD9E4E6262EF}" blnDotnet = true 'For Xml 'case "{716E0306-8318-4364-8B8F-0CC4E9376BAC}" 'blnXml = true end select next If blnVcplus = false Then RunInstaller("""C:\Documents and Settings\134520\Desktop\working\vc++""") End If If blnOwc = false Then RunInstaller("""C:\Documents and Settings\134520\Desktop\working\owc10. exe""") End If If blnDotnet = false Then RunInstaller("""C:\Documents and Settings\134520\Desktop\working\dotnet""") End If 'If blnDotXML = false Then 'RunInstaller("""C:\Documents and Settings\134520\Desktop\working\XML""") 'End If set arrSubKeys=nothing Function RunInstaller(installerPath) Dim fso, sh, r, s, pe,wshshell Set fso = CreateObject("Scripting.FileSystemObject") Set wshShell = WScript.CreateObject ("WSCript.shell") wshshell.run """C:\Documents and Settings\134520\Desktop\working\WindowsInstaller.exe""", 6, false wshshell.run installerPath, 6, false set wshshell = nothing End Function Command line switches for my pre-requisites. .net2.0 - dotnetfx.exe /q:a /c:"Install /q" vc++ "VCREDI~1.EXE" /q:a /c:"msiexec /i vcredist.msi /qb!" OWC10 owc10.exe /q:a /c:"msiexec /i owc10se.msi /qb!" xml4.0 msiexec /i msxml4.msi /qn kindly please provide your solution. thanks, N.senthil Tag: File and folder auditing Tag: 209678
 - 7
 - NET SEND Hi, Does anyone know of a simple VB Script for using Net Send on a Windows XP network. I would like to be able to Net Send either a UserName, IPAddress or ComputerName via an Input Box. The message to send would always be the same "Please ring Gazza on ......... in regards your Computer problem" Regards, Gazza Tag: File and folder auditing Tag: 209675
 - 8
 - Failing to connec tto run script NTLMLogin resulted in hr = 0x8004 Please help :( I have no problem running the script from the local machine, but when I try to run it on a remote computer I get a listing of the eventlog types and nothign else. A look trhough the wmi logs found this error; NTLMLogin resulted in hr = 0x8004100e **************** Set objWMIService = GetObject("winmgmts:\\" & REMOTE_SERVER & "\root\cimv2") Set colLogFiles = objWMIService.ExecQuery _ ("Select * from Win32_NTEventLogFile where LogFileName='Security'") For Each objLogfile in colLogFiles errBackupLog = objLogFile.BackupEventLog("c:\scripts\Security.evt") If errBackupLog <> 0 Then Wscript.Echo "The Security event log could not be backed up." Else objLogFile.ClearEventLog() End If Next Tag: File and folder auditing Tag: 209667
 - 9
 - Script retuning error on remote machine I have the following script. I works fine for the local machine, but when I try to run it on a remote system, it is failing with; NTLMLogin resulted in hr = 0x8004100e I am completely lost, please help :( strComputer = "REMOTE_COMPUTER" Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate,(Backup)}!\\" & _ strComputer & "\root\cimv2") Set colLogFiles = objWMIService.ExecQuery _ ("Select * from Win32_NTEventLogFile where LogFileName='Application'") For Each objLogfile in colLogFiles errBackupLog = objLogFile.BackupEventLog("c:\scripts\application.evt") If errBackupLog <> 0 Then Wscript.Echo "The Application event log could not be backed up." Else objLogFile.ClearEventLog() End If Next Tag: File and folder auditing Tag: 209662
 - 10
 - Is it possible to have my CD-Rom load via a script. (Close the CD Tray) I have the following script, that is awesome thanks to this group: **************************************************************************** Const FOF_CREATEPROGRESSDLG = &H0& Set objShell = CreateObject("Shell.Application") Set objFolder = objShell.NameSpace("I:\") objFolder.CopyHere "K:\*.*", FOF_CREATEPROGRESSDLG CreateObject("Shell.Application").Namespace(17).ParseName("K: \").InvokeVerb("E&ject") **************************************************************************** The only thing I would like it to do in addition is to load the CD I place in the tray, so I don't have to push the tray or button on the CD drive itself, is this possible via a script? Any ideas. Tag: File and folder auditing Tag: 209629
 - 11
 - How can i read a XML This is a multi-part message in MIME format. ------=_NextPart_000_000A_01C7EA67.3955E4D0 Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable Hello everyone, Can anybody help me with a script, that read XML , i want read the NAME = en Value from this xml. This is a example - <Policies CustomOnly=3D"0"> - <Policy SoftwareID=3D"EPOAGENT3000"> <Setting Section=3D"VersionControl" Name=3D"Version" Value=3D"Tue, 28 = Aug 2007 14:19:34 UTC" />=20 <Setting Section=3D"UpdateOptions" Name=3D"bAllowDATDowngrade" = Value=3D"0" />=20 <Setting Section=3D"UpdateOptions" Name=3D"szLogFileName" Value=3D"" = />=20 <Setting Section=3D"UpdateOptions" Name=3D"szRunAfterUpdateEXE" = Value=3D"" />=20 <Setting Section=3D"UpdateOptions" Name=3D"bRunIfUpdateSuccess" = Value=3D"1" />=20 <Setting Section=3D"SiteList" Name=3D"uiNumberOfSites" Value=3D"0" />=20 Thanks Rob ------=_NextPart_000_000A_01C7EA67.3955E4D0 Content-Type: text/html; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <HTML><HEAD> <META http-equiv=3DContent-Type content=3D"text/html; = charset=3Diso-8859-1"> <META content=3D"MSHTML 6.00.2900.3059" name=3DGENERATOR> <STYLE></STYLE> </HEAD> <BODY> <DIV>Hello everyone,</DIV> <DIV> </DIV> <DIV>Can anybody help me with a script, that = read XML ,=20 i want read the NAME en Value from this xml.</DIV> <DIV> </DIV> <DIV> </DIV> <DIV>This is a example</DIV> <DIV> </DIV> <DIV> <DIV class=3Dc style=3D"MARGIN-LEFT: 1em; TEXT-INDENT: -2em"><A = class=3Db onfocus=3Dh()=20 onclick=3D"return false"=20 href=3D"file:///I:/Policiechecker/cgingiepoagent.xml#"><FONT=20 face=3D"Courier New" color=3D#ff0000>-</A> <FONT=20 color=3D#0000ff><<SPAN=20 class=3Dt>Policies CustomOnly<SPAN=20 class=3Dm>=3D"0<SPAN=20 class=3Dm>"></DIV> <DIV> <DIV class=3De> <DIV class=3Dc style=3D"MARGIN-LEFT: 1em; TEXT-INDENT: -2em"><A = class=3Db onfocus=3Dh()=20 onclick=3D"return false"=20 href=3D"file:///I:/Policiechecker/cgingiepoagent.xml#"><FONT=20 face=3D"Courier New" color=3D#ff0000>-</A> <FONT=20 color=3D#0000ff><<SPAN=20 class=3Dt>Policy SoftwareID<FONT=20 color=3D#0000ff>=3D"EPOAGENT3000<SPAN=20 class=3Dm>"></DIV> <DIV> <DIV class=3De> <DIV style=3D"MARGIN-LEFT: 1em; TEXT-INDENT: -2em"><FONT=20 face=3D"Courier New" color=3D#ff0000>  <<FONT=20 color=3D#990000>Setting <FONT=20 color=3D#990000>Section<FONT=20 color=3D#0000ff>=3D"VersionControl<FONT=20 color=3D#0000ff>"=20 Name<FONT=20 color=3D#0000ff>=3D"Version<FONT=20 color=3D#0000ff>"=20 Value=3D"Tue, 28=20 Aug 2007 14:19:34 UTC"<SPAN=20 class=3Dm> /> </DIV></DIV> <DIV class=3De> <DIV style=3D"MARGIN-LEFT: 1em; TEXT-INDENT: -2em"><FONT=20 face=3D"Courier New" color=3D#ff0000>  <<FONT=20 color=3D#990000>Setting <FONT=20 color=3D#990000>Section<FONT=20 color=3D#0000ff>=3D"UpdateOptions<FONT=20 color=3D#0000ff>"=20 Name<FONT=20 color=3D#0000ff>=3D"bAllowDATDowngrade<FONT=20 color=3D#0000ff>"=20 Value<FONT=20 color=3D#0000ff>=3D"0<SPAN=20 class=3Dm>" /> </DIV></DIV> <DIV class=3De> <DIV style=3D"MARGIN-LEFT: 1em; TEXT-INDENT: -2em"><FONT=20 face=3D"Courier New" color=3D#ff0000>  <<FONT=20 color=3D#990000>Setting <FONT=20 color=3D#990000>Section<FONT=20 color=3D#0000ff>=3D"UpdateOptions<FONT=20 color=3D#0000ff>"=20 Name<FONT=20 color=3D#0000ff>=3D"szLogFileName<FONT=20 color=3D#0000ff>"=20 Value=3D"<SPAN=20 class=3Dm>" /> </DIV></DIV> <DIV class=3De> <DIV style=3D"MARGIN-LEFT: 1em; TEXT-INDENT: -2em"><FONT=20 face=3D"Courier New" color=3D#ff0000>  <<FONT=20 color=3D#990000>Setting <FONT=20 color=3D#990000>Section<FONT=20 color=3D#0000ff>=3D"UpdateOptions<FONT=20 color=3D#0000ff>"=20 Name<FONT=20 color=3D#0000ff>=3D"szRunAfterUpdateEXE<FONT=20 color=3D#0000ff>"=20 Value=3D"<SPAN=20 class=3Dm>" /> </DIV></DIV> <DIV class=3De> <DIV style=3D"MARGIN-LEFT: 1em; TEXT-INDENT: -2em"><FONT=20 face=3D"Courier New" color=3D#ff0000>  <<FONT=20 color=3D#990000>Setting <FONT=20 color=3D#990000>Section<FONT=20 color=3D#0000ff>=3D"UpdateOptions<FONT=20 color=3D#0000ff>"=20 Name<FONT=20 color=3D#0000ff>=3D"bRunIfUpdateSuccess<FONT=20 color=3D#0000ff>"=20 Value=3D"1<FONT=20 color=3D#0000ff>" = />=20 </DIV></DIV> <DIV class=3De> <DIV style=3D"MARGIN-LEFT: 1em; TEXT-INDENT: -2em"><FONT=20 face=3D"Courier New" color=3D#ff0000>  <<FONT=20 color=3D#990000>Setting <FONT=20 color=3D#990000>Section<FONT=20 color=3D#0000ff>=3D"SiteList<FONT=20 color=3D#0000ff>"=20 Name<FONT=20 color=3D#0000ff>=3D"uiNumberOfSites<FONT=20 color=3D#0000ff>"=20 Value<FONT=20 color=3D#0000ff>=3D"0<SPAN=20 class=3Dm>" /> </DIV> <DIV style=3D"MARGIN-LEFT: 1em; TEXT-INDENT: -2em"><FONT=20 color=3D#0000ff> </DIV> <DIV style=3D"MARGIN-LEFT: 1em; TEXT-INDENT: -2em"><FONT=20 color=3D#0000ff> </DIV> <DIV style=3D"MARGIN-LEFT: 1em; TEXT-INDENT: -2em"><FONT=20 color=3D#0000ff>Thanks</DIV> <DIV style=3D"MARGIN-LEFT: 1em; TEXT-INDENT: -2em"><FONT=20 color=3D#0000ff> </DIV> <DIV style=3D"MARGIN-LEFT: 1em; TEXT-INDENT: -2em"><FONT=20 color=3D#0000ff> </DIV> <DIV style=3D"MARGIN-LEFT: 1em; TEXT-INDENT: -2em"><FONT=20 color=3D#0000ff> </DIV> <DIV style=3D"MARGIN-LEFT: 1em; TEXT-INDENT: -2em"><FONT=20 color=3D#0000ff> </DIV> <DIV style=3D"MARGIN-LEFT: 1em; TEXT-INDENT: -2em"><FONT=20 color=3D#0000ff> </DIV> <DIV style=3D"MARGIN-LEFT: 1em; TEXT-INDENT: -2em">Rob=20 </DIV></DIV></DIV></DIV></DIV></DIV></BODY></HTML> ------=_NextPart_000_000A_01C7EA67.3955E4D0-- Tag: File and folder auditing Tag: 209628
 - 12
 - Vista "Junction Point" Issue Hey Scripting Guys ! I have an issue with a script I made for calculating â??documentsâ?? folder size. Itâ??s OK on XP but on all VISTA systems itâ??s not working. I get a â??permission deniedâ?? Here is my (simple) script. Set objFSO = CreateObject("Scripting.FileSystemObject") Set MyDspace = objFSO.GetFolder("C:\Users\My_Name\Documents") IntSpace1 = MyDspace.Size Wscript.echo IntSpace1 I get a â??permission deniedâ?? error when I launch it. I know why but I donâ??t how to solve itâ?¦ The error is related to â??My Picturesâ??, â??My Musicâ?? and â??My Videosâ?? junction points located in the â??Documentsâ?? folder. How can my script calculate â??documentsâ?? folder size skipping those 3 junction points ? Thanks for your reply ! Tag: File and folder auditing Tag: 209624
 - 13
 - Excel Worksheets I am trying to have a script loop through a list of servers in a text file and output information for each server in one Excel file on seperate worksheets for each server. I am having trouble finding the info on how to do this. Right now the script I have is reading from the text file and opening a new excel instance and new file for each server. Any help is appreciated. Thank you. Tag: File and folder auditing Tag: 209620
 - 14
 - FileSystemObject versus Application (in the world series of love)* Does anyone know of any good documentation that discusses the pros/cons of using the FileSystemObject ("Scripting.FileSystemObject") versus the Application object ("Shell.Application") when it comes to file operations. *U Got the Look - Prince Tag: File and folder auditing Tag: 209618
 - 15
 - troubleshoot a script I need to know how to troubleshoot a script. I have a script that maps drives based on group membership. It runs for everyone but 3 users. I don't get any messages - drives just don't map. How can I troubleshoot where it is failing. Also I need to mention I did not write the script but picked it up and have limited knowledge of scripting. Thanks Bret Tag: File and folder auditing Tag: 209609
 - 16
 - I want to see some kind of progress notification for this script. I pieced together this script, though I am not a scripter, so please go easy on me. I have a few hundred CDs that I'm putting to a hard- drive and this script works great to do it with a single click and eject when done copying. However I would like to see how far along the copying is (like if you do a normal copy of a file with mouse in Windows XP), is there anyway to enable this, or rather what's the easiest way to enable this. ***************************************************************************************************** Const OverwriteExisting = TRUE Set objFSO = CreateObject("Scripting.FileSystemObject") objFSO.CopyFile "K:\*.*" , "I:\" , OverwriteExisting CreateObject("Shell.Application").Namespace(17).ParseName("K: \").InvokeVerb("E&ject") ***************************************************************************************************** Tag: File and folder auditing Tag: 209607
 - 17
 - Using vbscript to format richtext generated email Below is a bit of code in our system that has a button assigned to it, once clicked this lil dude creates a richtext email in outlook and fills it in. What I would like to do, is use some html formatting (bold) for the field captions and add a weblink - Can anyone help a poor blokey in distress? Thanks :) sub SendEmail(strEmail) strSubject = "Support Call Update" strBody = "I.T. Department have updated your Support Call (Ref: " & document.form1.ID.value & ")%0A%0A" strBody = strBody & "Reported Issue:%0A" & document.form1.Problem.value & "%0A%0A" strBody = strBody & "Assigned:%0A" & document.form1.Assigned_To.value & "%0A%0A" strBody = strBody & "Status:%0A" & document.form1.Status.value & "%0A %0A" strBody = strBody & "Comment:%0A" & document.form1.Resolution.value & "%0A%0A" strEmail = "mailto:" & strEmail & "?subject=" & strSubject & "&body=" &strBody window.open strEmail end sub Tag: File and folder auditing Tag: 209603
 - 18
 - Rename mapped drive name.. Hi, In my logon script I have among other: wshnetwork.mapnetworkdrive "z:","\\gold\dl" This creates a mapped drive name at the workstations named 'dl on gold (Z:)' How can I in my vbs script rename the newly created 'dl on gold (Z:)' mapped drive name at the workstation to something more intuitive, like 'Downloads (Z:)' Thanks for tips on this Jake Tag: File and folder auditing Tag: 209600
 - 19
 - How to call .dll functions ? Hello Is there a way to call functions in a .dll from VBScript ? If not is there a component that will do it if I can describe a given function in a given dll. That is a component to whom I could tell that my function has one string argument and 2 integer arguments, and it could call it passing the arguments I describe. Thank you Adrian Constantin, Romania. Tag: File and folder auditing Tag: 209598
 - 20
 - How to delete a printer already disconnected... Hi, I already changed the names of the shared printers in the servers, and then using a vbs script wanted to remove the old connection and create the new one. The creation doesnt have any problem, but I cannot delete the old connection. Its status is 'Printer not found in the server, unabel to connect'. Set WshNetwork = CreateObject("WScript.Network") Set oPrinters = WshNetwork.EnumPrinterConnections WScript.Echo "Network printer mappings:" For i = 0 to oPrinters.Count - 1 Step 2 WScript.Echo "Port " & oPrinters.Item(i) & " = " & oPrinters.Item(i+1) ' Here I could remove the printer checking the name and using RemovePrinterConnection but the disconnected printer dont appear in this object. Next I cannot find the way to point to the list of disconnected printers... could you help me with that? Thanks in advance. Jose Tag: File and folder auditing Tag: 209594
 - 21
 - Copying Files Using Wildcards for the Extension Is it possible to use a statement such as [object].CopyFile "C:\templateInformation.*", "C:\(copy) templateInformation.*" where multiple file names exist with the name 'templateInformation' but with different file extension as in templateInformation.txt, templateInformation.flds, templateInformation.atch? I need to be able to create copies of multiple files with the same name, but differing extensions and have the copies exist in the same folder as the originals. Tag: File and folder auditing Tag: 209591
 - 22
 - objects in subpricedures hi all are objects and their methods available to all subprocedures in a script? if i bind/instantiate to an object in the main body of the script can i then use its methods within subprocs? i get errors if i try doing that ths\ Tag: File and folder auditing Tag: 209585
 - 23
 - Terminal Services profile Below is the part of my code UserfullDn = "cn=Spiderman,ou=ORGUnit,dc=domain,dc=com' Set objUser1 = GetObject("LDAP://"& UserfullDN) objUser1.TerminalServicesProfilePath = "%TSPROFILE%" objUser1.TerminalServicesHomeDirectory = "\\Share\UserHome\%username%" objUser1.TerminalServicesHomeDrive = "O:" objUser1.AllowLogon = 1 objUser1.setInfo Everything works like a charm, the properties get set on the users profile etc BUT The user's directory(\\Share\UserHome\spiderman) is not created on the home share, whereas when you manually put this entry on the user's profile using ad user and computers and hit apply/ok, the directory gets created with appropriate permissions. I even tried changing the following line objUser1.TerminalServicesHomeDirectory = "\\Share\UserHome\%username %" to objUser1.TerminalServicesHomeDirectory = "\\Share\UserHome\" & "Spiderman" What am i doing wrong or am I missing something?? Any help is highly apprciated. Thanks Gaurav Tag: File and folder auditing Tag: 209584
 - 24
 - DOS command in VB script I am trying to run DOS command net user administrator newpassword in a vb script. Is this possible? Or is it possible to run a bat script from vb script that would do the same thing? OS is Windows XP SP2. Thanks! Tag: File and folder auditing Tag: 209578
 - 25
 - need to convert samAccountName to displayName Hey everyone, I'm looking for a script that will pull the current logged on user info from a machine and then check it against AD to pull the Display Name of the user. Any ideas? Thanks! Tag: File and folder auditing Tag: 209574
- Next
 - 1
 - Groups in AD Hello All! A short question, I would like to know all the groups in my AD User and Computer console, and the members in the groups, which OU the group belongs to , has access to which folders. How to achieve that in VBScript. Thanks a lot and have a nice day! Sincerely, Ben Tag: File and folder auditing Tag: 209571
 - 2
 - help with double quotes please We "borrowed" code from someone to deliver shortcut icons to the desktop. We are trying to have users go to the root of the drive, but cannot do it successfully. We are trying to do the following appear in the shortcut "C:\windows\explorer.exe" /root, \\servername\share This is supposed to appear in the target set objShell = WScript.CreateObject("WScript.Shell") strDesktop = objShell.SpecialFolders("Desktop") set oShellLink = objShell.CreateShortcut(strDesktop & "\Netapps.lnk") oShellLink.TargetPath = &chr(34)& "C:\windows\explorer.exe" /Root, \ \servername\share &chr(34)& oShellLink.WindowStyle = 1 oShellLink.IconLocation = "explorer.exe, 1" oShellLink.Description = "Network Applications" oShellLink.Save Set objShell = Nothing Set oShellLink = Nothing Any help would be appreciated. Thanks. Tag: File and folder auditing Tag: 209570
 - 3
 - ogin script to disconnect all curent drives then map new drives Hi folks. This is the current log in script that I'm using fro my infrsastructure. It is supposed to map drives based upon location as well as disconnect and remap drives every boot. The reason for the disconnect and remap is that I have several people that go out on audits ( outside the company ) and need to map specific drives to the local resources of what ever location they are at. As soon as they get back into the office this script is supposed to disconnect whatever they have mapped and then remap the drives based on what branch office they are at. Problem is its not disconnecting the manually mapped drives. Heres the script, please let me know what I'm doing wrong. Thanks Mik ---------------------------------------------------------------------------------------- Option Explicit Dim objNetwork, objShell, objEnv, strServer Set objNetwork = CreateObject("Wscript.Network") Set objShell = CreateObject("Wscript.Shell") Set objEnv = objShell.Environment("process") strServer = objEnv("LOGONSERVER") Select Case LCase(strServer) Case "\\server1" On Error Resume Next objNetwork.MapNetworkDrive "J:", "\\server1\netapps" objNetwork.MapNetworkDrive "K:", "\\server1\home" objNetwork.MapNetworkDrive "L:", "\\server1\tax" objNetwork.MapNetworkDrive "t:", "\\server1\WMSShare" If (Err.Number <> 0) Then On Error GoTo 0 objNetwork.RemoveNetworkDrive "j:", True, True objNetwork.RemoveNetworkDrive "k:", True, True objNetwork.RemoveNetworkDrive "l:", True, True objNetwork.RemoveNetworkDrive "t:", True, True objNetwork.MapNetworkDrive "j:", "\\server1\netapps" objNetwork.MapNetworkDrive "K:", "\\server1\home" objNetwork.MapNetworkDrive "L:", "\\server1\tax" objNetwork.MapNetworkDrive "t:", "\\server1\WMSShare" End If On Error GoTo 0 Case "\\server2" On Error Resume Next objNetwork.MapNetworkDrive "J:", "\\server2\netapps" objNetwork.MapNetworkDrive "K:", "\\server2\home" objNetwork.MapNetworkDrive "L:", "\\server2\tax" objNetwork.MapNetworkDrive "t:", "\\server1\WMSShare" If (Err.Number <> 0) Then On Error GoTo 0 objNetwork.RemoveNetworkDrive "j:", True, True objNetwork.RemoveNetworkDrive "k:", True, True objNetwork.RemoveNetworkDrive "l:", True, True objNetwork.RemoveNetworkDrive "t:", True, True objNetwork.MapNetworkDrive "j:", "\\server2\netapps" objNetwork.MapNetworkDrive "K:", "\\server2\home" objNetwork.MapNetworkDrive "L:", "\\server2\tax" objNetwork.MapNetworkDrive "t:", "\\server1\WMSShare" End If On Error GoTo 0 Case "\\server3" On Error Resume Next objNetwork.MapNetworkDrive "J:", "\\server3\netapps" objNetwork.MapNetworkDrive "K:", "\\server3\home" objNetwork.MapNetworkDrive "L:", "\\server3\tax" objNetwork.MapNetworkDrive "t:", "\\server1\WMSShare" If (Err.Number <> 0) Then On Error GoTo 0 objNetwork.RemoveNetworkDrive "j:", True, True objNetwork.RemoveNetworkDrive "k:", True, True objNetwork.RemoveNetworkDrive "l:", True, True objNetwork.RemoveNetworkDrive "t:", True, True objNetwork.MapNetworkDrive "j:", "\\server3\netapps" objNetwork.MapNetworkDrive "K:", "\\server3\home" objNetwork.MapNetworkDrive "L:", "\\server3\tax" objNetwork.MapNetworkDrive "t:", "\\server1\WMSShare" End If On Error GoTo 0 Case "\\server4" On Error Resume Next objNetwork.MapNetworkDrive "g:", "\\server4\netapps" objNetwork.MapNetworkDrive "J:", "\\server4\netapps" objNetwork.MapNetworkDrive "K:", "\\server4\home" objNetwork.MapNetworkDrive "L:", "\\server4\tax" objNetwork.MapNetworkDrive "t:", "\\server1\WMSShare" If (Err.Number <> 0) Then On Error GoTo 0 objNetwork.RemoveNetworkDrive "g:", True, True objNetwork.RemoveNetworkDrive "j:", True, True objNetwork.RemoveNetworkDrive "k:", True, True objNetwork.RemoveNetworkDrive "l:", True, True objNetwork.RemoveNetworkDrive "t:", True, True objNetwork.MapNetworkDrive "g:", "\\server4\netapps" objNetwork.MapNetworkDrive "j:", "\\server4\netapps" objNetwork.MapNetworkDrive "K:", "\\server4\home" objNetwork.MapNetworkDrive "L:", "\\server4\tax" objNetwork.MapNetworkDrive "t:", "\\server1\WMSShare" End If On Error GoTo 0 Case "\\server5" On Error Resume Next objNetwork.MapNetworkDrive "J:", "\\server5\netapps" objNetwork.MapNetworkDrive "K:", "\\server5\home" objNetwork.MapNetworkDrive "L:", "\\server5\tax" objNetwork.MapNetworkDrive "t:", "\\server1\WMSShare" If (Err.Number <> 0) Then On Error GoTo 0 objNetwork.RemoveNetworkDrive "j:", True, True objNetwork.RemoveNetworkDrive "k:", True, True objNetwork.RemoveNetworkDrive "l:", True, True objNetwork.RemoveNetworkDrive "t:", True, True objNetwork.MapNetworkDrive "j:", "\\server5\netapps" objNetwork.MapNetworkDrive "K:", "\\server5\home" objNetwork.MapNetworkDrive "L:", "\\server5\tax" objNetwork.MapNetworkDrive "t:", "\\server1\WMSShare" End If On Error GoTo 0 Case "\\server6" On Error Resume Next objNetwork.MapNetworkDrive "g:", "\\server6\netapps" objNetwork.MapNetworkDrive "J:", "\\server6\netapps" objNetwork.MapNetworkDrive "K:", "\\server6\home" objNetwork.MapNetworkDrive "L:", "\\server6\tax" objNetwork.MapNetworkDrive "t:", "\\server1\WMSShare" If (Err.Number <> 0) Then On Error GoTo 0 objNetwork.RemoveNetworkDrive "g:", True, True objNetwork.RemoveNetworkDrive "j:", True, True objNetwork.RemoveNetworkDrive "k:", True, True objNetwork.RemoveNetworkDrive "l:", True, True objNetwork.RemoveNetworkDrive "t:", True, True objNetwork.MapNetworkDrive "g:", "\\server6\netapps" objNetwork.MapNetworkDrive "j:", "\\server6\netapps" objNetwork.MapNetworkDrive "K:", "\\server6\home" objNetwork.MapNetworkDrive "L:", "\\server6\tax" objNetwork.MapNetworkDrive "t:", "\\server1\WMSShare" End If On Error GoTo 0 Case "\\server7" On Error Resume Next objNetwork.MapNetworkDrive "J:", "\\server7\netapps" objNetwork.MapNetworkDrive "K:", "\\server7\home" objNetwork.MapNetworkDrive "L:", "\\server7\tax" objNetwork.MapNetworkDrive "t:", "\\server1\WMSShare" If (Err.Number <> 0) Then On Error GoTo 0 objNetwork.RemoveNetworkDrive "j:", True, True objNetwork.RemoveNetworkDrive "k:", True, True objNetwork.RemoveNetworkDrive "l:", True, True objNetwork.RemoveNetworkDrive "t:", True, True objNetwork.MapNetworkDrive "j:", "\\server7\netapps" objNetwork.MapNetworkDrive "K:", "\\server7\home" objNetwork.MapNetworkDrive "L:", "\\server7\tax" objNetwork.MapNetworkDrive "t:", "\\server1\WMSShare" End If On Error GoTo 0 Case "\\server8" On Error Resume Next objNetwork.MapNetworkDrive "g:", "\\server8\netapps" objNetwork.MapNetworkDrive "J:", "\\server8\netapps" objNetwork.MapNetworkDrive "K:", "\\server8\home" objNetwork.MapNetworkDrive "L:", "\\server8\tax" objNetwork.MapNetworkDrive "t:", "\\server1\WMSShare" If (Err.Number <> 0) Then On Error GoTo 0 objNetwork.RemoveNetworkDrive "g:", True, True objNetwork.RemoveNetworkDrive "j:", True, True objNetwork.RemoveNetworkDrive "k:", True, True objNetwork.RemoveNetworkDrive "l:", True, True objNetwork.RemoveNetworkDrive "t:", True, True objNetwork.MapNetworkDrive "g:", "\\server8\netapps" objNetwork.MapNetworkDrive "j:", "\\server8\netapps" objNetwork.MapNetworkDrive "K:", "\\server8\home" objNetwork.MapNetworkDrive "L:", "\\server8\tax" objNetwork.MapNetworkDrive "t:", "\\server1\WMSShare" End If On Error GoTo 0 End Select -------------------------------------------------------------------------------------------- Tag: File and folder auditing Tag: 209569
 - 4
 - Help with the following code please. The following code works fine on the local domain london.test.com but when I change the commented lines it no longer works, does anyone have an idea why? I know the passwords are correct for the USA domain and is the user is a member of the Domain Admins group. CODE: Const ADS_SCOPE_SUBTREE = 2 Set objFileSystem = CreateObject("Scripting.FileSystemObject") Set objOutputFile = objFileSystem.CreateTextFile("C:\Temp\Users.txt") Set objConnection = CreateObject("ADODB.Connection") Set objCommand = CreateObject("ADODB.Command") objConnection.Provider = "ADsDSOObject" ' The following four line are commented out when connecting to the local domain 'objConnection.Properties("User ID") = "USA\Admin" 'objConnection.Properties("Password") = "Password" 'objConnection.Properties("Encrypt Password") = TRUE 'objConnection.Properties("ADSI Flag") = 3 objConnection.Open "Active Directory Provider" Set objCOmmand.ActiveConnection = objConnection objCommand.CommandText = "Select Name, distinguishedName from 'LDAP://DC=London,DC=test,DC=com'" & "Where objectClass='user'" ' Local and works 'objCommand.CommandText = "Select Name, distinguishedName from 'LDAP://DC=USA,DC=test,DC=com'" & "Where objectClass='user'" ' USA domain not working objCommand.Properties("Page Size") = 1000 objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE Set objRecordSet = objCommand.Execute objRecordSet.MoveFirst objOutputFile.Write "UserName" & vbTab & "AD Path" & vbCrLf Do Until objRecordSet.EOF objOutputFile.Write objRecordSet.Fields("Name").Value & vbTab & objRecordSet.Fields("distinguishedName") & vbCrLf objRecordSet.MoveNext Loop CODE ENDS: Tag: File and folder auditing Tag: 209561
 - 5
 - WMI to determin PRIMARY NIC ip address and mac Some code from my script is posted below. In order for the script to only catch TCP/IP network connections, I need to add 'where IPEnabled = True' to the Set wmiResults line. But then I also need to tell the script to only enumerate the mac address for the primary nic. How do I do that? Thanks, CODE -------------- Set wmiService = GetObject("winmgmts:\\" & line & "\root\CIMV2") Set wmiResults = wmiService.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration", "WQL", wbemFlagReturnImmediately + wbemFlagForwardOnly) For Each item In wmiResults macaddress = item.MACAddress ipaddress = item.IPAddress Next Tag: File and folder auditing Tag: 209560
 - 6
 - Script to play a sound when screen changes A friend has asked me for the feature below, but it?s very much not my field. Folks in another newsgroup referred me here. My friend is looking for a way to make her PC play a sound when the screen, or a portion of the screen, changes. Specifically, She wants to hear a sound when her group?s website flashes its (silent) self-updating graphic that says there's a new blog post, so she can reply promptly but still do other things around the house. I figure if there?s a way to compare the current screen with the one 10 seconds ago and make a noise if they differ, that?s what?s needed. I?m not even sure what to call this, but another poster tells me one way would be a VBScript that starts IE, opens the website, and creates an event handler routine that plays a sound when the onBodyClose event is triggered. Although I eat VBA for breakfast, I know zilch about VB scripting so I'm at a loss to interpret most of the above. Can anyone help? Grateful for any clues. MT Tag: File and folder auditing Tag: 209554
 - 7
 - HTML + VBS Hello, I have a script: Option Explicit Dim objShell Dim regH, H regH = "HKLM\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Hostname" Set objShell = CreateObject("WScript.Shell") H=objShell.RegRead(regH) WScript.Echo H & " host name" and it's work fine if file extension is vbs and it's running on local computer. If I put it on the server in file index.html like this: <html> <body> <script LANGUAGE="VBScript" type="text/vbscript"> Option Explicit Dim objShell Dim regH, H regH = "HKLM\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Hostname" Set objShell = CreateObject("WScript.Shell") H=objShell.RegRead(regH) WScript.Echo H & " host name" </script> </body> </html> then this doesn't work. Script is not running after enther the site. I need to take a hostname from registry and put it into textbox html form. For now this script is only show message box whith hostname if ran as vbs on local computer. Even if i use document.write then variable H is empty. How I can do this? Tag: File and folder auditing Tag: 209553
 - 8
 - redirect error output to file I am witing a script. I have option explicit at the top. When I add a line to call a sub, the script fails. I can see something being otuputedt to my command window. But it goes by to fast to read. In DOS, I can use a command like dir c:\folder > folder.txt. Can I do something like that to capture the error message flahsing by in my script? Thanks, Jeremy Tag: File and folder auditing Tag: 209542
 - 9
 - List all Email address and distinguishedName from Exchange via Script Hi, How can I generate a list of all exchange email addresses (including contacts) with there distinguishedName in all domains in the forest The code below which I have found only works on the local domain and not all domains in the forest, the reason I want the distinguisedName is so I can add individuals to a Distribution List that are not part of my local domain, also would this be the right way of doing it?. I hope this makes sense. TIA, SRT CODE: On Error Resume Next Const ForWriting = 2 'Path for the output file FilePath = "c:\mailboxes.txt" Set objFSO = CreateObject("Scripting.FileSystemObject") Set objTextFile = objFSO.OpenTextFile(filepath, ForWriting, True) 'Write Heading row objTextFile.writeLine("Mailbox" & vbTab & "Exchange Server" & vbTab & "Storage Group" & vbTab & "Mailbox Store" & vbTab & "Associated Email addresses") Set rootDSE = GetObject("LDAP://RootDSE") DomainContainer = rootDSE.Get("defaultNamingContext") Set conn = CreateObject("ADODB.Connection") conn.Provider = "ADSDSOObject" conn.Open "ADs Provider" ldapStr = "<LDAP://" & DomainContainer & ">;(&(&(& (mailnickname=*) (| (&(objectCategory=person)(objectClass=user)(|(homeMDB=*)(msExchHomeServerName=*))) ))));adspath;subtree" Set oComm = CreateObject("ADODB.Command") oComm.ActiveConnection = conn oComm.CommandText = ldapStr oComm.Properties("Sort on") = "DisplayName" oComm.Properties("Page size") = 1500 Set rs = oComm.Execute While Not rs.EOF Set FoundObject = GetObject (rs.Fields(0).Value) ReturnString = Split(FoundObject.homeMDB,",") Server = Mid(ReturnString(3),4) StorageGroup = Mid(ReturnString(1),4) MailboxStore = Mid(ReturnString(0),4) strRow = FoundObject.DisplayName & vbTab & Server & vbTab & StorageGroup & vbTab & MailboxStore For Each Address in FoundObject.proxyAddresses strRow = strRow & vbTab & Address Next objTextFile.writeLine(strRow) rs.MoveNext Wend msgbox "Done" CODE ENDS Tag: File and folder auditing Tag: 209541
 - 10
 - Can Send text, but not HTML or ASP file CDO I can send text using CDO, but can not send a simple HTML to an email address using: <% Set myMail=CreateObject("CDO.Message") myMail.Subject="Sending email with CDO" myMail.From="dburns@pccua.edu" myMail.To="dburns@pccua.edu" ----does not work --myMail.CreateMHTMLBody "https://intranet.pccua.edu/pccua/accleave.htm" --- ---does work-- myMail.TextBody="This is a test only" --- myMail.Send set myMail=nothing %> Any ideas? Tag: File and folder auditing Tag: 209540
 - 11
 - function versus procedure Are the following statements correct? 1. A procedure is a snippet of code that does something. 2. A function is a snippet of code that does something and returns a value 3. The syntax of a function and procedure name must always include the trailing (), even if no arguments are to be passed. 4. Syntax to call a procedure is 'call procedure' and for function is 'call function' 5. Conventionally, procedures and functions are define at the end of a script, after wscript.quit. Thanks, Jeremy Tag: File and folder auditing Tag: 209531
 - 12
 - How to search a text file I need to search a text file for a string and return true or false. Sounds simple, but I just can't get it to work. Does anybody know how? Thanks! Tag: File and folder auditing Tag: 209525
 - 13
 - adoSQLRecordset EOF or BOF Hi there, I have a SQLRecordset that may return no values at all and I would like to catch that. I have something like... Set adoSQLRecordset = CreateObject("ADODB.Recordset") Set adoSQLRecordset= adoSQLConnection.Execute("SELECT colOU FROM Table4") If it returns blank do I check that with ... If (adoSQLRecordset.BOF) Or with... If (adoSQLRecordset.EOF) Or with both... If (adoSQLRecordset.BOF OR adoSQLRecordset4.EOF) Then Thanks! Yas Tag: File and folder auditing Tag: 209523
 - 14
 - Passing a variable value to a script launched by a VB application Hi all Can I pass to a script (vbscript) (that is external to an application written in Visual Basic) the value of a variable that has been set within the application? Example: I run my application.exe that shows a field where I can enter a value let's say the name of the variable is MyVar, then I press a button and this runs an external script myscript.vbs that uses the content of MyVar. Can I do this? How? Perhaps I should declare the variable associated to the text entry field in the application as a global variable? thank you Tag: File and folder auditing Tag: 209521
 - 15
 - Type Mismatch: Join for Login VBS script Researched from this site: http://technet2.microsoft.com/WindowsServer/en/Library/8a268d3a-2aa0-4469-8cd2-8f28d6a630801033.mspx Pulling from the example from the above support site, I am trying to create a login script for our new AD domain. I am hitting a bump in the road because I am returning a Type Mismatch: Join from the following script... Const ACCOUNTING_GROUP ="cn=AccountingMember" Const MARKETING_GROUP ="cn=MarketingMember" Dim wshNetwork Dim ADSysInfo Dim CurrentUser Dim strGroups Set wshNetwork = CreateObject("WScript.Network") Set ADSysInfo = CreateObject("ADSystemInfo") Set CurrentUser = GetObject("LDAP://" & ADSysInfo.UserName) Set strGroups = LCase(Join(CurrentUser.MemberOf)) If InStr(strGroups, ACCOUNTING_GROUP) Then wshNetwork.MapNetworkDrive "w:","\\files\accounting\" End If If InStr(strGroups, MARKETING_GROUP) Then wshNetwork.MapNetworkDrive "x:","\\files\marketing\" End If Why do I get the type mismatch? Also is this a vailded statement that will work to map the drives if an admin logs in. If InStr(strGroups, MARKETING_GROUP) or InStr(strGroups,ADMIN_GROUP) Then wshNetwork.MapNetworkDrive "x:","\\files\marketing\" End If Assuming Const ADMIN_GROUP =cn"IT-Admin" Tag: File and folder auditing Tag: 209519
 - 16
 - Passing window object outside and HTML Application Hi, this problem is making me crazy since a lot of time and I still cannot find a solution. But I feel there should be one and should be trivial. If someone wants to accept the challenge, here it is the problem: I need to call a VBS from inside and HTA and make it able to call back some functions of the HTA. Seems trivial, but it isn't. The reason why I need to do this, is because my VBS makes an heavy job that consumes a lot of time, while the HTA is an interface that need to make other tasks (very light and fast, basically user interactions) while the VBS is running. Neverthenless, my HTA keeps the VBS progress on screen (I've a progress bar). That's why the VBS need to call back some HTA functions: to update the progress bar and signal HTA when is job is done or if it may need user intervention to continue. I found out that this is possible if, from my HTA, I call an HTM, like this: ---- CODE START ---- myHTA.HTA Sub mySub ... End Sub ... ' Open the HTM Set objDialog = window.showModelessDialog("myHTM.htm",self,"") ... myHTM.HTM ... ' Call the SUB inside the HTA window.dialogArguments.mySub ... ---- CODE END ---- The above code works perfectly. The problem is that a dialog, even modeless, cannot multitask with its parent, so the HTA stucks while the HTM is making something. That's why I'd need a VBS. But I don't know how to pass the window.self object to the VBS via a Run or Exec method of the Shell object. The trivial: objShell.Run "cscript myVBS.VBS " & self generates an error 80020009 Exception Occurred (not related to the Run method, also MsgBox self generates the same error). I think this error belongs to the fact that self is an object and cannot be converted to a string. If anyone has suggestions, are very welcome. Thanks. Massimo. Tag: File and folder auditing Tag: 209512
 - 17
 - Email entire Web Page I have a web page that employees fill out to request leave (leaveform.asp). I currently have it so that certain variables are emailed to their supervisor, informing them that they need to approve or deny the leave. I would like it so that the actual form (leaveform.asp) is email as a web page to the supervisor so they can view the form. I know I could write it as: messagebody="<html><body>The form below is...." messagebody=messagebody & "Please select" But, I'm hoping there is a quicker and better way. TIA, Darrin Burns Tag: File and folder auditing Tag: 209509
 - 18
 - Email enumerate? I am having a very hard time writing a script that will enumerate the following from all domains in the tree (or child domains) Email address Users first name Users last name Username Account status Last logon Tag: File and folder auditing Tag: 209504
 - 19
 - How to use ADO.NET in vbs file called from command line? I'm trying to run some ADO.NET code in a vbs file that is called from the command line as follows: C:\CScript MyFile.vbs but I get a compilation error, expected end of statement. The sample code below is where I'm trying to just open/close a connection..What do I have to do to use the .NET framework? Imports System.Data Imports System.Data.SqlClient Imports System.Data.SqlTypes Dim sqlConnection As SqlConnection = New SqlConnection() sqlConnection.ConnectionString = "SERVER=dbserver;DATABASE=mydb;UID=username;PWD=password" sqlConnection.Open() sqlConnection.Close() Tag: File and folder auditing Tag: 209503
 - 20
 - vbscript to configure ISA logging and client configuration Hi All, I'm trying to complete a vbscript to configure ISA 2000 settings after ISA is installed. I am unable to get the following settings changed: - Monitoring Configuration - Logs: I need to change each of the three logs to use ISA Server File format. - Client Configuration - WebBrowser: I need to uncheck the "Configure Web Browser during firewall client setup" box and change DNS name - Client Configuration - Firewall Client: I need to change the DNS name Any help would be greatly appreciated. Thanks. Tag: File and folder auditing Tag: 209502
 - 21
 - How to use WScript object in ASP ? Hello I am using VBScript in .asp pages and I want to use WScript.Sleep method (or another Sleep method if you can tell me one) to wait a short period of time until a child process started with WshShell.Exec terminates. I could instantiate "WScript.Shell", to run Exec, with CreateObject method (called on no explicit object, probably the Server object provided by ASP is used as the default). I now need to instantiate the WScript object (to call its Sleep method) but I do not know how. One of the help files I have on Windows Scripting Technologies says WScript object is allways available from any script file, but after I try WScript.Sleep 100 then Err.Description says 'Object required'. I also tryed CreateObject("WScript"), CreateObject("WScript.WScript") and CreateObject("WScript.Application"), with no success. Do you know how to instantiate WScript object in asp ? Thank you, Adrian Constantin, Romania Tag: File and folder auditing Tag: 209494
 - 22
 - Accessing Local Security Settings Hi, I'm a newbie in VB Script and have a question to ask. Is there a way to access the local security settings through VB scripting? I've search Technet but there seems to be nothing on this issue. The closest I could find is RSOP but that is meant for group policy. I've also search through WMI and script center but with no luck. Appreciate much if there is any advise on this issue. Thanks. Tag: File and folder auditing Tag: 209491
 - 23
 - Find domain controllers Hi all I am looking for some script to find domain controllers names and ips in a forest with multiple domains. Any template script somewhere? thank you! Tag: File and folder auditing Tag: 209478
 - 24
 - Connect scripts to a dashboard Hi All I am trying to connect some of my VBScript scripts (mostlt WSH, ADSI) to a sort of dashboard (created in Visual Basic Express). Is this possible? Or do I have to translate the scripts from vbscript to VB? As a first goal I would like to create just a dashboard with a series of buttons, by pressing each button I run a script. Where I can find some instructions on how to acomplish this? Thanks Tag: File and folder auditing Tag: 209476
 - 25
 - Basic scripting question I want to write a vbscript to rename some files prior to my monthly backup. (I know I could use a batch file). I've never used VBScript before so I wanted to write something simple to understand the basics before moving on to my problem. The sample code is below, it doesn't produce any errors, but it doesn't do anything either. :-) I've run it from Explorer and within MSE7 with the same non result. I thought it might be a security issue, but turning down IE's security settings did not help. Please help a Noob find an obvious error: Option Explicit Sub ShowFileInfo() Dim fso, f, WshShell Set WshShell = WScript.CreateObject("WScript.Shell") Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.GetFile("Drive_C_and_F1.tib") WshShell.Popup f.DateCreated, 5, "Test Message", 0+64 WshShell.quit set WshShell=nothing End SUB Tag: File and folder auditing Tag: 209469

Hey Guys,

I need to write a script that configures auditing of object access for the
Everyone group:

List Folder / Read Data
Create Files / Write Data
Delete
Change Permissions
Take Ownership

for these files and folders

Files

%SYSTEMROOT%\SYSTEM32\CMD.EXE
%SYSTEMROOT%\SYSTEM32\COMMAND.COM
%SYSTEMROOT%\SYSTEM32\CSCRIPT.EXE

Folders

%SYSTEMROOT%
%SYSTEMROOT%\CONFIG
%SYSTEMROOT%\SYSTEM32

Anyone have any ideas?

Top

Re: File and folder auditing by Owen

Owen
Thu Aug 30 16:46:26 PDT 2007

I think you want to go with a Policy to do this, not a script.

On Aug 30, 11:06 am, "Sacramento, CA" <crf...@yahoo.com> wrote:
> Hey Guys,
>
> I need to write a script that configures auditing of object access for the
> Everyone group:
>
> List Folder / Read Data
> Create Files / Write Data
> Delete
> Change Permissions
> Take Ownership
>
> for these files and folders
>
> Files
>
> %SYSTEMROOT%\SYSTEM32\CMD.EXE
> %SYSTEMROOT%\SYSTEM32\COMMAND.COM
> %SYSTEMROOT%\SYSTEM32\CSCRIPT.EXE
>
> Folders
>
> %SYSTEMROOT%
> %SYSTEMROOT%\CONFIG
> %SYSTEMROOT%\SYSTEM32
>
> Anyone have any ideas?

Top