Enumerate ODBC Data Sources on all computers and write to file

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
    - Disable local account I created a local user, that I addd to the local admin group. So outside of the local admin account, I've also got another account in the local admin group. Lets call it localA. My question is once the pc is added to the domain, and a person logs in with a domain account, I want to be able to remove the account called localA. How do I script that out? I was thinking of putting a script in the default users startup, that will look for my FQDM and if it detects it, then it will remove the localA account, and delete itself. I just need to know how I can delete that localA account.... the rest I think I can handle Thanks Tag: Enumerate ODBC Data Sources on all computers and write to file Tag: 188808
  - 2
    - Can not find the files Hi Alll I got a very strange problem today. I have couple user they saved pst file on the file server. Because outlook2000 can't open pst file over 2GB. So I decide to monitor those pst file on the server. I am using this vbscript to find out the pst file on the server, during the test, I just need the script can report where is the pst file. ********************************************************** strComputer = "." Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colFiles = objWMIService.ExecQuery("Select * from CIM_DataFile where extension = 'pst'") For Each objFile in colFiles Wscript.Echo objFile.Name Next ********************************************************** It runs and can't find any pst file. I change pst to mdb or xls, it got a lot result. I rename one of the file to test.abc, and try to search by extension='abc', still nothing. any idea? Thanks Fire Tag: Enumerate ODBC Data Sources on all computers and write to file Tag: 188807
  - 3
    - ADO and NDS I am using the following script to perform and LDAP query using ADO. The LDAP server is Novell Netware 6 with eDirectory 8.6.2. The query runs below returns all the attrubutes and their values when I use LDP.EXE. The query in the VBScript below finds the object and enters the While loop, but I receive a Type Mismatch error when I try to retrieve the Value property. TypeName tells me the Value property is a Variant() type. VarType tells me the Value property is 8204, which is an array of Varriant Ubound(objUser.Value) tells me there are 0 items in the array Value objUser.Name returns "sn", which is correct. Set cnnLDAP = CreateObject("ADODB.Connection") Set rstLDAP = CreateObject("ADODB.RecordSet") cnnLDAP.Provider = "ADSDSOObject" cnnLDAP.Open Query = _ "<LDAP://192.168.10.11/o=org>;(mail=bburns@ix.netcom.com);sn;subtree" rstLDAP.Open Query, cnnLDAP While Not rstLDAP.EOF set objUser = rstLDAP.Fields.Item(0) wscript.echo TypeName(objUser.Value) wscript.echo Ubound(objUser.Value) wscript.echo VarType(objUser.Value) wscript.echo objUser.Name rstLDAP.MoveNext Wend rstLDAP.Close cnnLDAP.Close Does anyone know why I am getting these results? Could this be an issue with Novell's LDAP server? I have the Novell LDAP service running in Compatibility mode. Do I need a specific option set to retrieve the attributes? Thanks for any help. Brian Burns Tag: Enumerate ODBC Data Sources on all computers and write to file Tag: 188806
  - 4
    - Converting an array of bytes to a string (VBScript) Hi All, I am trying to store the message id/correlation id from a MSMQ message into a database table but am having trouble doing so as the data type of the message id is of type Variant (array of bytes). In VBScript how can I convert this data type in order to store as a varchar in a SQL Server 2000 db table? When I run the code (from Michael Harris),where sMsgId is the array of bytes for an MSMQ message Id, I get =F2c=B3=8B=AEvG=80O^=F0"=F40=FF back as my character string: ChrString =3D "" NumValues =3D "" HexValues =3D "" comma =3D "" for n =3D 0 to ubound(sMsgId) ChrString =3D ChrString _ & midb(sMsgId,n+1,1) & chrb(0) NumValues =3D NumValues & comma _ & asc(midb(sMsgId,n+1,1) & chrb(0)) HexValues =3D HexValues & comma _ & "0x" & hex(asc(midb(sMsgId,n+1,1) & chrb(0))) comma =3D "," next msgbox "Typename: " & typename(sMsgId) & vbcrlf _ & "Vartype: " & vartype(sMsgId) & vbcrlf _ & "ChrString: " & ChrString & vbcrlf _ & "NumValues: " & NumValues & vbcrlf _ & "HexValues: " & HexValues & vbcrlf ------------------------------------------- I also tried and get the same result: For j =3D 1 To Lenb(sMsgId) sMessageId =3D sMessageId & Chr(AscB(MidB(sMsgId, j))) Next=20 Thanks for any help Patrick Tag: Enumerate ODBC Data Sources on all computers and write to file Tag: 188799
  - 5
    - prob to take html data from vbscript boucle Hi, I generated a web page with input type checkbox with variable quantity I loaded from vbs and after i wanted to take which case chaecked and apply sub for each one But vbs see my variable like a simple string, is there any solution in vbscript to transform it in object or variable, or is the only solution is to use javascript in html page ? +++++==================================== For intCount = 0 To (intIndexLine -1) Step 1 Set strCase = "Case" & intCount WScript.Echo strCase WScript.Echo "test: " & objIECheckListApp.Document.CheckList.strCase.Checked ' If objIECheckListApp.Document.CheckList.strCase.Checked Then ' WScript.Echo "arrGRemboSrv :" & arrGRemboSrv(intCount) & "arrGHostName :" & arrGHostName(intCount) & "arrGMacAddress :" & arrGMacAddress(intCount) 'Call ResetAutoload(arrGRemboSrv(intCount), arrGHostName(intCount), arrGMacAddress(intCount)) ' End If Next +++++==================================== Arnaud ####RemboPcList rembosrvb5;pcgiger;00-01-aa-bb-cc-dd;30 rembosrvb5;lapgiger;00-01-dd-8d-3e-68;32 rembosrvb5;pcgiger2;00-01-aa-bb-cc-dd;30 rembosrvb5;lapgiger;00-01-dd-8d-3e-68;32 EOF ####RemboResetLog 10/03/2006;19:18:58;;;;;INFO-Script Started 10/03/2006;19:19:59;;;;;INFO-Script Started 10/03/2006;19:22:46;;;;;INFO-Script Started 10/03/2006;19:24:39;;;;;INFO-Script Started 10/03/2006;19:24:39;;;;;ERROR-RemboPcList Wrong Elements number 10/03/2006;19:24:39;;;;;ERROR-RemboPcList Seems Incorrect Elements 10/03/2006;19:28:07;;;;;INFO-Script Started 10/03/2006;19:28:07;;;;;ERROR-RemboPcList Wrong Elements number 10/03/2006;19:28:07;;;;;ERROR-RemboPcList Seems Incorrect Elements 10/03/2006;19:46:56;;;;;INFO-Script Started 10/03/2006;19:46:56;;;;;ERROR-RemboPcList Wrong Elements number 10/03/2006;19:46:56;;;;;ERROR-RemboPcList Seems Incorrect Elements 13/03/2006;09:24:31;;;;;INFO-Script Started 13/03/2006;09:24:31;;;;;ERROR-RemboPcList Wrong Elements number 13/03/2006;09:24:31;;;;;ERROR-RemboPcList Seems Incorrect Elements 13/03/2006;09:38:55;;;;;INFO-Script Started 13/03/2006;09:38:55;;;;;ERROR-RemboPcList Wrong Elements number 13/03/2006;09:38:55;;;;;ERROR-RemboPcList Seems Incorrect Elements 13/03/2006;09:48:02;;;;;INFO-Script Started 13/03/2006;09:48:02;;;;;ERROR-RemboPcList Wrong Elements number 13/03/2006;09:48:02;;;;;ERROR-RemboPcList Seems Incorrect Elements 13/03/2006;09:53:02;;;;;INFO-Script Started 13/03/2006;09:53:02;;;;;ERROR-RemboPcList Wrong Elements number 13/03/2006;09:53:02;;;;;ERROR-RemboPcList Seems Incorrect Elements 13/03/2006;11:32:54;;;;;INFO-Script Started 13/03/2006;11:32:55;;;;;ERROR-RemboPcList Wrong Elements number 13/03/2006;11:32:55;;;;;ERROR-RemboPcList Seems Incorrect Elements 13/03/2006;11:38:31;;;;;INFO-Script Started 13/03/2006;11:38:31;;;;;ERROR-RemboPcList Wrong Elements number 13/03/2006;11:38:31;;;;;ERROR-RemboPcList Seems Incorrect Elements 13/03/2006;11:42:52;;;;;INFO-Script Started 13/03/2006;11:42:52;;;;;ERROR-RemboPcList Wrong Elements number 13/03/2006;11:42:52;;;;;ERROR-RemboPcList Seems Incorrect Elements 13/03/2006;11:44:32;;;;;INFO-Script Started 13/03/2006;11:44:32;;;;;ERROR-RemboPcList Wrong Elements number 13/03/2006;11:44:32;;;;;ERROR-RemboPcList Seems Incorrect Elements 13/03/2006;11:45:42;;;;;INFO-Script Started 13/03/2006;11:45:42;;;;;ERROR-RemboPcList Wrong Elements number 13/03/2006;11:45:42;;;;;ERROR-RemboPcList Seems Incorrect Elements 13/03/2006;11:46:36;;;;;INFO-Script Started 13/03/2006;11:46:36;;;;;ERROR-RemboPcList Wrong Elements number 13/03/2006;11:46:36;;;;;ERROR-RemboPcList Seems Incorrect Elements 13/03/2006;11:51:24;;;;;INFO-Script Started 13/03/2006;11:51:24;;;;;ERROR-RemboPcList Wrong Elements number 13/03/2006;11:51:24;;;;;ERROR-RemboPcList Seems Incorrect Elements 13/03/2006;13:17:39;;;;;INFO-Script Started 13/03/2006;13:17:39;;;;;ERROR-RemboPcList Wrong Elements number 13/03/2006;13:17:39;;;;;ERROR-RemboPcList Seems Incorrect Elements 13/03/2006;13:18:55;;;;;INFO-Script Started 13/03/2006;13:18:55;;;;;ERROR-RemboPcList Wrong Elements number 13/03/2006;13:18:55;;;;;ERROR-RemboPcList Seems Incorrect Elements 13/03/2006;13:21:47;;;;;INFO-Script Started 13/03/2006;13:21:47;;;;;ERROR-RemboPcList Wrong Elements number 13/03/2006;13:21:47;;;;;ERROR-RemboPcList Seems Incorrect Elements 13/03/2006;13:22:00;;;;;INFO-Script Started 13/03/2006;13:22:01;;;;;ERROR-RemboPcList Wrong Elements number 13/03/2006;13:22:01;;;;;ERROR-RemboPcList Seems Incorrect Elements 13/03/2006;13:24:10;;;;;INFO-Script Started 13/03/2006;13:24:10;;;;;ERROR-RemboPcList Wrong Elements number 13/03/2006;13:24:10;;;;;ERROR-RemboPcList Seems Incorrect Elements 13/03/2006;13:25:30;;;;;INFO-Script Started 13/03/2006;13:25:30;;;;;ERROR-RemboPcList Wrong Elements number 13/03/2006;13:25:30;;;;;ERROR-RemboPcList Seems Incorrect Elements 13/03/2006;13:26:45;;;;;INFO-Script Started 13/03/2006;13:26:45;;;;;ERROR-RemboPcList Wrong Elements number 13/03/2006;13:26:45;;;;;ERROR-RemboPcList Seems Incorrect Elements 13/03/2006;13:28:54;;;;;INFO-Script Started 13/03/2006;13:28:54;;;;;ERROR-RemboPcList Wrong Elements number 13/03/2006;13:28:54;;;;;ERROR-RemboPcList Seems Incorrect Elements 13/03/2006;13:30:40;;;;;INFO-Script Started 13/03/2006;13:30:40;;;;;ERROR-RemboPcList Wrong Elements number 13/03/2006;13:30:40;;;;;ERROR-RemboPcList Seems Incorrect Elements 13/03/2006;14:56:58;;;;;INFO-Script Started 13/03/2006;14:56:58;;;;;ERROR-RemboPcList Wrong Elements number 13/03/2006;14:56:58;;;;;ERROR-RemboPcList Seems Incorrect Elements 13/03/2006;14:59:58;;;;;INFO-Script Started 13/03/2006;14:59:58;;;;;ERROR-RemboPcList Wrong Elements number 13/03/2006;14:59:58;;;;;ERROR-RemboPcList Seems Incorrect Elements 13/03/2006;15:01:36;;;;;INFO-Script Started 13/03/2006;15:01:36;;;;;ERROR-RemboPcList Wrong Elements number 13/03/2006;15:01:36;;;;;ERROR-RemboPcList Seems Incorrect Elements 13/03/2006;15:03:11;;;;;INFO-Script Started 13/03/2006;15:03:11;;;;;ERROR-RemboPcList Wrong Elements number 13/03/2006;15:03:11;;;;;ERROR-RemboPcList Seems Incorrect Elements 13/03/2006;15:06:33;;;;;INFO-Script Started 13/03/2006;15:06:33;;;;;ERROR-RemboPcList Wrong Elements number 13/03/2006;15:06:33;;;;;ERROR-RemboPcList Seems Incorrect Elements 13/03/2006;15:07:27;;;;;INFO-Script Started 13/03/2006;15:07:27;;;;;ERROR-RemboPcList Wrong Elements number 13/03/2006;15:07:27;;;;;ERROR-RemboPcList Seems Incorrect Elements 13/03/2006;15:07:38;;;;;INFO-Script Started 13/03/2006;15:07:38;;;;;ERROR-RemboPcList Wrong Elements number 13/03/2006;15:07:38;;;;;ERROR-RemboPcList Seems Incorrect Elements 13/03/2006;15:08:16;;;;;INFO-Script Started 13/03/2006;15:08:16;;;;;ERROR-RemboPcList Wrong Elements number 13/03/2006;15:08:16;;;;;ERROR-RemboPcList Seems Incorrect Elements 13/03/2006;15:13:09;;;;;INFO-Script Started 13/03/2006;15:13:09;;;;;ERROR-RemboPcList Wrong Elements number 13/03/2006;15:13:09;;;;;ERROR-RemboPcList Seems Incorrect Elements 13/03/2006;16:37:51;;;;;INFO-Script Started 13/03/2006;16:37:51;;;;;ERROR-RemboPcList Wrong Elements number 13/03/2006;16:37:51;;;;;ERROR-RemboPcList Seems Incorrect Elements 13/03/2006;16:38:14;;;;;INFO-Script Started 13/03/2006;16:38:14;;;;;ERROR-RemboPcList Wrong Elements number 13/03/2006;16:38:14;;;;;ERROR-RemboPcList Seems Incorrect Elements 13/03/2006;16:40:00;;;;;INFO-Script Started 13/03/2006;16:40:00;;;;;ERROR-RemboPcList Wrong Elements number 13/03/2006;16:40:00;;;;;ERROR-RemboPcList Seems Incorrect Elements 13/03/2006;16:48:36;;;;;INFO-Script Started 13/03/2006;16:48:36;;;;;ERROR-RemboPcList Wrong Elements number 13/03/2006;16:48:36;;;;;ERROR-RemboPcList Seems Incorrect Elements ####RemboReset.vbs ' ############################################################################ ' ' ' ' ############################################################################ option Explicit Dim strScriptVersion, strScriptName strScriptVersion = "Last change 07/02/2006" strScriptName = "RemboReset" ' Declaration Section ' for normalization we prefix variable in minus with the type ' obj=instance of objet, str=string, arr=array of data, int=interger.. ' After prefix there is "L" for local variable and G for Global variable Set objSHELL = WScript.CreateObject("WScript.Shell") Set objNET = WScript.CreateObject("WScript.Network") Set objFSO = CreateObject("Scripting.FileSystemObject") Dim objSHELL, objNET, objFSO Dim objLogFile, objIECheckListApp, objIECheckListDoc,objRemboPcList Dim objTextStreamA, objRegExp, objRemboResetLog, objTextStreamB, objMyFile Dim objFileAutoload, objTextStreamC Dim arrCodeDescriptions(8), arrLineA, arrMacAddress, arrDate, arrLineC Dim arrGRemboSrv(100), arrGHostName(100), arrGMacAddress(100), arrGNbDays(100) Dim strCurrentFolder, strResetMode, strTitleWebPage Dim strRemboPcList, strRemboResetLog, strTest, strTmpFolder, strCheckList Dim strLineA, strLineB, strLineC, strMacAddress, strArchiveAutoload, strContents Dim strLRemboSrv, strLHostName, strLMacAddress, strLNbDays, strCase, strMyTd, strRemboPass Dim intInput, intLineMatches, intGLastMatchLine, intCountC, intIndexLine, intCount 'The iomode argument can have any of the following settings Const ForReading = 1 'Open a file for reading only. You can't write to this file. Const ForWriting = 2 'Open a file for writing. Const ForAppending = 8 'Open a file and write to the end of the file. 'The format argument can have any of the following settings Const TristateUseDefault = -2 'Opens the file using the system default. Const TristateTrue = -1 'Opens the file as Unicode. Const TristateFalse = 0 'Opens the file as ASCII. strCurrentFolder = objFSO.GetParentFolderName(WScript.ScriptFullName) strRemboPcList = "RemboPcList.txt" strRemboResetLog = "RemboReset.log" strTitleWebPage = "Pc List can be Reset for reinstall" strTmpFolder = objShell.ExpandEnvironmentStrings("%temp%") strCheckList = "CheckList.html" strRemboPass = "xxxx" arrCodeDescriptions(0) = "ERROR-RemboPcList File Not Found" arrCodeDescriptions(1) = "ERROR-RemboPcList Wrong Elements number" arrCodeDescriptions(2) = "ERROR-RemboPcList Seems Incorrect Elements" arrCodeDescriptions(3) = "ERROR-Netclnt.ini File Not Found for Get" arrCodeDescriptions(4) = "ERROR-Autoload File Not Found" arrCodeDescriptions(5) = "INFO-Autoload Modified" arrCodeDescriptions(6) = "INFO-Script Started" arrCodeDescriptions(7) = "INFO-Script Finished" ' _____________________________________________________ ' Confirm section intInput = MsgBox("Do you really want to lunch ESRF script : " & strScriptName,4,strScriptName) Select Case intInput Case 2 Wscript.Quit Case 7 Wscript.Quit End Select ' _____________________________________________________ ' Verification and cleaning Section If Not objFSO.FileExists(strCurrentFolder & "\RemboReset.log") Then Set objLogFile = objFSO.CreateTextFile(strCurrentFolder & "\RemboReset.log", True) objLogFile.Close End If If Not objFSO.FileExists(strCurrentFolder & "\RemboPcList.txt") Then Call LogEvent("","","","",arrCodeDescriptions(0)) WScript.Quit End If If WScript.Arguments.Count = "1" Then If LCase(WScript.Arguments(0)) = LCase("Now") Then strResetMode = "GUI" Else strResetMode = "Silent" End If Else strResetMode = "Silent" End If ' _____________________________________________________ ' Main Script Section ' Log Execution of the script Call LogEvent("","","","",arrCodeDescriptions(6)) If strResetMode = "GUI" Then Call CleanFile(strTmpFolder & "\" & strCheckList) Set objIECheckListDoc = objFSO.OpenTextFile(strTmpFolder & "\" & strCheckList, ForAppending, True) objIECheckListDoc.Writeline "<HTML>" objIECheckListDoc.WriteLine "<HEAD><TITLE>" & strTitleWebPage & "</TITLE></HEAD" objIECheckListDoc.WriteLine "<BODY bgcolor='#FFFFD2' scroll='yes'>" objIECheckListDoc.WriteLine "<FORM name=""CheckList"">" objIECheckListDoc.WriteLine "<input type=""checkbox"" name=""MyCase"" value=""MyCase"">" objIECheckListDoc.WriteLine "<TABLE name=TableList border=5 cellspacing=""5"" cellpadding=""5"">" objIECheckListDoc.WriteLine "<CAPTION align=left>Pc List to Reinstall :</CAPTION>" objIECheckListDoc.WriteLine "<TR>" objIECheckListDoc.WriteLine " <TD></TD>" objIECheckListDoc.WriteLine " <TD>HostName</TD>" objIECheckListDoc.WriteLine " <TD width=60 height=40>Days for Reboot</TD>" objIECheckListDoc.WriteLine " <TD>Mac Address</TD>" objIECheckListDoc.WriteLine " <TD>Rembo Server</TD>" objIECheckListDoc.WriteLine "</TR>" End If Set objRemboPcList = objFSO.GetFile(strCurrentFolder & "\" & strRemboPcList) Set objTextStreamA = objRemboPcList.OpenAsTextStream(ForReading,TristateUseDefault) intIndexLine = 0 Do While Not objTextStreamA.AtEndOfStream strLineA = objTextStreamA.ReadLine() If CheckLine(strLineA) = "true" Then arrLineA = Split (strLineA, ";") arrGRemboSrv(intIndexLine) = arrLineA(0) arrGHostName(intIndexLine) = arrLineA(1) arrGMacAddress(intIndexLine) = arrLineA(2) arrGNbDays(intIndexLine) = arrLineA(3) If strResetMode = "Silent" Then ' Return last line number where mac address found in ResetLog file intGLastMatchLine = CheckLastReset(arrGMacAddress(intIndexLine)) If intGLastMatchLine = "0" Then ' Start reset Autoload for mac address not write in log file yet Call ResetAutoload(arrGRemboSrv(intIndexLine), arrGHostName(intIndexLine), arrGMacAddress(intIndexLine)) Else ' For Pc already Reseted compare date of log from now date and Number of day Set for reset If CheckDate(intGLastMatchLine, arrGNbDays(intIndexLine)) = "true" Then Call ResetAutoload(arrGRemboSrv(intIndexLine), arrGHostName(intIndexLine), arrGMacAddress(intIndexLine)) End If End If End If If strResetMode = "GUI" Then objIECheckListDoc.WriteLine "<TR>" objIECheckListDoc.WriteLine " <TD name=MyTd" & intIndexLine & "><input type=""checkbox"" name=""case" & intIndexLine & """ value=""case " & intIndexLine & """></TD>" objIECheckListDoc.WriteLine " <TD>" & arrGHostName(intIndexLine) & "</TD>" objIECheckListDoc.WriteLine " <TD align=center>" & arrGNbDays(intIndexLine) & "</TD>" objIECheckListDoc.WriteLine " <TD>" & arrGMacAddress(intIndexLine) & "</TD>" objIECheckListDoc.WriteLine " <TD>" & arrGRemboSrv(intIndexLine) & "</TD>" objIECheckListDoc.WriteLine "</TR>" End If intIndexLine = intIndexLine + 1 End If Loop If strResetMode = "GUI" Then objIECheckListDoc.WriteLine "</TABLE>" objIECheckListDoc.WriteLine "<input type=""button"" name=""Bok"" value=""OK"" >" objIECheckListDoc.WriteLine "<input type=""button"" name=""Bca"" value=""Cancel"" >" objIECheckListDoc.WriteLine "</FORM>" objIECheckListDoc.WriteLine "<script language=""VBScript"">" objIECheckListDoc.WriteLine "" objIECheckListDoc.WriteLine "</script>" objIECheckListDoc.WriteLine "</BODY>" objIECheckListDoc.WriteLine "</HTML>" objIECheckListDoc.Close Set objIECheckListApp = CreateObject("InternetExplorer.Application") With objIECheckListApp .Left = 50 .Top = 100 .Height = 400 .Width = 550 .MenuBar = 0 .ToolBar = 0 .StatusBar = 0 .Resizable = true .Navigate strTmpFolder & "\" & strCheckList .Visible = 2 End With Do While (objIECheckListApp.Busy) WScript.Sleep 200 Loop ' Wait until MSIE is ready and suspend 200ms to lower CPU load On Error Resume Next ' Wait until the user clicks the button Do WScript.Sleep 200 Loop While (objIECheckListApp.Document.Script.CheckVal() = 0) ' The user closes the form without clicking the Ok or Cancel button If Err <> 0 Then Wscript.Echo "Request Form Cancel" objIECheckListApp.Quit Call CleanFile(strTmpFolder & "\" & strCheckList) Wscript.quit end If strTest = objIECheckListApp.Document.Script.CheckVal() If strTest=-1 Then objIECheckListApp.Quit Wscript.Echo "Install Process Cancel" objIECheckListApp.Quit Call CleanFile(strTmpFolder & "\" & strCheckList) Wscript.quit end If WScript.Echo "Reset launch" For intCount = 0 To (intIndexLine -1) Step 1 Set strCase = "Case0" strMyTd = "MyTd" & intCount WScript.Echo strCase WScript.Echo "erere: " & objIECheckListApp.Document.CheckList.strCase.Checked ' If objIECheckListApp.Document.CheckList.strCase.Checked Then ' WScript.Echo "arrGRemboSrv :" & arrGRemboSrv(intCount) & "arrGHostName :" & arrGHostName(intCount) & "arrGMacAddress :" & arrGMacAddress(intCount) 'Call ResetAutoload(arrGRemboSrv(intCount), arrGHostName(intCount), arrGMacAddress(intCount)) ' End If Next objIECheckListApp.Quit Call CleanFile(strTmpFolder & "\" & strCheckList) Wscript.quit End If ' _____________________________________________________ ' Sub Section Sub LogEvent(strLRemboSrv, strLHostName, strLMacAddress, strLNbDays, strLComment) Set objLogFile = objFSO.OpenTextFile (strCurrentFolder & "\" &strRemboResetLog, 8, True, TristateUseDefault) objLogFile.Writeline Date() & ";" & Time() & ";" & strLRemboSrv & ";" & strLHostName & ";" & strLMacAddress & ";" & strLNbDays & ";" & strLComment objLogFile.Close End Sub Sub CleanFile(strFullPathFile) If objFSO.FileExists(strFullPathFile) Then objFSO.DeleteFile(strFullPathFile) End If End Sub Sub ResetAutoload(strLRemboSrv, strLHostName, strLMacAddress) ' Build Mac Address Folder for Rembo arrMacAddress = Split(strLMacAddress, "-") strMacAddress = arrMacAddress(0) & arrMacAddress(1) & arrMacAddress(2) & arrMacAddress(3) & arrMacAddress(4) & arrMacAddress(5) ' Cleanning tmp files if present If objFSO.FileExists(strCurrentFolder & "\netclnt.ini") Then objFSO.DeleteFile(strCurrentFolder & "\netclnt.ini") End If If objFSO.FileExists(strCurrentFolder & "\autoload") Then objFSO.DeleteFile(strCurrentFolder & "\autoload") End If ' Buid NetClnt.ini parameters file for GET Autoload Set objMyFile = objFSO.CreateTextFile(strCurrentFolder & "\netclnt.ini", True) objMyFile.WriteLine("open " & strLRemboSrv & " " & strRemboPass) objMyFile.WriteLine("cd /hosts/" & strMacAddress) objMyFile.WriteLine("get autoload") objMyFile.WriteLine("exit") objMyFile.Close If Not objFSO.FileExists(strCurrentFolder & "\netclnt.ini") Then Call LogEvent(strLRemboSrv,strLHostName,strLMacAddress,strGNbDays,arrCodeDescriptions(3)) Exit Sub End If ' Run Command to Get file objSHELL.Run("%comspec% /K netclnt20.exe netclnt.ini & exit"), 1, TRUE WScript.Sleep 4000 ' Clean tmp netclnt.ini file objFSO.DeleteFile(strCurrentFolder & "\netclnt.ini") ' modification of autoload If objFSO.FileExists(strCurrentFolder & "\autoload") Then ' Backup version of autoload in Local machine folder Hostname-MacAddress If Not objFSO.FolderExists(strCurrentFolder & "\" & strLHostName & "-" & strLMacAddress) Then objFSO.CreateFolder(strCurrentFolder & "\" & strLHostName & "-" & strLMacAddress) End If objFSO.CopyFile strCurrentFolder & "\autoload", strCurrentFolder & "\" & strLHostName & "-" & strLMacAddress & "\" arrDate = Split(Date(), "/") ' Build Achive of Autoload Name with Date xx-xx-xx-autoload strArchiveAutoload = arrDate(0) & "-" & arrDate(1) & "-" & arrDate(2) & "-" & "autoload" ' Achive with random suffixe if already exist If objFSO.FileExists(strCurrentFolder & "\" & strLHostName & "-" & strLMacAddress & "\" & strArchiveAutoload) Then strArchiveAutoload = strArchiveAutoload & "-" & Int(1000*Rnd()) End If ' Rename autoload with his archive Name Set objFileAutoload = objFSO.GetFile(strCurrentFolder & "\" & strLHostName & "-" & strLMacAddress & "\autoload") objFileAutoload.Name = strArchiveAutoload ' Buid Object objFileAutoload with autoload content Set objFileAutoload = objFSO.OpenTextFile(strCurrentFolder & "\autoload", ForReading) strContents = objFileAutoload.ReadAll objFileAutoload.Close ' Replace full line match with true option one strContents = Replace(strContents, "bool Unattended = (bool)""false"";", "bool Unattended = (bool)""true"";") ' Write File with new content Set objFileAutoload = objFSO.OpenTextFile(strCurrentFolder & "\autoload", ForWriting) objFileAutoload.WriteLine strContents objFileAutoload.Close ' Buid NetClnt.ini parameters file for PUT Autoload Set objMyFile = objFSO.CreateTextFile(strCurrentFolder & "\netclnt.ini", True) objMyFile.WriteLine("open " & strLRemboSrv & " " & strRemboPass) objMyFile.WriteLine("cd /hosts/" & strMacAddress) objMyFile.WriteLine("put autoload") objMyFile.WriteLine("exit") objMyFile.Close ' Run Command to Put file objSHELL.Run("%comspec% /K netclnt20.exe netclnt.ini & exit"), 1, TRUE WScript.Sleep 4000 ' Cleanning tmp files if present If objFSO.FileExists(strCurrentFolder & "\netclnt.ini") Then objFSO.DeleteFile(strCurrentFolder & "\netclnt.ini") End If If objFSO.FileExists(strCurrentFolder & "\autoload") Then objFSO.DeleteFile(strCurrentFolder & "\autoload") End If Call LogEvent(strLRemboSrv,strLHostName,strLMacAddress,strGNbDays,arrCodeDescriptions(5)) Else Call LogEvent(strLRemboSrv,strLHostName,strLMacAddress,strGNbDays,arrCodeDescriptions(4)) Exit Sub End If End Sub ' _____________________________________________________ ' Function Section Function CheckLine(strLLine) CheckLine = "true" arrLineA = Split (strLineA, ";") ' ---------------------------- ' Test info from file If LCase(strLineA) = LCase("EOF") Then CheckLine = "false" End If If UBound(arrLineA) <> "3" Then Call LogEvent("","","","",arrCodeDescriptions(1)) CheckLine = "false" End If If Not LCase(Left(strLineA,5)) = LCase("rembo") Then Call LogEvent("","","","",arrCodeDescriptions(2)) CheckLine = "false" End If End Function Function CheckLastReset(strLMacAddress) Set objRegExp = New RegExp objRegExp.IgnoreCase = True objRegExp.Global = True objRegExp.Pattern = strLMacAddress intLineMatches = 0 Set objRemboResetLog = objFSO.GetFile(strCurrentFolder & "\" & strRemboResetLog) Set objTextStreamB = objRemboResetLog.OpenAsTextStream(ForReading,TristateUseDefault) Do While Not objTextStreamB.AtEndOfStream strLineB = objTextStreamB.ReadLine() If objRegExp.Test(strLineB) Then intLineMatches = objTextStreamB.Line -1 End If Loop objTextStreamB.Close CheckLastReset = intLineMatches End Function Function CheckDate(intLLastMatchLine, strLNbDays) Set objRemboResetLog = objFSO.GetFile(strCurrentFolder & "\" & strRemboResetLog) Set objTextStreamC = objRemboResetLog.OpenAsTextStream(ForReading,TristateUseDefault) intCountC = 0 Do While Not intCountC = intLLastMatchLine strLineC = objTextStreamC.ReadLine() intCountC = intCountC + 1 Loop arrLineC = Split (strLineC, ";") ' WScript.Echo "arrLineC(0)=" & arrLineC(0) 'Debug Info ' WScript.Echo "NbJrs LastDate=" & Abs(DateDiff("d",Date(),arrLineC(0))) & " - NbJrs=" & Abs(strLNbDays) 'Debug Info If Abs(DateDiff("d",Date(),arrLineC(0))) > Abs(strLNbDays) Then CheckDate = "true" ' WScript.Echo "Date Depasse Modif Activer" 'Debug Info Else CheckDate = "false" ' WScript.Echo "Date Non Depasse Pas de Modif" 'Debug Info End If End Function Tag: Enumerate ODBC Data Sources on all computers and write to file Tag: 188795
  - 6
    - collect contact information I am not a programmer, only network and systems admin who knows enough to be dangerous. I would like to collect information such as addresses and phone numbers from end users and save the results to a database. I will ultimately import that data into Active Directory. I am using a Kix Script that contains some VB and uses WMI to collect hardware information and save it to a table in an SQL database. I would like to collect information such as addresses and phone numbers from end users and save that to the SQL database as well. Can someone help me with the following. Here is my logic: 1. Detect the username at login and match it to the username field in SQL database. 2. If address and phone number are blank than pop up a form for them to fill out. Clicking OK will save the fields to the database. Also register the date the form was filled out. 3. If address and phone number are NOT blank. Verify if it is older than 90 days. If it's older, pop up the form. if Not, continue through the script. thanks! Brian Tag: Enumerate ODBC Data Sources on all computers and write to file Tag: 188788
  - 7
    - Script is not working? Hello All, Sorry for the cross post but i realized it was int he wrong forum... Anyway, I seem to be having trouble with this script...In fact it is not working so I would say that is more than a little trouble. I am looking at it and cant figure out why it is not able to run successfully thru GPO but when it runs locally I am able to execute. Any insights? I am trying to use group policy (logon script portion) to copy files into the Documents and Settings\username\Application Data\Microsoft \Word\Startup folder. The actual files which i would like to copy exist on the root drive on the same machine but I have not been successful with the following script ; ON Error Resume Next Dim obj, strUser Set obj = CreateObject("WScript.Network") strUser = obj.UserName Dim strPath strPath = "c:\Documents and Settings\" & strUser & "\Application Data\Microsoft\Word\STARTUP\" Set objFSO = CreateObject("Scripting.FileSystemObject") objFSO.CopyFile "c:\Program Files\App1\teris.dot" , "c:\Program Files\App1\teris1.dot" objFSO.MoveFile "c:\Program Files\App1\teris1.dot" , strPath Thanks in advance, Altria Tag: Enumerate ODBC Data Sources on all computers and write to file Tag: 188781
  - 8
    - Calculations on LARGE numbers Hi, I am trying to do some calculations on large numbers (ie 7,768,489,957,892,578,474,792,094 / 12,280) and no matter what I do it doesn't get it quite right. Its always somewhere between 10 and and 5000 out :( I have a suspition is could be down to one of the number functions I am using along the way but im not sure. Any help or guidance would be greatly appriciated. Thanks in advance Fred Tag: Enumerate ODBC Data Sources on all computers and write to file Tag: 188780
  - 9
    - Compressed files in VBScripts How to uncompress a compressed file using VBScripts. e.g to check if the file is compressed u use this line(if file.Attributes and 2048): but now I want to change that attribute to zero(uncompressed state)-- Please help urgently Tag: Enumerate ODBC Data Sources on all computers and write to file Tag: 188779
  - 10
    - How to add machine to Active Directory group? Hello, Can anyone tell me how to add a machine to an Active Directory group through scripting? The machine is a member of th Active Directory allready. I tried NET GROUP xx tt /ADD /DOMAIN, but this doesn't work for machines. I want to start the command from the machine, during update operations. From a batch-file, which runs under an domain administrator account, I cann add the machine to a domaingroup, through which it gets extra rights after a reboot. Windoos Tag: Enumerate ODBC Data Sources on all computers and write to file Tag: 188778
  - 11
    - Secure connection POST method Dear All, How may I establish an HTTP POST connection to a HTTPS server that is listening on port 443. I'm trying to access open a socket connection throgh Vbscript: But the response returned is : Bad Request Your browser sent a request that this server could not understand. Reason: You're speaking plain HTTP to an SSL-enabled server port. Instead use the HTTPS scheme to access this URL, please. Any help Tag: Enumerate ODBC Data Sources on all computers and write to file Tag: 188777
  - 12
    - How to find a word in a string? How to find a word, like "successful" in a string???? Thanks!!! Tag: Enumerate ODBC Data Sources on all computers and write to file Tag: 188774
  - 13
    - VBScript to add many computers to and group Guys help me please. I am still struggling with vbscript. This time I want to add large number of computers from text file to to a domain group. I wanna check if the computer already exist in the group, if not add it to the domain group. So far I have come across adding list of users to group by VB but not computers. I am using windows 2000 domain. Thank you very much you kind people. rgds Eric Tag: Enumerate ODBC Data Sources on all computers and write to file Tag: 188772
  - 14
    - Output script. Anybody know how to send the actions of a vbscript to a text file like the "spool" command in batch? Tag: Enumerate ODBC Data Sources on all computers and write to file Tag: 188767
  - 15
    - Help with script I have the below function in my logon script. I call sub scripts based on the gateway of the client. It works great except when a machine has more than one NIC. We have some laptops that have docking stations and the docking stations have a PCI NIC in them. I get the following error on these machines. "Type mismatch: 'oDg.DefaultIpGateway 800A000D VBScript Runtime Error" I am guessing all I need is an entry that tells this function to ignore any NIC that does not have a gateway. Could someone give me hand with such a syntax? I would appreciate it. Ben Function DefaultGateway DefaultGateway = Empty Dim oDG, oDGs, WMI Set WMI = GetObject("winmgmts:\\.\root\cimv2") Set oDGs = WMI.ExecQuery _ ("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE") For Each oDG in oDGs If Not IsNull (oDG.DefaultIPGateway) And Not oDG.defaultIPGateway(0) = "0.0.0.0" Then DefaultGateway = oDG.DefaultIPGateway(0) Exit For End If Next End Function Tag: Enumerate ODBC Data Sources on all computers and write to file Tag: 188762
  - 16
    - Login of the current connection I write small HTA utility which requests information from my ISP and shows me the report on the traffic (day, week, month) and account balance. My ISP provides paid and free-of-charge services. The type of the current service (paid or not) can be determined on login of the current connection. Login of the free-of-charge service always contains ":free" substring. I need to determine type of the current service in order to calculate current traffic correctly. How to get a login of the current connection in HTA? Not password, login only! I can see login in the Connection Properties dialog (Dial-up settings), but how to get this string in HTA? Tag: Enumerate ODBC Data Sources on all computers and write to file Tag: 188759
  - 17
    - Trouble writing script to run as scheduled task I have an application that oddly enough will ONLY run as a scheduled task. The app generates some reports in the background and is generally meant to be run after hours. I can create a scheduled task that runs a command from the command line with the appropriate switches. The problem is that I have almost 80 reports and I really don't want to maintain a scheduled task for each. I'd like to batch the reports together into daily, weekly, & monthly scripts (or by just passing in a reporting period command line switch into a single script). Since this app will not even run from the command line (remember it seems to require that it only run as a task), I can't seem to determine a way to do this. I've tried using a run command for the Wshell object with every conceivable initialization parameter. Does anyone have a suggestion as to how to accomplish this task? I've also tried this with a simple .bat file with the same results - the task will not run. Tag: Enumerate ODBC Data Sources on all computers and write to file Tag: 188751
  - 18
    - Network utilisation Hello! does anyone know a vbscript which could acquire the network utilisation of a specified network connection? Anyone that could help would be good thanks. Kyle.... Tag: Enumerate ODBC Data Sources on all computers and write to file Tag: 188748
  - 19
    - Dial-up connections How to get list of all available dial-up connections? Under Windows 2000, XP. Thanks. Tag: Enumerate ODBC Data Sources on all computers and write to file Tag: 188744
  - 20
    - Windows Scripting Help file in Italian hi Where can I find help file for windows scripting in Italian? Can only find it in Italian. Thanks Tag: Enumerate ODBC Data Sources on all computers and write to file Tag: 188742
  - 21
    - Restricting a Program. Hi, Is there any way I can use VBS to restrict a program to run on a client pc....? Like I want my users not to run windows media player. There are some other programs also which will be restricted in future by mgmt. Thanx in Advance. Jaydeep. Tag: Enumerate ODBC Data Sources on all computers and write to file Tag: 188735
  - 22
    - Bringing system out of standby or waking up the PC with a script (WMI?) Hello, Any ideas on how to bring a computer out of standby via a script? I'm thinking it may be possible with WMI. I think this must be possible since a program like PassMark's Sleeper can do a standby timer; and then bring the PC out of standby. Any ideas? Thanks, Matt Tag: Enumerate ODBC Data Sources on all computers and write to file Tag: 188722
  - 23
    - Desktop inventory Scripting Question Hello, I work for a small business with 25 remote branches with 100 computers in total. I started working for this company recently and my supervisor has given me the task of maintaining inventory of all these machines. I know that this is possible with WMI Remote scripting. But my question is; is it possible if all of these machines are not in any specific network. i.e. this company does not have a client-server environment. They are all just standalone machines connected to the internet. So, how do i go about doing this? Thanks, Gunnu Tag: Enumerate ODBC Data Sources on all computers and write to file Tag: 188721
  - 24
    - RegExp and special characters I found a perfect application for the RegExp replace method, removing a varying string of dots following a table entry. (March Madness is upon us.) Duke................ North Carolina...... Boston College...... NC State............ However, setting a RegExp "pattern" property to ".+" and running the "replace" method won't work because the dot is also a control character for the method. How do I work around this? -- Crash "There is nothing more exhilarating than to be shot at without result." ~ Winston Churchill ~ Tag: Enumerate ODBC Data Sources on all computers and write to file Tag: 188720
  - 25
    - WMI Changing subnet mask on multiple comp Thanks for reading this posting. I have a script that reads a text file and calls a function to modify its subnet mask. Script works fine except sometimes it works and sometimes it gives me an error as "remote procedure call failed" Code: 800706BE I belive it has something to do with Dcom time outs. i have manually added a line to sleep for a while but still my script crashes. Any help is well appreciated. Rick. SUB Fixsubmask(inputstr) strComputer = inputstr Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colNetAdapters = objWMIService.ExecQuery _ ("Select * from Win32_NetworkAdapterConfiguration where Ipenabled = true") strSubnetMask = Array("255.255.254.0") For Each objNetAdapter In colNetAdapters msgbox objNetAdapter.Caption If Not IsNull(objNetAdapter.IPAddress) Then For Each sIP In objNetAdapter.IPAddress msgbox sIP aIP = array(cStr(sIP)) msgbox aIP(0) Next End If errEnable = objNetAdapter.EnableStatic(aIP, strSubnetMask) WScript.Sleep 21000 Next End Sub Tag: Enumerate ODBC Data Sources on all computers and write to file Tag: 188710
- Next
  - 1
    - Is vbscript similar to msbasic? I have briefly looked at vbscript and it looks very much like msbasic. Is there a close similarity? Tag: Enumerate ODBC Data Sources on all computers and write to file Tag: 188706
  - 2
    - Scripts in console - color coding output Is there a way when running vb scripts in the console to change the color of the output dynamically. if error wscript.stdOut {in RED} "some error" if info wscript.stdOut {in White} "some error" etc. ? Any thoughts or help would be appreciated. Thank you! Tag: Enumerate ODBC Data Sources on all computers and write to file Tag: 188696
  - 3
    - Urgent Help - Delete 65 GB file using Active X Script Task Need help please. I am trying to delete the backup file which is 65 GB from a DTS package. I created an Active X Script task with the following VB Script. It looks for any files that are older than 2 days and deletes it. The problem is, when I run the dts it doesn't delete the file. It locks it. Looks like it is trying to delete it but not able to. if fc.count > 2 then For Each f1 in fc if f1.datecreated < (date - 2) then f1.delete end if Next end if Please help me. Thank you very much. Tag: Enumerate ODBC Data Sources on all computers and write to file Tag: 188695
  - 4
    - VbScript: Call Stored Procedure, error I called SP like this: ''Call stored procedure Set cmd = CreateObject("ADODB.Command") Set cmd.ActiveConnection = objConnection cmd.CommandText = "proc_MyNextId" cmd.CommandType = adCmdStoredProc cmd.Execute Wscript.echo "RetNewID:" & cmd(0) ----- But I got error message: ADODB.Command: Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another. BWT, The SP works and tested; CREATE PROCEDURE proc_MyNextId AS SET NOCOUNT ON DECLARE @NextId int BEGIN TRAN SELECT @NextId = tp_NextAvailableId FROM Lists WITH (UPDLOCK) WHERE tp_WebId = '{A796BF91-E848-45BF-8D27-5829F753248E}' AND tp_ID = '{D3578DBA-D26F-41F4-BFD8-F3B2A7363453}' UPDATE Lists SET tp_NextAvailableId = @NextId + 1 WHERE tp_WebId = '{A796BF91-E848-45BF-8D27-5829F753248E}' AND tp_ID = '{D3578DBA-D26F-41F4-BFD8-F3B2A7363453}' COMMIT TRAN RETURN @NextId GO Tag: Enumerate ODBC Data Sources on all computers and write to file Tag: 188694
  - 5
    - Getting Classes into my VBScript? I am a Sys Admin and I have written a simple VBScript with accompanying Class to go and Start/Stop Services on my network. (There are specific reasons why I wanted to use classes). I include my in class in my main VBScript file using the code: ------------------------------------------------------------------------- ExecuteGlobal CreateObject("Scripting.FileSystemObject").OpenTextFile("ServiceAction_Class.vbs").ReadAll Dim objServiceAction Dim objTemp Set objServiceAction = New ServiceAction objServiceAction.ComputerName = "MyMachine" objServiceAction.RetryAttempts = 1 objServiceAction.RetryInterval = 10000 strTemp = objServiceAction.StopService("Alerter") Wscript.echo strTemp -------------------------------------------------------------------------- Following this I instantiate my class and set properties etc - all works great when I run this main script. Now for my Issue - I have written a second class called WriteLog_Class.vbs, and when I try and call this into my main script along with the other class my script errors on the line of code where I try and call this second class: ------------------------------------- ExecuteGlobal CreateObject("Scripting.FileSystemObject").OpenTextFile("ServiceAction_Class.vbs").ReadAll ExecuteGlobal CreateObject("Scripting.FileSystemObject").OpenTextFile("TextFile_Class.vbs").ReadAll Dim objServiceAction Dim objTemp Set objServiceAction = New ServiceAction objServiceAction.ComputerName = "My Computer" objServiceAction.RetryAttempts = 1 objServiceAction.RetryInterval = 10000 strTemp = objServiceAction.StopService("Alerter") Wscript.echo strTemp strTemp = objServiceAction.StartService("Alerter") Wscript.echo strTemp Set objServiceAction = nothing Dim objTextFile Set objTextFile = New TextFile Set objTextFile = nothing ------------------------ Line:2 Char:1 Syntax Error 800A03EA ------------------------ Now for my Questions - what is the recommended way of calling Class files into a VBScript? How would I edit my code to accomodate this? Thank you R Tag: Enumerate ODBC Data Sources on all computers and write to file Tag: 188685
  - 6
    - copy file generic & recursivity & concatenation Hi, I try to write a sub routine to copy a type of file in a folder and subfolder (recursivity). For ex: C:\TEST\AAxx1\AAxx1.txt C:\TEST\AAxx1\AAxx1.001 C:\TEST\AAxx1\AAxx1.002 C:\TEST\AAxx2\AAxx2.txt C:\TEST\AAxx2\AAxx2.001 C:\TEST\AAxx2\AAxx2.002 C:\TEST\BBxx1\BBxx1.txt C:\TEST\BBxx1\BBxx1.001 C:\TEST\BBxx1\BBxx1.002 C:\OUT\AA.txt Question what type of file do you want to copy ? Answer: Type AA file .txt For each file in c:\TEST do select AA*.txt and copy in the same file (concatenation) c:\OUT\AA.txt If it was difficult a accept: c:\OUT\AAxx1.txt c:\OUT\AAxx2.txt and after with DOS Command copy AA*.txt AA.txt this is my vbs o< ********************************************************************* Option Explicit Dim Chemin Dim FSO Set FSO = CreateObject("Scripting.FileSystemObject") Chemin = "C:\TEST" Function Choice() Choice_etat = InputBox("would you Copy file ?" & vbCrLf & "Your choice:" & vbCrLf & vbCrLf & "Choice :" & vbCrLf & vbCrLf & "1> AA " & vbCrLf & "2> BB " & vbCrLf, "COPY FILE", "1") Choix_etat = Trim(Choice) End Function Select Case Choix_etat() Case "1" f_type = "AA" Case "2" f_type = "BB" Case Else WScript.Echo "Bye Bye !" WScript.Quit End Select ExploreFolder Chemin, 1 WScript.Quit Sub ExploreFolder (fld, Pas) Dim fso, d Dim sd, d1 Dim sf, f1,f_type Dim f2 f_type = "AA" Set fso = WScript.CreateObject("Scripting.FileSystemObject") If fso.FolderExists (fld) Then Set d = fso.GetFolder(fld) 'Tous les répertoires Set sf = d.Files For Each f1 in sf 'Tous les fichiers dans les répertoire' If Right(f1.name, 4) = ".txt" And Left(f1.name, 6) = f_type Then Set f2 = fso.GetFile(chemin & "\" & d.name & "\" & f1.name) f2.Copy ("C:\OUT\" & f_type & ".txt") End If Next Set sd = d.SubFolders For Each d1 in sd ExploreFolder d1.Path, Pas + 1 Next End If End Sub o< ********************************************************************* Sorry for my bad english Any help would be appreciated. Thanks! Tag: Enumerate ODBC Data Sources on all computers and write to file Tag: 188677
  - 7
    - Assistance Needed Hello, I have written a number of scripts to extract information from a spreadsheet with good success, but I recently hit a problem that I am not sure how to get around. I have an excel document with server names in column 1, and integer value (1-4) in column 5, and a group name (all uppercase characters) in column 6. I wrote a script to extract all of the server names into arrays based on the value of the integer in column 5 and then it outputs them into a second spreadsheet on a seperate worksheet for each of the values (1-3, I am using 4 as an exclusion, therefore the server names with a value of 4 are not extracted.). What I am trying to accomplish now is to extract server names into an array based on the group name in column 6. The problem I am facing is how I can run through the entire spreadsheet and dynamically create arrays based on individual group names in column 6. For instance, I want to read through the entire spreadsheet and check the values in column 6, every time I encounter a unique group name, I want to generate a new array. Once I have run through the list and created the arrays, I want to cycle through each server name in column 1 and put it in the appropriate array(group). There is one group, named "RETIRED", that I will be excluding. Here is some sample code from my other script which extracts the values based on column 4, any help in modifying it would be appreciated. ------------------------------------------------------------------------------------------- Option Explicit Dim objExcel Dim objWorkBook1 Dim objWorkBook2 Dim objShell Dim objNetwork Dim objFSO Dim strComputerName Dim strGroup Dim strFileName1 Dim strFileName2 Dim strMonth Dim strYear Dim intRow Dim arrGrp1() Dim arrGrp2() Dim arrGrp3() Dim t1 Dim t2 Dim t3 Dim strMsgValue Const xlValidateList = 3 Const xlThin = 2 Const xlContinuous = 1 Set objShell = WScript.CreateObject("WScript.Shell") Set objFSO = WScript.CreateObject("Scripting.FileSystemObject") Set objNetwork = WScript.CreateObject("WScript.Network") Set objExcel = WScript.CreateObject("Excel.Application") strFileName1 = "\\Server\D$\Tools\Patching.xls" strFileName2 = "\\Server\D$\Tools\Monthly\Patching-Metrics-" & GetMonth() & "-" & GetYear() & ".xls" If Not objFSO.FileExists(strFileName1) Then WScript.Echo "This script is unable to locate the following required file: " & strFileName1 & _ VbCrLf & "Please make sure that the file in question exists. Now exiting script." WScript.Quit End If Set objWorkBook1 = objExcel.Workbooks.Open(strFileName1) intRow = 2 t1 = 0 t2 = 0 t3 = 0 Do Until objExcel.Cells(intRow, 1).Value = "" strComputerName = objExcel.Cells(intRow, 1).Value strGroup = objExcel.Cells(intRow, 5).Value Select Case strGroup Case 1 ReDim Preserve arrGrp1(t1) arrGrp1(t1) = strComputerName t1 = t1 + 1 Case 2 Redim Preserve arrGrp2(t2) arrGrp2(t2) = strComputerName t2 = t2 + 1 Case 3 Redim Preserve arrGrp3(t3) arrGrp3(t3) = strComputerName t3 = t3 + 1 End Select intRow = intRow + 1 Loop objWorkBook1.Close(True) Set objWorkBook2 = objExcel.Workbooks.Add objWorkBook2.Worksheets.Add objWorkBook2.Worksheets(1).Name = "Week1" objWorkBook2.Worksheets(2).Name = "Week2" objWorkBook2.Worksheets(3).Name = "Week3" objWorkBook2.Worksheets(4).Name = "Monthly Metrics" 'objExcel.Visible = True BuildHeader("Week1") BuildHeader("Week2") BuildHeader("Week3") BuildSheets arrGrp1, "Week1" AddWeeklyMetrics arrGrp1, "Week1" BuildSheets arrGrp2, "Week2" AddWeeklyMetrics arrGrp2, "Week2" BuildSheets arrGrp3, "Week3" AddWeeklyMetrics arrGrp3, "Week3" BuildMonthlyMetrics() AutoFitSheets() objExcel.ActiveWorkBook.Sheets("Week1").Select If Not objFSO.FileExists(strFileName2) Then objExcel.ActiveWorkbook.SaveAs(strFileName2) objExcel.Quit() Else strMsgValue = MsgBox("The file for this month already exists. Would you like to overwrite the existing file?" & VbCrLf & _ "Warning: All changes made to the existing file will be lost!", vbYesNo) If strMsgValue = vbYes Then objExcel.DisplayAlerts = False objExcel.ActiveWorkbook.SaveAs(strFileName2) objExcel.DisplayAlerts = True objExcel.Quit() Else WScript.Echo "You have chosen not to overwrite the existing file. Now displaying generated excel document, " & _ "Please choose Save As from the File menu and manually save this file to a new location or close the file." objExcel.Visible = True End If End If Sub BuildSheets(arr1, sh1) Dim intRow Dim objWorkSheet Dim n intRow = 2 Set objWorkSheet = objExcel.ActiveWorkbook.Worksheets(sh1) objWorkSheet.Select For n = 0 to UBound(arr1) objExcel.Cells(intRow, 1).Value = arr1(n) objExcel.Cells(intRow, 1).BorderAround xlContinuous, xlThin objExcel.Cells(intRow, 2).Validation.Add xlValidateList,,,"YES,NO" objExcel.Cells(intRow, 2).Value = "YES" objExcel.Cells(intRow, 2).BorderAround xlContinuous, xlThin intRow = intRow + 1 Next End Sub Sub AddWeeklyMetrics(arr1, sh1) Dim intCount Dim strFailureRate Dim strSuccessRate Dim strTotalFailed Dim strTotalSuccess intCount = UBound(arr1)+ 1 strFailureRate = "=E3/E1"'number failed divided by total count formatted as a percentage strSuccessRate = "=100%-H2" '100% - failure percentage strTotalFailed = "=COUNTIF(" & sh1 & "!B2:B2000," & """NO""" & ")" 'Count the number of NO values in column B strTotalSuccess = "=COUNTIF(" & sh1 & "!B2:B2000," & """YES""" & ")" 'Count the number of YES values in column B objExcel.Worksheets(sh1).Select With objExcel.Cells(1,4) .Value = "Total Number of Servers:" .Font.Bold = True .BorderAround xlContinuous, xlThin .Interior.ColorIndex = 48 End With With objExcel.Cells(1,5) .Value = intCount .BorderAround xlContinuous, xlThin .Font.Bold = True .Interior.ColorIndex = 48 End With With objExcel.Cells(2,4) .Value = "Successful:" .BorderAround xlContinuous, xlThin .Font.Bold = True .Interior.ColorIndex = 48 End With With objExcel.Cells(2,5) .Formula = strTotalSuccess .BorderAround xlContinuous, xlThin .Font.Bold = True .Interior.ColorIndex = 48 End With With objExcel.Cells(3,4) .Value = "Failed:" .BorderAround xlContinuous, xlThin .Font.Bold = True .Interior.ColorIndex = 48 End With With objExcel.Cells(3,5) .Formula = strTotalFailed .BorderAround xlContinuous, xlThin .Font.Bold = True .Interior.ColorIndex = 48 End With With objExcel.Cells(1, 7) .Value = "Success Percentage" .Font.Bold = True .BorderAround xlContinuous, xlThin .Interior.ColorIndex = 5 End With With objExcel.Cells(1, 8) .Formula = strSuccessRate .NumberFormat = "0.00%" .Font.Bold = True .BorderAround xlContinuous, xlThin .Interior.ColorIndex = 5 End With With objExcel.Cells(2, 7) .Value = "Failure Percentage" .Font.Bold = True .BorderAround xlContinuous, xlThin .Interior.ColorIndex = 3 End With With objExcel.Cells(2, 8) .Formula = strFailureRate .Font.Bold = True .BorderAround xlContinuous, xlThin .Interior.ColorIndex = 3 .NumberFormat = "0.00%" End With End Sub Sub BuildHeader(strSheetName) Dim intRow Dim objWorkSheet intRow = 1 Set objWorkSheet = objExcel.ActiveWorkbook.Worksheets(strSheetName) objWorkSheet.Select objExcel.Cells(intRow, 1).Value = "Server Name" objExcel.Cells(intRow, 1).BorderAround xlContinuous, xlThin objExcel.Cells(intRow, 1).Interior.ColorIndex = 48 objExcel.Cells(intRow, 1).Font.Bold = True objExcel.Cells(intRow, 2).Value = "Success" objExcel.Cells(intRow, 2).BorderAround xlContinuous, xlThin objExcel.Cells(intRow, 2).Interior.ColorIndex = 48 objExcel.Cells(intRow, 2).Font.Bold = True End Sub Function GetMonth() Dim currDate Dim currMonth currDate = Now currMonth = DatePart("m", currDate) Select Case currMonth Case 1 GetMonth = "January" Case 2 GetMonth = "February" Case 3 GetMonth = "March" Case 4 GetMonth = "April" Case 5 GetMonth = "May" Case 6 GetMonth = "June" Case 7 GetMonth = "July" Case 8 GetMonth = "August" Case 9 GetMonth = "September" Case 10 GetMonth = "October" Case 11 GetMonth = "November" Case 12 GetMonth = "December" End Select End Function Function GetYear() Dim currDate Dim currYear currDate = Now currYear = DatePart("yyyy", currDate) GetYear = currYear End Function Sub AutoFitSheets() Dim sheet Dim objRange Dim objWorkSheet For Each sheet In objExcel.ActiveWorkbook.Sheets sheet.Select Set objWorkSheet = objExcel.ActiveSheet Set objRange = objWorksheet.UsedRange objRange.EntireColumn.Autofit() Next End Sub Sub BuildMonthlyMetrics() Dim arrCells Dim arrFills Dim i Dim n objExcel.ActiveWorkbook.Sheets("Monthly Metrics").Select arrCells = Array(1, 1, 2, 1, 3, 1, 5, 1, 6, 1, 1, 2, 2, 2,3, 2, 5, 2, 6, 2, _ 1, 4, 2, 4, 3, 4, 5, 4, 6, 4, 1, 5, 2, 5, 3, 5, 5, 5, 6, 5, _ 1, 7, 2, 7, 3, 7, 5, 7, 6, 7, 1, 8, 2, 8, 3, 8, 5, 8, 6, 8, _ 1, 10, 2, 10, 3, 10, 5, 10, 6, 10, 1, 11, 2, 11, 3, 11, 5, 11, 6, 11)' array of cell coordinates for metric sheet arrFills = Array(4, 1, 4, 2, 4, 4, 4, 5, 4, 7, 4, 8, 4, 10, 4, 11) For i = 0 To UBound(arrCells) Step 2 With objExcel.Cells(arrCells(i),arrCells(i+1)) .Font.Bold = True .BorderAround xlContinuous, xlThin .Interior.ColorIndex = 41 End With Next For n = 0 To UBound(arrFills) Step 2 With objExcel.Cells(arrFills(n), arrFills(n+1)) .BorderAround xlContinuous, xlThin .Interior.ColorIndex = 1 End With Next 'Build Monthly Section objExcel.Cells(1,1).Value = "Monthly Server Total" objExcel.Cells(2,1).Value = "Monthly Successful" objExcel.Cells(3,1).Value = "Monthly Failure" objExcel.Cells(5,1).Value = "Success Percentage" objExcel.Cells(6,1).Value = "Failure Percentage" objExcel.Cells(1,2).Formula = "=SUM(Week1!E1,Week2!E1,Week3!E1)" objExcel.Cells(2,2).Formula = "=SUM(Week1!E2,Week2!E2,Week3!E2)" objExcel.Cells(3,2).Formula = "=SUM(Week1!E3,Week2!E3,Week3!E3)" objExcel.Cells(5,2).Formula = "=100%-B6" objExcel.Cells(5,2).NumberFormat = "0.00%" objExcel.Cells(6,2).Formula = "=B3/B1" objExcel.Cells(6,2).NumberFormat = "0.00%" 'Build Week 1 Section objExcel.Cells(1,4).Value = "Week 1 Server Total" objExcel.Cells(2,4).Value = "Week 1 Successful" objExcel.Cells(3,4).Value = "Week 1 Failure" objExcel.Cells(5,4).Value = "Success Percentage" objExcel.Cells(6,4).Value = "Failure Percentage" objExcel.Cells(1,5).Formula = "=SUM(Week1!E1)" objExcel.Cells(2,5).Formula = "=SUM(Week1!E2)" objExcel.Cells(3,5).Formula = "=SUM(Week1!E3)" objExcel.Cells(5,5).Formula = "=100%-E6" objExcel.Cells(5,5).NumberFormat = "0.00%" objExcel.Cells(6,5).Formula = "=E3/E1" objExcel.Cells(6,5).NumberFormat = "0.00%" 'Build Week 2 Section objExcel.Cells(1,7).Value = "Week 2 Server Total" objExcel.Cells(2,7).Value = "Week 2 Successful" objExcel.Cells(3,7).Value = "Week 2 Failure" objExcel.Cells(5,7).Value = "Success Percentage" objExcel.Cells(6,7).Value = "Failure Percentage" objExcel.Cells(1,8).Formula = "=SUM(Week2!E1)" objExcel.Cells(2,8).Formula = "=SUM(Week2!E2)" objExcel.Cells(3,8).Formula = "=SUM(Week2!E3)" objExcel.Cells(5,8).Formula = "=100%-H6" objExcel.Cells(5,8).NumberFormat = "0.00%" objExcel.Cells(6,8).Formula = "=H3/H1" objExcel.Cells(6,8).NumberFormat = "0.00%" 'Build Week 3 Section objExcel.Cells(1,10).Value = "Week 3 Server Total" objExcel.Cells(2,10).Value = "Week 3 Successful" objExcel.Cells(3,10).Value = "Week 3 Failure" objExcel.Cells(5,10).Value = "Success Percentage" objExcel.Cells(6,10).Value = "Failure Percentage" objExcel.Cells(1,11).Formula = "=SUM(Week3!E1)" objExcel.Cells(2,11).Formula = "=SUM(Week3!E2)" objExcel.Cells(3,11).Formula = "=SUM(Week3!E3)" objExcel.Cells(5,11).Formula = "=100%-K6" objExcel.Cells(5,11).NumberFormat = "0.00%" objExcel.Cells(6,11).Formula = "=K3/K1" objExcel.Cells(6,11).NumberFormat = "0.00%" End Sub ---------------------------------------------------------------------------------------------- Jim Gregg Tag: Enumerate ODBC Data Sources on all computers and write to file Tag: 188674
  - 8
    - Importing certificate in IE using VBS Does anyone know how to import a certificate in Internet Explorer during logon using vbscript? Any help would be appreciated. Regards Arjan Tag: Enumerate ODBC Data Sources on all computers and write to file Tag: 188672
  - 9
    - VBScript and Win2000 Scheduled Tasks Hi there, I have a script that closes and restarts an exe application (I had to write it because the application sometimes stops responding but I don't have time to debug and correct the problem). If I run the script from the command line, it works greatly. I have then created a scheduled task to make the script run every two hours. If I right click the job from the Scheduled Tasks window, it works greatly (that is it closes the application, then opens it up again). Problem is, when it runs as scheduled, it does its job correcly, but it does not show the application window! I can see it as a runing process, it works, but there is no window interface availlable! The Script looks like this: Dim sProgramPath Dim sProgramName sProgramName = "notepad.exe" sProgramPath = "" Set oShell = CreateObject("WScript.Shell") Set oWmi = GetObject("winmgmts:") sWmiq = "select * from Win32_Process where name='" & sProgramName & "'" Set oQResult = oWmi.Execquery(sWmiq) For Each oProcess In oQResult iRet = oProcess.Terminate(1) Next oShell.Run """" & (sProgramPath & sProgramName) & """" Set oShell = Nothing Set oWmi = Nothing (i am using, for testing purpose, the notepad application) In scheduled task I execute the script using that command: %SystemRoot%\System32\WScript.exe c:\mypath\myscript.vbs Anyone can reproduce the problem and tell me the solution? Thanks and regards, D. Tag: Enumerate ODBC Data Sources on all computers and write to file Tag: 188671
  - 10
    - Comparison Script Components with Script Classes Hello everybody, the last days I started to make myself familiarised with VBScript. Now I would like to have some advice from more experienced programmers. I do not really figure out, how the concepts of Script Components and Script Classes differ and for what use cases they are intended. I) Both are quite similar: (1) They give the opportunity to define public methods and properties to encapsulate the modules. (2) Each can produce an object by calling: Class: "new objectClass = New classname" Component: "new objectComponent = GetObject(ComponentName) And one can use the objects functions over the same syntax: object.function II) But there are some differences: (1) With Components all code around the defined functions and classes is executed on the creation of a component-object. (Dirty for class definitions - what is the sense of this?) (2) With classes one can define constructors and destructors like in C++ (sub class_initialize and sub class_terminate). That doesn't seem to work with components. (3) It doesn't seem to work to define classes in components and make the definition usable to the calling script. (..) perhaps there are some more I didn't figure out yet III) Ways to use them (1) Classes seem to be one way to write reusable libraries. I could define my classes each in a separate .vbs-file. Then including the necessary class-definitions to my .wsf-s by a xml tag like: <script language="VBScript" src="filename.vbs"> (2) An other way would be to create a component for each kind of object I need. Then creating the objects with Set objectComponent = GetObject (...) IV) Best Practice What would you advice to me. How do you build your strictly object-oriented libraries in VBScript? How do you build mixed procedural / object-oriented libraries. I would be very happy if someone could provide me with some information about best practices on this field. Thank you very much in advance, Melanie Desaive Tag: Enumerate ODBC Data Sources on all computers and write to file Tag: 188670
  - 11
    - LOGIN SCRIPT Here is my script: The new script! ' VBScript logon script program. ' ' ---------------------------------------------------------------------- ' Copyright (c) 2006 Exploitatie Maatschappij Bieze bv ' Version 1.0 - Maart 2006 Option Explicit Dim objNetwork, objSysInfo, strUserDN Dim objGroupList, objUser, objFSO Dim strComputerDN, objComputer Dim WshShell, SHell Dim oFS, oWS Dim strHomeDrive Set objNetwork = CreateObject("Wscript.Network") Set objFSO = CreateObject("Scripting.FileSystemObject") Set objSysInfo = CreateObject("ADSystemInfo") strUserDN = objSysInfo.userName strComputerDN = objSysInfo.computerName Set WshShell = WScript.CreateObject("WScript.Shell") Set Shell = CreateObject("Shell.Application") Set oWS = WScript.CreateObject("WScript.Shell") Set oFS = WScript.CreateObject("Scripting.FileSystemObject") ' Bind to the user and computer objects with the LDAP provider. Set objUser = GetObject("LDAP://" & strUserDN) Set objComputer = GetObject("LDAP://" & strComputerDN) 'NEPTUNUS ' Map a network drive if the user is a member of the group. If IsMember(objUser, "dlNpPS-R") Then objNetwork.MapNetworkDrive "F:", "\\en-dc01\Persoonlijk Neptunus\" & objNetwork.UserName ,True End If If IsMember(objUser, "dlNpGZ-R") Then objNetwork.MapNetworkDrive "G:", "\\en-dc01\Gezamenlijk Neptunus" ,True End If If IsMember(objUser, "dlNpAPPL-R") Then objNetwork.MapNetworkDrive "H:", "\\en-dc01\Appl Neptunus" ,True End If If IsMember(objUser, "dlNpINSTAL-R") Then objNetwork.MapNetworkDrive "I:", "\\en-dc01\Installatie Neptunus" ,True End If 'Outlook Const sOrgFile = "c:\documents and settings\%username%\Outlook.txt" If IsFile(sOrgFile) Then 'Nothing Else WshShell.Run "OUTLOOK.EXE /importprf \\biezegroep.net\sysvol\BIEZEGROEP.NET\scripts\Neptunus\Inlog\NPoutlook.prf" ,True On Error Resume Next End If ' Clean up. Set objNetwork = Nothing Set objFSO = Nothing Set objSysInfo = Nothing Set objGroupList = Nothing Set objUser = Nothing Set objComputer = Nothing Set oWS = Nothing Set oFS = Nothing Function IsMember(objADObject, strGroup) ' Function to test for group membership. ' objGroupList is a dictionary object with global scope. If IsEmpty(objGroupList) Then Set objGroupList = CreateObject("Scripting.Dictionary") End If If Not objGroupList.Exists(objADObject.sAMAccountName & "\") Then Call LoadGroups(objADObject, objADObject) objGroupList(objADObject.sAMAccountName & "\") = True End If IsMember = objGroupList.Exists(objADObject.sAMAccountName & "\" _ & strGroup) End Function Function IsFile(fName) On Error Resume Next If oFS.FileExists(fName) Then IsFile = True Else IsFile = False On Error Goto 0 End Function Sub LoadGroups(objPriObject, objADSubObject) ' Recursive subroutine to populate dictionary object objGroupList. Dim colstrGroups, objGroup, j objGroupList.CompareMode = vbTextCompare colstrGroups = objADSubObject.memberOf If IsEmpty(colstrGroups) Then Exit Sub End If If TypeName(colstrGroups) = "String" Then Set objGroup = GetObject("LDAP://" & colstrGroups) If Not objGroupList.Exists(objPriObject.sAMAccountName & "\" _ & objGroup.sAMAccountName) Then objGroupList(objPriObject.sAMAccountName & "\" _ & objGroup.sAMAccountName) = True Call LoadGroups(objPriObject, objGroup) End If Set objGroup = Nothing Exit Sub End If For j = 0 To UBound(colstrGroups) Set objGroup = GetObject("LDAP://" & colstrGroups(j)) If Not objGroupList.Exists(objPriObject.sAMAccountName & "\" _ & objGroup.sAMAccountName) Then objGroupList(objPriObject.sAMAccountName & "\" _ & objGroup.sAMAccountName) = True Call LoadGroups(objPriObject, objGroup) End If Next Set objGroup = Nothing End Sub AND my new problem: 'Outlook Const sOrgFile = "c:\documents and settings\%username%\Outlook.txt" If IsFile(sOrgFile) Then 'Nothing Else WshShell.Run "OUTLOOK.EXE /importprf \\biezegroep.net\sysvol\BIEZEGROEP.NET\scripts\Neptunus\Inlog\NPoutlook.prf" ,True On Error Resume Next End If What i want is: When a user loged in this script look on his documents and settings folder if the "outlook.txt" file exist. If this file exist then there is nothing to do... if this file NOT exist then must the outlook profile be installed... and there must be created a "outlook.txt" in the documents and settings file %username% Can you help? Thanks Tag: Enumerate ODBC Data Sources on all computers and write to file Tag: 188669
  - 12
    - How to use Sleep and DoEvents in HTA application? How to use Sleep and DoEvents in HTA application? Tag: Enumerate ODBC Data Sources on all computers and write to file Tag: 188667
  - 13
    - Does vbscript have a goto command? JavaScript does not have a gote command, but I am unfamilar with vbscript. Also, will vbscript run in Netscape? Tag: Enumerate ODBC Data Sources on all computers and write to file Tag: 188653
  - 14
    - Replacing a line in a text file How can I replace one line in a text file? I'm trying: Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFileName = objFSO.OpenTextFile("teste.txt") Do While objFileName.AtEndOfStream <> True If objFileName.Readline = "felipe" Then objFileName.WriteLine("foi") End If Loop But I'm receiving "Bad file mode". Can you help me guys? Thanks!!! Felipe Tag: Enumerate ODBC Data Sources on all computers and write to file Tag: 188650
  - 15
    - A way to deny access to a certain web address using a script ? Is there a way to deny access to a certain web address using a script ? Tag: Enumerate ODBC Data Sources on all computers and write to file Tag: 188644
  - 16
    - File compare script running slowly. Is there anything I can do to get this to do the compare faster or more efficently? I have to run this against 5 gigs of data composed of about 40,000 files and it takes a very long time to run. (copying updated GIS information to field use laptops) Option Explicit Dim oFSO Set oFSO = CreateObject("Scripting.FileSystemObject") 'When calling the subroutine the format of the directories should be "c:\test" ReplicateFolders oFSO, "\\trail\fldv_build\seg1\0", "C:\OA\FIELDVIEW\DISCONNECTED\SEG1\0" ReplicateFolders oFSO, "\\trail\fldv_build\seg1\attrdata", "C:\OA\FIELDVIEW\DISCONNECTED\SEG1\ATTRDATA" ReplicateFolders oFSO, "\\trail\fldv_build\rules", "C:\OA\FIELDVIEW\DISCONNECTED\RULES" ReplicateFolders oFSO, "\\snopud\root\fldvdata\bmp2", "C:\OA\FIELDVIEW\BMP" ReplicateFolders oFSO, "\\snopud\root\fldvdata\cfg2", "C:\OA\FIELDVIEW\DISCONNECTED\CFG" ReplicateFolders oFSO, "\\snopud\root\fldvdata\dgn2", "C:\OA\FIELDVIEW\DISCONNECTED\DGN" ReplicateFolders oFSO, "\\snopud\root\fldvdata\docs2", "C:\OA\FIELDVIEW\DISCONNECTED\DOCS" ReplicateFolders oFSO, "\\snopud\root\fldvdata\refmaps2", "C:\OA\FIELDVIEW\REFMAPS" ReplicateFolders oFSO, "\\snopud\root\fldvdata\ug", "C:\UG" ReplicateFolders oFSO, "\\snopud\root\fldvdata\laptops\data", "C:\DATA\EXCEL" ReplicateFolders oFSO, "\\snopud\root\fldvdata\laptops\standards", "C:\DATA\STANDARDS" ReplicateFolders oFSO, "\\snopud\root\fldvdata\laptops\updates", "C:\OA\FIELDVIEW\UPDATES" ReplicateFolders oFSO, "\\snopud\root\fldvdata\peds", "C:\DATA\PEDS" MsgBox "Finished Fieldview Data Copy" '****************** ' Sub ReplicateFolders ' ' This procedure replicates between the source and the destination ' directories at the folder level. A recursive search is done ' between the 2 directories and folders compared. If a particular ' folder on the source does not exist on the destination at any level then the ' source folder and all folders and files associated with it are ' copied to the destination. If a particular folder on the destination ' does not exist on the source at any level then the destination folder ' is removed from the destination directory. ' '****************** Sub ReplicateFolders (oFSO, strSourcefolderpath, strDestinationfolderpath) Dim aFolderArraySource Dim aFolderArrayDestination Dim FolderListSource Dim FolderListDestination Dim oFolderSource Dim oFolderDestination Dim bSourceExists Dim bDestinationExists On Error Resume Next If Not oFSO.FolderExists(strDestinationfolderpath) Then oFSO.CreateFolder (strDestinationfolderpath) Set aFolderArraySource = oFSO.GetFolder(strSourcefolderpath) Set aFolderArrayDestination = oFSO.GetFolder(strDestinationfolderpath) Set FolderListSource = aFolderArraySource.SubFolders Set FolderListDestination = aFolderArrayDestination.SubFolders ' Compare to see if destination folder does not exist. If it does not ' then copy from the source. For Each oFolderSource in FolderListSource bDestinationExists = 0 For each oFolderDestination in FolderListDestination If oFolderSource.Name = oFolderDestination.Name then bDestinationExists = 1 Exit For End If Next If bDestinationExists = 0 then oFolderSource.Copy strDestinationfolderpath & "\" Else 'This is the recursive bit. Traverse the path one level down ReplicateFolders oFSO, strSourcefolderpath & "\" & oFolderSource.Name, strDestinationfolderpath & "\" & oFolderDestination.Name End if Next ' After taking care of the folders, deal with the files at each folder level. ReplicateFiles oFSO, strSourcefolderpath, strDestinationfolderpath ' Compare to see if a folder on the destination drive does not exist ' in the source directory. If this is the case then delete the destination ' folder. 'For Each oFolderDestination in FolderListDestination ' bSourceExists = 0 ' For each oFolderSource in FolderListSource ' If oFolderDestination.Name = oFolderSource.Name then ' bSourceExists = 1 ' Exit For ' End If ' Next ' If bSourceExists = 0 then ' oFSO.DeleteFolder strDestinationfolderpath & "\" & oFolderDestination.Name, true ' End if 'Next End Sub '****************** ' Sub ReplicateFiles ' ' This procedure replicates between the source and the destination ' directories at the file level. ' If a particular file on the source does not exist on the destination ' at any level then the source file is copied to the destination. ' If a particular file on the destination directory ' does not exist on the source at any level then the destination file ' is removed from the destination directory. ' '****************** Sub ReplicateFiles (oFSO, strSourcefolderpath, strDestinationfolderpath) Dim aFileArraySource Dim aFileArrayDestination Dim FileListSource Dim FileListDestination Dim oFileSource Dim oFileDestination Dim bSourceExists Dim bDestinationExists On Error Resume Next Set aFileArraySource = oFSO.GetFolder(strSourcefolderpath) Set aFileArrayDestination = oFSO.GetFolder(strDestinationfolderpath) Set FileListSource = aFileArraySource.Files Set FileListDestination = aFileArrayDestination.Files ' Comparing the array entry properties (name and date last modified) of each array. ' If the source file array entry matches the destination file array entry then ' the source file is not copied to the destination directory. ' Otherwise, the source file is copied to the destination directory and ' any existing copy of the same file in the destination directory ' is overwritten. For each oFileSource in FileListSource bDestinationExists = 0 For each oFileDestination in FileListDestination If oFileSource.Name = oFileDestination.Name then If oFileSource.DateLastModified = oFileDestination.DateLastModified Then bDestinationExists = 1 Exit For End If End If Next If bDestinationExists = 0 then oFileSource.Copy strDestinationfolderpath & "\" & oFileSource.Name End If Next ' Comparing the array entry properties (name and date last modified) of each array. ' If the destination file array entry matches the source file array entry then ' the destination file is not deleted from the destination directory. ' Otherwise, the destination file is deleted from the destination directory. 'For each oFileDestination in FileListDestination ' bSourceExists = 0 ' For each oFileSource in FileListSource ' If oFileDestination.Name = oFileSource.Name then ' If oFileDestination.DateLastModified = oFileSource.DateLastModified Then ' bSourceExists = 1 ' Exit For ' End If ' End If ' Next ' If bSourceExists = 0 then ' oFSO.DeleteFile strDestinationfolderpath & "\" & oFileDestination.Name,true ' End If 'Next End Sub Tag: Enumerate ODBC Data Sources on all computers and write to file Tag: 188641
  - 17
    - DeleteFile in a HTA Hi, I am writing a HTA to move a PST file from one server to another. Here is the SUB I get no errors, but nothing gets copied or deleted. Any help would be appriciated. '----------------------------------------------------------<8>------------------------------------------------------------------ Sub MovePst Set WshShell = CreateObject("WScript.Shell") Set FSO = CreateObject("Scripting.FileSystemObject") statval.value = " " UserName = Trim(UN.Value) PstFile = Trim(FN.Value) drvl = Trim(DL.Value) dFile = "\\newServer\Users\" & UserName & "\" & PstFile nFile = "\\OldServer\" & drvl & "$\" & "Users" & "\" & UserName & "\" & PstFile qFile = "\\wfsmnsv2nfs02\Users\" & UserName statval.value = statval.value & dFile & VbCrLf statval.value = statval.value & nFile & VbCrLf FSO.DeleteFile dFile, True If Err.Number <> 0 Then statval.value = "Error deleting File " & PstFile End If FSO.CopyFile nFile, "qFile" If Err.Number <> 0 Then statval.value = "Error copying File " & PstFile End If End Sub '-------------------------------------------------------<8>------------------------------------------------------------------------ Mike Tag: Enumerate ODBC Data Sources on all computers and write to file Tag: 188640
  - 18
    - ASP Error, newbie needs quick help Hi there, I am trying to do a basic asp command to see whats going on with my asp and I get this error Error Type: Microsoft VBScript compilation (0x800A03EA) Syntax error /wffm/test.asp, line 3, column 15 Response.Write('hello world') --------------^ Browser Type: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 2.0.50727; .NET CLR 1.1.4322) Page: GET /wffm/test.asp Time: Thursday, March 09, 2006, 1:53:58 PM More information: Microsoft Support The command that I tried to run was abasic test.asp <% Response.Write('hello world') %> To go back from that, I downloaded a asp file and I get the same error as above, what am I missing and or how can I fix it. thanks Tag: Enumerate ODBC Data Sources on all computers and write to file Tag: 188637
  - 19
    - How to search the special word in the Event Message Description? For example, in the Event Message Description. It is: Description: msnmsgr (1768) The database engine stopped. For more information, see Help and Support Center at http://go.microsoft.com/fwlink/events.asp. Then how can I use vbscript: (objItem.Message) to check if the word "1768" is contained in this event description? Thanks!!! Tag: Enumerate ODBC Data Sources on all computers and write to file Tag: 188634
  - 20
    - Need Help - Process running - I just want a box saying so - without buttons I have a process running that is extracting Excel data into an Access database. Once the user selects "OK" from a message box - I would like to display a message saying "Conversion Process Underway" while the process is running behind it. I don't want the user to have to click anything. This message will go away when the conversion is concluded. Thank you, CW Tag: Enumerate ODBC Data Sources on all computers and write to file Tag: 188633
  - 21
    - ADSI and NDS help I have an environment with both Active Directory and eDirectory. I am trying to locate a user object in eDirectory via LDAP using ADSI. The query i the script below runs successfully in ldp.exe; however, when I run the script below, I receive the error Type Mismatch with code 800A000D. eDirectory is LDAP v3 compliant, so I would think this would work Dim conn Dim rs Set conn = CreateObject("ADODB.Connection") conn.Provider = "ADSDSOObject" conn.Open "ADs Provider" Set rs = conn.Execute("<LDAP://Server>;" & _ "(mail=xxxx@xxxxxx);sn;subtree") While Not rs.EOF wscript.echo rs.Fields(0).Value rs.MoveNext Wend conn.Close Has anyone worked with this type of scenario? Is there something I am missing? I know I can use the ADSI NDS provider, but I prefer to use LDAP. Thanks, Brian Burns Tag: Enumerate ODBC Data Sources on all computers and write to file Tag: 188632
  - 22
    - Searching For File Types & Report Hi all, long time listener, first time caller. I am looking for a way to call a search for specific file extensions and then send me a report, perferably by e-mail, but will settle with some sort of file. Thanks for your input. Bill Tag: Enumerate ODBC Data Sources on all computers and write to file Tag: 188631
  - 23
    - Jsut modify value uin config file (textfile) hi, i' search a solution to "just" modify" a value in a file like this : <add key="somekey1" avlue="xxx"> <add key="somekey2" avlue="yyy"> <add key="somekey3" avlue="zzz"> to <add key="somekey1" avlue="xxx"> <add key="somekey2" avlue="AAA"> <add key="somekey3" avlue="zzz"> i' found some example of script to write in a file or find value, but without comment... and i'm a newbi scripter :) Thx Tag: Enumerate ODBC Data Sources on all computers and write to file Tag: 188630
  - 24
    - Office Document Version Property, Version Controll hi all I looking for a function or whatever to find out wich version from Office create the file if I try the "buildInDocumentProperties" I can' t see the Version from Office is there any way to find out wich version from office Set objDoc = GetObject(strFile) On Error Resume Next For Each objProp In objDoc.BuiltinDocumentProperties WScript.Echo objProp.Name, objProp.Value Next thx for any kind of help klaus Tag: Enumerate ODBC Data Sources on all computers and write to file Tag: 188628
  - 25
    - Script to copy files Here is the short version of what I'm trying to do. I'd like to take a text file of computer names and copy 1 file from each computer listed in the text file and copy the file to a new location. the log file name is the same on each computer so I'd like to be able to rename the log file name from log.file to log.file.computername. Any ideas? Tag: Enumerate ODBC Data Sources on all computers and write to file Tag: 188627

I am not a programmer, but in preparation for a SQLnet rollout, we need
to poll the computers on our network to determine what ODBC definitions
they have.

To get ODBC connections, I believe we'd need a means of enumerating the
values of these two registry keys:

HKEY_LOCAL_MACHINE/SOFTWARE/ODBC/ODBC.INI/ODBC Data Sources
HKEY_CURRENT_USER/SOFTWARE/ODBC/ODBC.INI/ODBC Data Sources

Is there any way, perhaps with VBScript, to gather this type of
information and write it to a file?

If you're aware of any code that has been written to accomplish
something like this, I'd certainly be most appreciative!

Top

Re: Enumerate ODBC Data Sources on all computers and write to file by Dave

Dave
Mon Mar 13 21:03:03 CST 2006

You might give this a go.

http://www.codeproject.com/cs/database/sdbODBCMngr.asp

--

Regards,

Dave Patrick ....Please no email replies - reply in newsgroup.
Microsoft Certified Professional
Microsoft MVP [Windows]
http://www.microsoft.com/protect

"Joanne" wrote:
|I am not a programmer, but in preparation for a SQLnet rollout, we need
| to poll the computers on our network to determine what ODBC definitions
| they have.
|
| To get ODBC connections, I believe we'd need a means of enumerating the
| values of these two registry keys:
|
| HKEY_LOCAL_MACHINE/SOFTWARE/ODBC/ODBC.INI/ODBC Data Sources
| HKEY_CURRENT_USER/SOFTWARE/ODBC/ODBC.INI/ODBC Data Sources
|
| Is there any way, perhaps with VBScript, to gather this type of
| information and write it to a file?
|
| If you're aware of any code that has been written to accomplish
| something like this, I'd certainly be most appreciative!
|

Top