Help with Access and VBScript please

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
    - Weird Type Mismatch Error I'm stuck on this one - I can't figure out why it's giving me a type mismatch error. I get the error on the line inside the "IF" statement that assigns the value in the array to a variable: RegionNumber = BranchCodes(x) But if I remove that line, I'll get a type mismatch at the execution of the SQL statement, and I *KNOW* the SQL is correct and works, as I've tried that query directly on the DB. Any suggestions? /bw --------------- CODE BELOW -------------------- DIM BranchCodes(10) BranchCodes(0) = "R00" BranchCodes(1) = "R01" BranchCodes(2) = "R02" BranchCodes(3) = "R03" BranchCodes(4) = "R04" BranchCodes(5) = "R05" BranchCodes(6) = "R06" BranchCodes(7) = "R07" BranchCodes(8) = "R08" BranchCodes(9) = "R09" DIM objConn,objRS,strSQL,RegionNumber,x 'look up the region for this specific branch Set objConn = Server.CreateObject("ADODB.Connection") Set objRS = Server.CreateObject("ADODB.Recordset") objConn.Open strDataConnect for x = 1 to 9 'loop through once for each branch number strSQL = "SELECT Region,RegionName,Location FROM BranchData WHERE Region = '" & BranchCodes(x) & "'" Set objRS = objConn.Execute(strSQL) If NOT objRS.EOF Then RegionNumber = BranchCodes(x) Else Response.Write("<P>Invalid Region Information</P>") Response.End() End If Script continues.... Tag: Help with Access and VBScript please Tag: 151329
  - 2
    - There is a object order declaration ?! I don't know what append to my PC, but from today I have this problem: if I write a simple vbs script with this 2 line : Set oFSO = CreateObject("Scripting.FileSystemObject") Set WSHShell = CreateObject("WScript.Shell") I get a error on line 2: The specified procedure could not be found If I invert the order: Set WSHShell = CreateObject("WScript.Shell") Set oFSO = CreateObject("Scripting.FileSystemObject") I don't have problem !!! Now all my old script could not be used anymore why I get the error I mention, but Why ? The only think I remeber I done in tha last day was to install .Net Framework. Thak's for any help Tag: Help with Access and VBScript please Tag: 151323
  - 3
    - how to Script ? Hi, Can I change the wallpaper using VBscript ? Thanks Chris Tag: Help with Access and VBScript please Tag: 151318
  - 4
    - Variables from one script to another Hi... I posted this before, but probably didn't explain my self well... I need to have a script that declares and sets a value for some vb variables, and want to have the value in these variables available in other script... Here is what I do : I have a master script that calls other scripts... 1st script called from master script, it declares and sets values for some variables ... ex : Public appver1 appver1 = "V9_4_2" 2nd script called from master script would use the variables set in 1st script to do execute actions with it... ex : WshEnv("Var1") = appver1 How can this be done ... The value is "appver1" is not necessary outside of the vb environment... Reason is that 1st script will be modified by a lot of people, but don't want them to modify other script... Thanks very much !!! -- -- Houman Yahyaei ( CCNA, MCSE Win 2000/NT 4.0, MCT ) IT Training and Consulting www.formationhy.com Houman@formationhy.com Tag: Help with Access and VBScript please Tag: 151311
  - 5
    - VBScript to Export Registry Key Hello, I am trying to build a script that exports a single registry key under HKEY_LOCAL_MACHINE\SOFTWARE\Comapny Name\Product Name\Sites\ and all of the subkeys. Can this be done. I have looked all over Google and can't find anything on it. Please let me know. Thanks, Robbie Tag: Help with Access and VBScript please Tag: 151309
  - 6
    - Create Users ! This is a multi-part message in MIME format. ------=_NextPart_000_002F_01C3DE82.D66A20A0 Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable Hi Scripting Guys !!!! So, my script read a file text where is a list of users what must be = create, this create de user and register this action on Excell File, the = scritp of create users if it is running on a separate mode it=B4s run = perfect, when I use it on the middle of process I=B4d receive this error = code: "A device attached to the system is not functioning " Error Code : 8007001F Line 49: --> objUser.SetInfo Please Help Me !" Kind Regards Rafael Brum Astrana Text File Format: --------------------------------------------------------------------- "User1","My name is 1", "passw1" "User2","My name is 2", "passw2" "User3","My name is 3", "passw3" "User4","My name is 4", "passw4" This is the script:=20 ---------------------------------------------------- x=3D0 Const ForReading =3D 1 Const ForAppending =3D 8 Const ADS_PROPERTY_APPEND =3D 3 Row =3D 2 Set XL =3D WScript.CreateObject("Excel.Application") Set objFSO =3D CreateObject("Scripting.FileSystemObject") Set objTextFile =3D objFSO.OpenTextFile _ (".\arquivo.txt", ForReading) Call CreateTable() Do Until objTextFile.AtEndOfStream Call Process() Loop ' --------------------------------------------- Function Process() strNextLine =3D objTextFile.Readline arrServiceList =3D Split(strNextLine , ",") username =3D arrServiceList(0) For i =3D 1 To Ubound(arrServiceList) If X =3D 0 Then name =3D arrServiceList(i) X =3D 1 Else Passw =3D arrServiceList(i) X =3D 0 End If Next Call CreateUser(username, name, passw) End Function Sub CreateUser(username, name, passw) strUserName =3D username=20 Set objConnection =3D CreateObject("ADODB.Connection") objConnection.Open "Provider=3DADsDSOObject;" Set objCommand =3D CreateObject("ADODB.Command") objCommand.ActiveConnection =3D objConnection objCommand.CommandText =3D _=20 = "<LDAP://portoalegre.pucrsnet.br/dc=3Dportoalegre,dc=3Dpucrsnet,dc=3Dbr>;= (&(objectCategory=3DUser)" & _ "(samAccountName=3D" & strUserName & = "));samAccountName,distinguishedName;subtree" : Set objRecordSet =3D objCommand.Execute If objRecordset.RecordCount =3D 0 Then objConnection.Close=20 Set objOU =3D = GetObject(LDAP://ou=3DAlunos,ou=3DAcad,dc=3DMyChildDomain,dc=3DMyHolder,d= c=3DMyHolder1) Set objUser =3D objOU.Create("User", "cn=3D" & username) objUser.Put "sAMAccountName", username objUser.Put "userPrincipalName", username & = "@MyChildDomain.MyHolder.MyHolder1" objUser.SetInfo Set objUser =3D GetObject ("LDAP://cn=3D" & username & = ",ou=3DAlunos,ou=3DAcad,dc=3DMyChildDomain,dc=3DMyHolder,dc=3DMyHolder1")= objUser.AccountDisabled =3D False objuser.displayName =3D Trim(name) objUser.SetPassword passw objUser.Put "pwdLastSet", 0 objuser.description =3D "HR" objuser.HomeDrive =3D "H" objuser.HomeDirectory =3D "\\MyFileServer\" & username & "$" objuser.scriptpath =3D "S_H.bat" objUser.SetInfo Call Register(username, name, passwd) End If End Sub Function CreateTable() XL.Visible =3D True Set Book =3D XL.WorkBooks.Add XL.Columns(1).ColumnWidth =3D 20 XL.Columns(2).ColumnWidth =3D 20 XL.Cells(1, 1).Value =3D "Username" XL.Cells(1, 2).Value =3D "Nome" XL.Cells(1, 3).Value =3D "Senha" XL.Range("A1:C1").Select XL.Selection.Font.Bold =3D True XL.Selection.Font.Italic =3D True XL.Selection.Font.Size =3D 18 End Function=20 Sub Saveas() TheDate =3D Date TheDate =3D Replace(TheDate, "/", "-") Suggestion =3D "Usu=E1rios Criados " & TheDate & ".xls" FileName =3D XL.GetSaveasFilename(Suggestion) If FileName <> False Then Book.SaveAs(FileName) End If End Sub Sub Registro(Username, Nome, senha) XL.Cells(Row, 1).Value =3D Username XL.Cells(Row, 2).Value =3D Name XL.Cells(Row, 3).Value =3D Passw Row =3D Row + 1 XL.Cells(Row, 1).Select End Sub=20 call Saveas() Wscript.echo "See Ya At next user=B4s List" ------=_NextPart_000_002F_01C3DE82.D66A20A0 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.2800.1276" name=3DGENERATOR> <STYLE></STYLE> </HEAD> <BODY> <DIV><FONT face=3DArial size=3D2>Hi Scripting Guys !!!!</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>So, my script read a file text where is = a list of=20 users what must be create, this create de user and register this action = on=20 Excell File, the scritp of create users if it is running on a separate = mode it=B4s=20 run perfect, when I use it on the middle of process I=B4d receive this = error=20 code:</FONT></DIV> <DIV><FONT face=3DArial size=3D2>"A device attached to the system is not = functioning=20 "</FONT></DIV> <DIV><FONT face=3DArial size=3D2>Error Code : 8007001F</FONT></DIV> <DIV><FONT face=3DArial size=3D2>Line 49: --> = objUser.SetInfo</FONT></DIV> <DIV><FONT face=3DArial size=3D2>Please Help Me !"</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>Kind Regards</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>Rafael Brum Astrana</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>Text File Format:</FONT></DIV> <DIV><FONT face=3DArial=20 size=3D2>----------------------------------------------------------------= -----</FONT></DIV> <DIV><FONT face=3DArial size=3D2>"User1","My name is 1", = "passw1"</FONT></DIV> <DIV><FONT face=3DArial size=3D2>"User2","My name is 2", = "passw2"</FONT></DIV> <DIV> <DIV><FONT face=3DArial size=3D2>"User3","My name is 3", = "passw3"</FONT></DIV> <DIV><FONT face=3DArial size=3D2>"User4","My name is 4", = "passw4"</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>This is the script: </FONT></DIV> <DIV><FONT face=3DArial=20 size=3D2>----------------------------------------------------</FONT></DIV= ></DIV> <DIV><FONT face=3DArial size=3D2>x=3D0</FONT></DIV> <DIV><FONT face=3DArial size=3D2>Const ForReading =3D 1</FONT></DIV> <DIV><FONT face=3DArial size=3D2>Const ForAppending =3D 8</FONT></DIV> <DIV><FONT face=3DArial size=3D2>Const ADS_PROPERTY_APPEND =3D = 3</FONT></DIV> <DIV><FONT face=3DArial size=3D2>Row =3D 2</FONT></DIV> <DIV><FONT face=3DArial size=3D2>Set XL =3D=20 WScript.CreateObject("Excel.Application")</FONT></DIV> <DIV><FONT face=3DArial size=3D2>Set objFSO =3D=20 CreateObject("Scripting.FileSystemObject")</FONT></DIV> <DIV><FONT face=3DArial size=3D2>Set objTextFile =3D objFSO.OpenTextFile = _</FONT></DIV> <DIV><FONT face=3DArial size=3D2>(".\arquivo.txt", = ForReading)</FONT></DIV> <DIV><FONT face=3DArial size=3D2>Call CreateTable()</FONT></DIV> <DIV><FONT face=3DArial size=3D2>Do Until = objTextFile.AtEndOfStream</FONT></DIV> <DIV><FONT face=3DArial size=3D2>   Call = Process()</FONT></DIV> <DIV><FONT face=3DArial size=3D2>   Loop</FONT></DIV> <DIV><FONT face=3DArial size=3D2>'=20 ---------------------------------------------</FONT></DIV> <DIV><FONT face=3DArial size=3D2>Function Process()</FONT></DIV> <DIV><FONT face=3DArial size=3D2>   strNextLine =3D=20 objTextFile.Readline</FONT></DIV> <DIV><FONT face=3DArial size=3D2>   arrServiceList =3D = Split(strNextLine ,=20 ",")</FONT></DIV> <DIV><FONT face=3DArial size=3D2>   username =3D=20 arrServiceList(0)</FONT></DIV> <DIV><FONT face=3DArial size=3D2>   For i =3D 1 To=20 Ubound(arrServiceList)</FONT></DIV> <DIV><FONT face=3DArial size=3D2>       If = X =3D 0=20 Then</FONT></DIV> <DIV><FONT face=3DArial size=3D2>       = name =3D=20 arrServiceList(i)</FONT></DIV> <DIV><FONT face=3DArial size=3D2>       X = =3D=20 1</FONT></DIV> <DIV><FONT face=3DArial size=3D2>   Else</FONT></DIV> <DIV><FONT face=3DArial = size=3D2>       Passw =3D=20 arrServiceList(i)</FONT></DIV> <DIV><FONT face=3DArial = size=3D2>       X =3D=20 0</FONT></DIV> <DIV><FONT face=3DArial size=3D2>    End If</FONT></DIV> <DIV><FONT face=3DArial size=3D2>Next</FONT></DIV> <DIV><FONT face=3DArial size=3D2>    Call = CreateUser(username, name,=20 passw)</FONT></DIV> <DIV><FONT face=3DArial size=3D2>End Function</FONT></DIV> <DIV> </DIV> <DIV><FONT face=3DArial size=3D2>Sub CreateUser(username, name, = passw)</FONT></DIV> <DIV><FONT face=3DArial size=3D2>    strUserName =3D = username=20 </FONT></DIV> <DIV><FONT face=3DArial size=3D2>    Set objConnection = =3D=20 CreateObject("ADODB.Connection")</FONT></DIV> <DIV><FONT face=3DArial size=3D2>    objConnection.Open=20 "Provider=3DADsDSOObject;"</FONT></DIV> <DIV><FONT face=3DArial size=3D2>    Set objCommand =3D=20 CreateObject("ADODB.Command")</FONT></DIV> <DIV><FONT face=3DArial size=3D2>    = objCommand.ActiveConnection =3D=20 objConnection</FONT></DIV> <DIV><FONT face=3DArial size=3D2>    = objCommand.CommandText =3D _=20 </FONT></DIV> <DIV><FONT face=3DArial size=3D2>   =20 "<LDAP://portoalegre.pucrsnet.br/dc=3Dportoalegre,dc=3Dpucrsnet,dc=3Db= r>;(&(objectCategory=3DUser)"=20 & _</FONT></DIV> <DIV><FONT face=3DArial size=3D2>    "(samAccountName=3D" = &=20 strUserName & = "));samAccountName,distinguishedName;subtree"</FONT></DIV> <DIV><FONT face=3DArial size=3D2>    : Set objRecordSet = =3D=20 objCommand.Execute</FONT></DIV> <DIV><FONT face=3DArial size=3D2>  If objRecordset.RecordCount = =3D 0=20 Then</FONT></DIV> <DIV><FONT face=3DArial size=3D2>    objConnection.Close=20 </FONT></DIV> <DIV><FONT face=3DArial size=3D2>    Set objOU =3D = GetObject(<A=20 href=3D"ldap://ou=3DAlunos,ou=3DAcad,dc=3DMyChildDomain,dc=3DMyHolder,dc=3D= MyHolder1">LDAP://ou=3DAlunos,ou=3DAcad,dc=3DMyChildDomain,dc=3DMyHolder,= dc=3DMyHolder1</A>)</FONT></DIV> <DIV><FONT face=3DArial size=3D2>    Set objUser =3D=20 objOU.Create("User", "cn=3D" & username)</FONT></DIV> <DIV><FONT face=3DArial size=3D2>    objUser.Put = "sAMAccountName",=20 username</FONT></DIV> <DIV><FONT face=3DArial size=3D2>    objUser.Put = "userPrincipalName",=20 username & "@<U><FONT=20 color=3D#0000ff>MyChildDomain.MyHolder.MyHolder1</FONT></U>"</FONT></DIV>= <DIV><FONT face=3DArial size=3D2>    = objUser.SetInfo</FONT></DIV> <DIV><FONT face=3DArial size=3D2>    Set objUser =3D = GetObject=20 ("LDAP://cn=3D" & username & ",<U><FONT=20 color=3D#0000ff>ou=3DAlunos,ou=3DAcad,dc=3DMyChildDomain,dc=3DMyHolder,dc= =3DMyHolder1</FONT></U>")</FONT></DIV> <DIV><FONT face=3DArial size=3D2>    = objUser.AccountDisabled =3D=20 False</FONT></DIV> <DIV><FONT face=3DArial size=3D2>    objuser.displayName = =3D=20 Trim(name)</FONT></DIV> <DIV><FONT face=3DArial size=3D2>    objUser.SetPassword=20 passw</FONT></DIV> <DIV><FONT face=3DArial size=3D2>    objUser.Put = "pwdLastSet",=20 0</FONT></DIV> <DIV><FONT face=3DArial size=3D2>    objuser.description = =3D=20 "HR"</FONT></DIV> <DIV><FONT face=3DArial size=3D2>    objuser.HomeDrive = =3D=20 "H"</FONT></DIV> <DIV><FONT face=3DArial size=3D2>    = objuser.HomeDirectory =3D=20 "\\MyFileServer\" & username & "$"</FONT></DIV> <DIV><FONT face=3DArial size=3D2>    objuser.scriptpath = =3D=20 "S_H.bat"</FONT></DIV> <DIV><FONT face=3DArial size=3D2>    = objUser.SetInfo</FONT></DIV> <DIV><FONT face=3DArial size=3D2>    Call = Register(username, name,=20 passwd)</FONT></DIV> <DIV><FONT face=3DArial size=3D2>   End If</FONT></DIV> <DIV><FONT face=3DArial size=3D2>End Sub</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>Function CreateTable()</FONT></DIV> <DIV><FONT face=3DArial size=3D2>    XL.Visible =3D = True</FONT></DIV> <DIV><FONT face=3DArial size=3D2>   Set Book =3D=20 XL.WorkBooks.Add</FONT></DIV> <DIV><FONT face=3DArial size=3D2>   XL.Columns(1).ColumnWidth = =3D=20 20</FONT></DIV> <DIV><FONT face=3DArial size=3D2>   XL.Columns(2).ColumnWidth = =3D=20 20</FONT></DIV> <DIV><FONT face=3DArial size=3D2>    XL.Cells(1, 1).Value = =3D=20 "Username"</FONT></DIV> <DIV><FONT face=3DArial size=3D2>   XL.Cells(1, 2).Value =3D=20 "Nome"</FONT></DIV> <DIV><FONT face=3DArial size=3D2>    XL.Cells(1, 3).Value = =3D=20 "Senha"</FONT></DIV> <DIV><FONT face=3DArial size=3D2>   = XL.Range("A1:C1").Select</FONT></DIV> <DIV><FONT face=3DArial size=3D2>   XL.Selection.Font.Bold =3D = True</FONT></DIV> <DIV><FONT face=3DArial size=3D2>   XL.Selection.Font.Italic = =3D=20 True</FONT></DIV> <DIV><FONT face=3DArial size=3D2>   XL.Selection.Font.Size =3D = 18</FONT></DIV> <DIV><FONT face=3DArial size=3D2>End Function </FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>Sub Saveas()</FONT></DIV> <DIV><FONT face=3DArial size=3D2>    TheDate =3D = Date</FONT></DIV> <DIV><FONT face=3DArial size=3D2>    TheDate =3D = Replace(TheDate, "/",=20 "-")</FONT></DIV> <DIV><FONT face=3DArial size=3D2>    Suggestion =3D = "Usu=E1rios Criados "=20 & TheDate & ".xls"</FONT></DIV> <DIV><FONT face=3DArial size=3D2>    FileName =3D=20 XL.GetSaveasFilename(Suggestion)</FONT></DIV> <DIV><FONT face=3DArial size=3D2>    If FileName <> = False=20 Then</FONT></DIV> <DIV><FONT face=3DArial = size=3D2>       =20 Book.SaveAs(FileName)</FONT></DIV> <DIV><FONT face=3DArial size=3D2>    End If</FONT></DIV> <DIV><FONT face=3DArial size=3D2>End Sub</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>Sub Registro(Username, Nome, = senha)</FONT></DIV> <DIV><FONT face=3DArial size=3D2>   XL.Cells(Row, 1).Value =3D = Username</FONT></DIV> <DIV><FONT face=3DArial size=3D2>   XL.Cells(Row, 2).Value =3D = Name</FONT></DIV> <DIV><FONT face=3DArial size=3D2>   XL.Cells(Row, 3).Value =3D = Passw</FONT></DIV> <DIV><FONT face=3DArial size=3D2>   Row =3D Row + = 1</FONT></DIV> <DIV><FONT face=3DArial size=3D2>   XL.Cells(Row, = 1).Select</FONT></DIV> <DIV><FONT face=3DArial size=3D2>End Sub </FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>call Saveas()</FONT></DIV> <DIV><FONT face=3DArial size=3D2>Wscript.echo "See Ya At = next user=B4s List"=20 </FONT></DIV></BODY></HTML> ------=_NextPart_000_002F_01C3DE82.D66A20A0-- Tag: Help with Access and VBScript please Tag: 151305
  - 7
    - URL and/or complete command that calls a script. Hey all, I have a script that does something based on parameters entered when the script is run. This works fine. However, I need to call my script from within a 3rd-party app (Crystal Reports). Due to limitations in this app, the script is called by a hyperlink (as if it were from IE or so). I cannot use spaces in the hyperlink, only thing that will really run the script is file:///mypath/myscript.vbs?param1=12345&param2=54698 Anyone got a clue how to retrieve the params from this hyperlink? IE is not shown in the process, the script just starts when clicking on a hyperlink... Thanx in advance. (PS for the Crystal people: can't use UDF) -- Clouds® Tag: Help with Access and VBScript please Tag: 151304
  - 8
    - VBScript error: Please Help I am getting a Path Not Found error on a path that I know is correct. Can anyone tell me what I might be doing wrong? Here is what the code looks like: Dim FSO, Infile, YR, path path = "\\server\depts\GAL\GALLogs\" YR=DatePart("YYYY", Date) set FSO = createObject("Scripting.FileSystemObject") set Infile = FSO.OpenTextFile(path & YR & "\YrToDate\Email.log", 1, False) I have tried different methods of building the actual path in the OpenTextFile line and have had no success. Any help or suggestions would be greatly appreciated. Thanks in advance. Chuck Tag: Help with Access and VBScript please Tag: 151302
  - 9
    - font Hi, Is it possible to change the font when sending email using CDO and Textbody(Don't want to use HTMLBody)? Thanks. Tag: Help with Access and VBScript please Tag: 151300
  - 10
    - Browse for Folder in Exchange Hello, I am not a programmer, so apologies if I am asking stupid questions... I have created a customised form for use in exchange/outlook. I have customised a page and added a webbrowser window. Using a (stolen) script, I am able to display a folder list within this window by adding a command button which asks the user to input a folder path. I would like to add a command button that opens a 'browse for folder' dialog box allowing the user to select the appropriate directory and display the folder contents within the webbrowser window. I have found a script (with several variations) on the web which apparently does this, but this won't run in the script page due to various errors (expected end of statement, syntax error etc.). As I don't know vbscript, I can't troubleshoot the problems... If anybody could help me out, it would be very much appreciated... Thanks in advance, Mike. Tag: Help with Access and VBScript please Tag: 151297
  - 11
    - IP dns question I have a series of websites, let's call them "customer1.mydomain.co.uk" --> "customer200.mydomain.co.uk". Each URL is bound to an individual IP address which can be resolved using nslookup. So, for example customer1.mydomain.co.uk = 100.200.300.1 customer200.mydomain.co.uk = 100.200.300.200 However, I can't fit all these 200 websites on the same server, so I have bought 4 servers, serverA -> serverD. I have arbitrarily put customer 1-50 on serverA, customer 51-100 on serverB etc. Having set all this up, I now find that customers 1-50 represent most of the load, so I want to distribute the load a bit more evenly. You can imagine the scenario. As part of my Admin tools, I've created a display that does dynamic lookups of the URLs and returns me the IP address from the DNS A record. However, I want to have some way of finding out which machine this IP is actually bound to. I'm constantly migrating dealers from one server to another and keeping track of this manually is too great a headache. Does anyone know of a method of saying "I've know the web site address by a) the URL and b) the IP address, I now need to find out the name of the server on which it is bound". Each server has a primary IP address that is "permanent" and not associated with any customers' web site. Any ideas? Thanks Griff Tag: Help with Access and VBScript please Tag: 151296
  - 12
    - error '80004005' with attachment The following script, when sent without "myMail.AttachFile(fileToSend)" works perfectly. When I add the attachment, however, I get an "error '80004005' Unspecified error " with a reference to the line referring to the attachment. Does anyone have any idea why that might be? Thanks Code: <% DIM fileToSend fileToSend = Request.Form("attachedfile") Response.Write(fileToSend) Set myMail = Server.CreateObject("CDONTS.Newmail") myMail.From=Request.Form("senderID") myMail.To=Request.Form("recipientID") myMail.Subject=Request.Form("mailSubject") myMail.Body=Request.Form("mailBody") myMail.AttachFile(fileToSend) myMail.Send %> ********************************************************************** Sent via Fuzzy Software @ http://www.fuzzysoftware.com/ Comprehensive, categorised, searchable collection of links to ASP & ASP.NET resources... Tag: Help with Access and VBScript please Tag: 151292
  - 13
    - Change cursor How can I change system cursor to wait (hourglass) during WScript execution (not in browser) Tnx Tag: Help with Access and VBScript please Tag: 151291
  - 14
    - lastIndexOf in VBScript Hello, Can anyone tell me where I can find some info on how to use string.lastIndexOf("?") in VBScript. I thought it was possible, but can't make it work. All contributions greatly appreciated. Thanks ********************************************************************** Sent via Fuzzy Software @ http://www.fuzzysoftware.com/ Comprehensive, categorised, searchable collection of links to ASP & ASP.NET resources... Tag: Help with Access and VBScript please Tag: 151288
  - 15
    - Consuming a web service Hi Someone has given me the URL of a "web service". It's something like: "http://www.someHost.com/service.asp?input=value What happens is I send it an input key and an associated value and it returns a set of values. I have to write an ASP page (not .NET) that calls this page and loads the return value into a variant and I'm not sure quite how to achieve this. Presume it's dead easy though... Any pointers would be most appreciated. Thanks Griff Tag: Help with Access and VBScript please Tag: 151287
  - 16
    - Share permission How can I add/remove users on my network share (\\server\share1 ) using vbscript? Dusan Tag: Help with Access and VBScript please Tag: 151285
  - 17
    - manipulate shape in PowerPoint with VBS Can I manipulate a shape on an non active slide in PowerPoint, for exampel make it visible? Any ideas? Thanks, Christoffer Tag: Help with Access and VBScript please Tag: 151284
  - 18
    - How to detect How I can detect all running instances of IE and retrive URLs of pages oppened in those instances? Regards, Tamir Tag: Help with Access and VBScript please Tag: 151283
  - 19
    - AddAttachment not using NTLM authentication Help! A more serious problem than the last post. It seems that AddAttachment (of the CDOSYS message object) does not want to pass ntlm credentials on to the asp page passed to AddAttachment. -- Our site uses integrated authentication only. -- The asp script that uses CDOSYS has integrated authentication turned on. -- The asp script behind the url is on the same site and server, and has integrated authentication turned on. -- The site has been set up as "trusted" in IE on the server. -- There is no proxy set up in IE. -- The server is running XP. -- Debugging to the event log shows the correct user for CDOSYS script, but the attachment url script shows the IWAM_{MachineName}user Thanks Andrew Tag: Help with Access and VBScript please Tag: 151277
  - 20
    - File System Object Hi, I have a list of files generated by winzip on one textfile if I open it using notepad it displays correctly but when I use the file system object opentextfile and readall and send it through email the display is different from using notepad the alignment is not the same. Any idea how not to mess up the alignment? Thank you in advance. Tag: Help with Access and VBScript please Tag: 151276
  - 21
    - MSI: Scripting Problem Hello world, I try to call a VBS script as a custom action from within an MSI installation. But when I access the WScript object in my script, it will not run, and the MSI installer will exit with an error message (even if the script runs fine when called directly via wscript.exe). I now suspect that the Windows Installer MSI system has its own scripting host and does not use WSH so that the WScript object is not available. Am I right? The point why I wanted to access WScript is that I need access to the "CustomActionData" that the MSI passes to my script. (I believed that the "CustomActionData" is passed in form of command line arguments, and therefore wanted to access it via WScript.Arguments.) Could anyone please tell me how to go to access the "CustomActionData" that is passed from MSI installers to VBS scripts? Is there a working alternative for the WScript object? Jens Tag: Help with Access and VBScript please Tag: 151275
  - 22
    - w2k CDO AddAttachment Hello, I am successfully sending emails with attachments using CDOSYS (CDO for windows 2000). I use the AddAttachment method and pass a url to a web page in our system that produces reports. Is there any way the link used in AddAttachment can pass variables to the body part or the message? The most obvious would be http header variables returned in the response - but i haven't had any success with these, the AddAttachment method seems to ignore them(inspecting ADO Fields collections reveals the standard settings). Any ideas? The reason I want to do this is to inspect a record count to determine if the mail should be sent, at this stage it looks like I'll have to hide it in the report and pull it out of the body part's ADO stream. Not the most efficient method. Thanks, Andrew Tag: Help with Access and VBScript please Tag: 151271
  - 23
    - Enumerate installed Certificates through VB Script All Im wanting to query the certificates installed in the trusted rootCA on the local machine when running through a VBScript. Now this can be queried using the certutil.exe utility, however Im hoping that we can connect to and query the certs through VBScript .... The reason I want to acheive this is that the client is wanting to ensure that only certified SOE machines are connecting to the network remotely and this will be part of the VPN Quarantine through 2003. Any ideas on this one please ? Cheers Sean Tag: Help with Access and VBScript please Tag: 151267
  - 24
    - Variables set in one script to be avaible in other scripts Hi, I want to define and set variables in one script, but have value contained in those variables available in other scripts that run after it... Here is a little more detail : I have 1 logon script that calls upon 5 other scripts, depending on group membership and other conditions... 1 of those 5 scripts sets variables for some applications, the problem is that the value contained in those variables are not available to other script... Here is an example of the script containing the variables : Public Appvar1 ( chosen public instead of DIM, thought it would make it available to other scripts ) Appvar1 = "123456" In other scripts, I put the content of this variable into en environment variable : Set WshEnv = Wshshell.Environment("User") WshEnv("NameApp1") = Appvar1 if I put both the first part and second part in the same script, it works, my problem is that the script containing the variables will be modified frequently by about 20 different people, but don't want them to modify and mess up the other more complex script... Could some one tell me how to set this... Is it with : Wshshell.Environment("PROCESS") or some other way... Thanks !!! -- -- Houman Yahyaei ( CCNA, MCSE Win 2000/NT 4.0, MCT ) IT Training and Consulting www.formationhy.com Houman@formationhy.com Tag: Help with Access and VBScript please Tag: 151249
  - 25
    - Scripting Internet Explorer... I'm currently using internet explorer to navigate to a web page and then click on a button. There are two buttons on this page. The following is the HTML code. <input type=submit name=button value=edit> <input type=submit name=button value=delete> I want to click on the delete button. Currently, I use th following code to do so. oIE.Document.Forms(0).Item("button")(0).Click Which works fine but I was wondering is there a more "correct" way to do this by refering to the button you want to click on by value? I want my code to work even if they switch the order of the buttons. I was thinking something along the lines of oIE.Document.Forms(0).Item("button")("Delete").Click Am I on the right track here? -J Tag: Help with Access and VBScript please Tag: 151246
- Next
  - 1
    - help with select folder script for .hta file Hi, I am working on an .hta aplication and need to select a folder. I found a nice script which i think will work but need to modify it a bit i think. I can find my way around javascript but not vbsript. I have an html button that, when pressed, will call this script. I want to embed this into my .hta file so when the button is pressed, it calls this function and i can select a folder. Here is my Form and Button, I want the function to be 'selectSourceFolder'. <form name="sourceFolderForm"> <INPUT name="sourceFolderButton" TYPE="BUTTON" onClick="(onClickPath(selectSourceFolder())" VALUE="Set" > </form> So I need to modify below to be a function 'selectSourceFolder' and I see that it set the path to be 'PathFileBrowse' Const ValueRoot = "&h17" Const sStartFolder = 17 'This value specify folder/browsing options Call BrowseForFolder("Choose a folder", &h17, sStartFolder) Call ShowFileList(PathFileBrowse) Call ReadFileSearchKey() Call ListResults() Function BrowseForFolder(strPrompt, BrowseInfo, root) On Error Resume Next Dim oShell, oFolder, intColonPos, oWshShell Set oShell = CreateObject("Shell.Application") Set oWshShell = CreateObject("WScript.Shell") Set oFolder = oShell.BrowseForFolder(0, strPrompt, BrowseInfo, root) BrowseForFolder = oFolder.ParentFolder.ParseName(oFolder.Title).Path If Err.Number > 0 Then BrowseForFolder = Null If oFolder.Title = "Desktop" Then BrowseForFolder = owshshell.SpecialFolders("Desktop") End If intColonPos = InStr(oFolder.Title, ":") If intColonPos > 0 Then BrowseForFolder = Mid(oFolder.Title, intColonPos - 1, 2) & "\" End If End If PathFileBrowse = BrowseForFolder End Function One other thing, I am using Dreamweaver to edit my .hta file and this line in particular seemed to give it problems BrowseForFolder = Mid(oFolder.Title, intColonPos - 1, 2) & "\" any thoughts? thanks, Chuck Tag: Help with Access and VBScript please Tag: 151234
  - 2
    - Windows NT 3.x detection Hello World, Torgeir posted a link to an approach to determine the OS version by reading registry values (see "VBScript Beginner's Questions"). However, the function does not seem to account for Windows NT 3.x versions. Question: May the "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\CurrentVersion" value also be used to detect Windows NT 3.x versions? I would guess it delivers 3.x values in this case, but I cannot check as I have no NT 3.x available. Could anyone please try and post his results? Jens Tag: Help with Access and VBScript please Tag: 151233
  - 3
    - Type mismatch problem OK, I can't seem to figure out this Type Mismatch error I keep getting. I have a ASP VBScript going here: ------------ Function IsPicture(objFile) Dim arrFileParts(2),fileName arrFileParts = Split(objFile.Name,".") If arrFileParts(1) = "jpg" Or arrFileParts(1) = "jpeg" Then IsPicture = true ElseIf arrFileParts(1) = "bmp" Or arrFileParts(1) = "gif" Then IsPicture = true ElseIf arrFileParts(1) = "png" Then IsPicture = true End If IsPicture = false End Function ------------ And the following lines proceeding the above script: ------------ Dim fsoObj,objFolder,objFile,intCount,num Const strPath = "images/" Set fsoObj = Server.CreateObject("Scripting.FileSystemObject") Set objFolder = fsoObj.GetFolder(Server.MapPath(strPath)) ------------ I've been sitting here for a solid hour and a half tinkering with it and I have turned up nothing, I am a rookie by the way, go easy on me, haha. Your help is much appreciated. ~Les Peabody Tag: Help with Access and VBScript please Tag: 151229
  - 4
    - SetLocale Question Hello world, when I alter the locale setting in a VBScript (SetLocale), will the change only be valid within that VBScript file or will it permanently change the computer's locale setting (even after the script is done)? Jens Tag: Help with Access and VBScript please Tag: 151226
  - 5
    - How to parse HREF and text from <A> Hi, My VB Code is: Set m_oHREF_RegExp = New RegExp With m_oHREF_RegExp .Global = True .IgnoreCase = True .MultiLine = False '??? True or False??? .Pattern = "<A([\s\S]+?)HREF=""*(.+?)""*([\s\S]+?)>([\s\S]+?)</A>" End With Set m_oRemoveTag_RegExp = New RegExp With m_oRemoveTag_RegExp .Global = True .IgnoreCase = True .MultiLine = False '??? True or False??? .Pattern = "<[\s\S]+?>" End With Set ms = m_oHREF_RegExp.execute(s) for each m in ms dim url as string dim nm as string url = m.submatchs(1) nm = m_oRemoveTag_RegExp.Replace(m.submatchs(3),"") ... next m This code seems works but i can not trust it. Because it may lost some linkage, i donot know why! I test it in many sites, test parsing URL linkages ( drag and drop url text from IE ), i find not all the linkage are parsed! Any one has some robustic code? My TLB is VBScript.DLL version 5.5 Tag: Help with Access and VBScript please Tag: 151225
  - 6
    - Copying two lines of text. I am automating the combining of 2 text files and need to now how to copy 2 lines from "title.txt" file to "daily.txt". Then copy all of "c2daily.txt" to "daily.txt" I have found how to append c2daily.txt to daily.txt, but can not find how to copy the two lines from title.txt to daily.txt first. Can any one help me with this script? Tag: Help with Access and VBScript please Tag: 151224
  - 7
    - Enable/Disable Scripting Host through code Is there a registry setting that can enable/disable the script host? I have an app written in VB6 that uses the Script Shell object to run some things. On some of my apps they have scripting turned off. I'd like to turn it on via code so that I can use the scripting object. Thanks. Tag: Help with Access and VBScript please Tag: 151221
  - 8
    - ASP VBScripting...script works here, but not there...? OK, so I'm doing a little ASP VBScripting, and I have the page I'm writing in the following directory: C:\Inetpub\wwwroot\HomeValue\ And this is the ASP VBScript I'm trying to use, its simplified for testing purposes: <% Dim fsoObj,objFolder,objFile Const strPath = "images/" Set fsoObj = Server.CreateObject("Scripting.FileSystemObject") Set objFolder = fsoObj.GetFolder(Server.MapPath(strPath)) For Each objFile In objFolder.Files Response.Write("hello") Next %> This script will stall my browser (browser will say Website found, waiting for reply... and just load forever with nothing to show) when loaded from C:\Inetpub\wwwroot\HomeValue but will work perfectly fine when loaded onto the web...has anybody else encountered this problem? The page can be accessed at http://www.geo-sync.com/HomeValue/images.asp. Any help would be much appreciated, thank you. ~Les Peabody Tag: Help with Access and VBScript please Tag: 151211
  - 9
    - VB Script that sets and load environment variables Hi, I have a script that set environment variables in the following way : Set WshEnv = WshShell.Environment("USER") WshEnv("Appvar1") = xyz This works ok, and when going to the User's Environment variables section on the computer, all the custom variables are there, but the problem is they don't seem to be already loaded into memory or the value doesn't seems to be loaded by the OS... Here is why I think this : If I go to start/run, and type %Appvar1%, it gives me a message, and in that message %Appvar1% appears, and not the value of it...If I go and type a set in a command prompt, "Appvar1" is not present... But if I go into the User's Environment variables section on my computer/ Properties / Advanced / Environment Variables, I see them, If I click on OK / OK, then the variables are now seems to be loaded, and I can use them... They appear in Set command and typing %Appvar1% on the Run menu comes back with the value of it... Can anyone tell me how to set or reload user's environment variables so they are seen by the system as soon as the script is done... Thanks very much !!! -- -- Houman Yahyaei ( CCNA, MCSE Win 2000/NT 4.0, MCT ) IT Training and Consulting -- -- Houman Yahyaei ( CCNA, MCSE Win 2000/NT 4.0, MCT ) IT Training and Consulting www.formationhy.com Houman@formationhy.com Tag: Help with Access and VBScript please Tag: 151210
  - 10
    - Is it possible to run a VBscript in its own memory space? I'm running a simple script that: - Launches an app - AppActivates the app (using a loop until it is loaded) - sleep for a second - then sends keystrokes to the application. Here's the code: Set objShell = WScript.CreateObject("WScript.Shell") cnt=1 Do Until Success = True Success = objShell.AppActivate("My App") wscript.sleep 250 cnt=cnt+1 if cnt>40 then Success = True end if Loop if cnt>40 then msgbox "App did not launch within 10 seconds" else Wscript.Sleep 300 objShell.SendKeys "somekeystrokes{ENTER}" end if The problem is that somehow the application is getting hung up with the script. As long as the script is running, the application is non-responsive. It will launch...but then it freezes and the screen doesn't completely draw. As soon as the script errors out and I close it...the app comes alive. I'm assuming that the app and wscript.exe are running in the same memory space and are interfering with each other. Is there a way to run the script in its own memory space so it will not interfere with the app. Or is there another problem that I'm missing? Thanks for any advice, Walt Tag: Help with Access and VBScript please Tag: 151202
  - 11
    - .Net collection indexer not working I have a .Net control that I'm accessing, and I've gotten most of it to work. However, my last piece gets a user object, and it is failing when I try to access one of its roles via the following: set Role = user.Roles(1) The error I get is: Microsoft VBScript runtime (0x800A01C2) Wrong number of arguments or invalid property assignment: 'user.Roles' I've looked at the user.Roles object in the watch window, and it has 5 elements, although dragging any item into a watch gives the same error. I've tried indexing with [], and even tried set Role = user.GetType() to see if that works, but then I get: "Object Required" BTW: Roles is declared like this (parent class is ICollection), so it's got an indexer: [Serializable] public class RoleCollection: AbstractCollectionObject { public RoleObject this[Int32 index] { get { return (RoleObject)itemArray[index]; } } } I don't use VBScript very often, and Tag: Help with Access and VBScript please Tag: 151199
  - 12
    - Path string manipulation Hi This should be easy, but I can't find the answer. Can any kind person help me? I have a string which is a path to a directory, eg C:\MyFolder\MySubfolder I want to return just the following: C:\MyFolder\ Anyone? Thanks in advance Brian Abbott Tag: Help with Access and VBScript please Tag: 151189
  - 13
    - Adding a user to a group When I use the code I got from the TechNet script center for adding a user to a group I get an "Active Directory: Unspecified error" on line 7. I have verified the account is not already in the group and I am running the script with sufficient permissions. Any thoughts on why it is not working? Const ADS_PROPERTY_APPEND = 3 set currUser = getobject("LDAP://CN=Doe\, John,OU=User Employees,OU=Corp,DC=Acme,DC=com") Set objGroup = GetObject("LDAP://cn=CP_MB2_nonStore,ou=Email\/Distribution,ou=User Groups,ou=corp,dc=Acme,dc=com") objGroup.PutEx ADS_PROPERTY_APPEND, "member", currUser objGroup.SetInfo Thanks Steve Tag: Help with Access and VBScript please Tag: 151186
  - 14
    - VBscript to query SOA Serial #? Hello, I was wondering if anyone knew if it were possible to get the serial number from DNS SOA using VBscript. Is it defined in the schema? Any info appreciated. Tag: Help with Access and VBScript please Tag: 151179
  - 15
    - Code help needed I am running this very basic query from an ASP application: select * from SimpleResultSet where column1 >= 1 or column2 >= 1 or column3 >= 1 or ...column30 >= 1 As you can see this will return records where at least one of the columns is >= 1 and possibly all of the columns are >=1 This gives me the results I am looking for, but now I would like to sort the record set based upon the number of columns that actually ARE >=1 So if I have a 10 records that are returned, I would like the first record that is returned to be the one with the most columns that are >=1 and the last record to have the fewest number of columns that are >=1. Any ideas? Thanks, Aaron Tag: Help with Access and VBScript please Tag: 151176
  - 16
    - Returning the Exchange Server Name Does anyone have an example of how, with vbs, to return only the Exchange Server name which a user's mailbox is on? It seems I am going to have to return something like msExchHomeServerName and try to strip out only what I want, but I hope there is an easier way. Thanks, Steve Tag: Help with Access and VBScript please Tag: 151174
  - 17
    - VBScript - link&macro Hi! I have a link on my web: <a href="http://www.onet.pl">Onet</a> and I want to attach a macro to that link. When I click on it the macro must prossed. Is it possible to do, if yes how? Thanks Sorry for my mystakes! ;-) Tag: Help with Access and VBScript please Tag: 151164
  - 18
    - DNS lookup... I have a web page that queries a database returning a recordset containing a whole series of URLs (host headers). I want to display these in a table with one of the columns holding the current I.P. address for each URL. I know how to get a list of these IP addresses from the cmd prompt using "nslookup" but I'm absolutely clueless how to get hold of these values in my ASP page. I'm limited to the fact that this must be only ASP (VBScript, not .NET), i.e. I can't call install any components. Any suggestions most welcome Thanks Griff Tag: Help with Access and VBScript please Tag: 151156
  - 19
    - VBScript Beginner's Questions Hello world, sorry if these are rather simple beginner's questions. Coming from the Visual C++ side of things, I would like to get in touch with VBScript. Maybe you can put me on the right track. 1. What programs do I need to write and run VB scripts? (I do have VS.NET 2003.) Is a script just a text file or must it be compiled? 2. Is it possible with VBScript to a) Determine whether it runs on Windows 9x, Me, NT, 2000, or XP? b) Determine the path of the "Documents and Settings\All Users\Shared Documents" folder (independent of the Windows language version)? c) Copy a complete folder including all files and subfolders to "Shared Documents"? As I have no experience with VBScript (just VBA so far), I would appreciate any code snippets for the above tasks. Thank you in advance, Jens Tag: Help with Access and VBScript please Tag: 151155
  - 20
    - C# "using" VBScipt Equivalent What is the equivalent statement in VBScript to use for the C# "using" Directive. For example how would I code this C# statement in VBScript? using Microsoft.ContentManagement.Publishing Tag: Help with Access and VBScript please Tag: 151153
  - 21
    - commas in numbers I am trying to make numbers show up witht he commas in them , but i canot seem to find a print or function to do this. I would like the function to do this .... 1234.00 = 1,234.00 If someone could show me how or tell me where to find a function to do this, i would appreciate it greatly. Thank you in advance Kevin Humphreys Tag: Help with Access and VBScript please Tag: 151145
  - 22
    - Adding Security Groups to Users Hi there, I'm putting together a script to set up users on a new server and have come accross a small snag. I'd like to set up security groups for the users when I create them, but can't seem to format the memberOf variable properly. Is there something I'm missing? Here's the code: set objOU = GetObject("LDAP://ou=NewUsers,ou=Accounts,dc=DOMAIN,dc=COM") set objUser = objOU.Create("User","cn=<insert username>") objUser.Put "userAccountControl", 0 objUser.Put "sAMAccountName", "<insert username>" objUser.Put "homeDirectory", <insert home path here> objUser.Put "homeDrive", <insert home drive for path here> objUser.Put "scriptPath", <insert logon script if required> objUser.Put "description", <insert description eg. pupil / teacher etc.> objUser.Put "givenName", <insert first name> objUser.Put "initials", <insert midlle initials> objUser.Put "sn", <insert last name> objUser.Put "displayName", <insert displayname> objUser.Put "memberOf", <WHAT GOES HERE???> objUser.SetPassword "<password>" objUser.SetInfo Any help would be appreciated. Cheers. Tag: Help with Access and VBScript please Tag: 151143
  - 23
    - Script as NT servie Hello all, I have a script that must run as a nt service. I've bee using "svrany" and works fine, but I can not get the script to startup automatically when the computer comes up. I get this message in the event viewer: "Attempt to execute Windows Script Host while it is disabled, ID: 1000" Any suggestion? TIA, Carlos Tag: Help with Access and VBScript please Tag: 151141
  - 24
    - Problem: Enum Files, Rename, Copy, Delete Problem with Copy and delete That part works great. I modified the code so that the files enumerated in the folders and subfolders are then renamed to the current filename_year/month/day_.log. After logs are renamed, I want to copy them and delete files from the folders. I'm having trouble where the files are not copying. The rename works but copy/delete isn't. Do you have any suggestions? ' **** Script start **** ' WMI script that gets all files in a specific folder ' and optionally all it's subfolders ' The 4rd input parameter bIncludeSubFolders in the function ' EnumFolders tells it to include subfolders or not (True/False) ' ' (you should run it in a command prompt with cscript.exe) ' ' Author: Torgeir Bakken ' folder to get files from, do NOT add a trailing backslash! sFolder = "e:\test" sComputer = "." ' use "." for local computer Set oWMI = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & sComputer & "\root\cimv2") Set oDir = oWMI.Get("Win32_Directory='" & sFolder & "'") set colFolders = oWMI.ExecQuery _ ("SELECT * FROM Win32_Directory WHERE name ='e:\\test\merrill'") dtmThisDay = Day(Now) dtmThisMonth = Month(Now) dtmThisYear = Year(Now) strDate = dtmThisYear & "_" & dtmThisMonth & "_" & dtmThisDay ' Get the files into an array aFiles = Array() ' do not remove this global variable ' 4rd parameter set to False to not include subfolders EnumFolders oDir, oWMI, aFiles, True WScript.Echo "# of files found: " & UBound(aFiles) + 1 & vbCrLf For i = 0 To UBound(aFiles) WScript.Echo aFiles(i) Next Sub EnumFolders(oDir, oWMI, aFiles, bIncludeSubFolders) ' Get a collection of files in this directory Set colFiles = oWMI.ExecQuery( _ "Associators of {Win32_Directory.Name='" & oDir.Name & "'} " _ & "Where ResultClass=CIM_DataFile") ' Enumerate files For Each oFile in colFiles 'WScript.Echo oFile.Name If oFile.Extension = "log" Then strNewName = oFile.Drive & oFile.Path & _ oFile.FileName & strDate & "." & "log" errResult = oFile.Rename(strNewName) Wscript.Echo errResult End If i = UBound(aFiles) + 1 ReDim Preserve aFiles(i) aFiles(i) = oFile.Name Next If bIncludeSubFolders Then Set colSubDir = oWMI.ExecQuery( _ "Associators of {Win32_Directory.Name='" & oDir.Name & "'} " _ & "Where AssocClass=Win32_SubDirectory ResultRole=PartComponent") On Error Resume Next For Each oSubDir in colSubDir EnumFolders oSubDir, oWMI, aFiles, True Next On Error Goto 0 End If ' Copies files, then deletes old one For Each oFile in colFiles WScript.Echo oFile.Name If oFile.Extension = "log" Then strCopy = "e:\test Archive\" & oFile.FileName _ & "." & oFile.Extension oFile.Copy(strCopy) oFile.Delete Wscript.Echo errResult End If i = UBound(aFiles) + 1 ReDim Preserve aFiles(i) aFiles(i) = oFile.Name Next End Sub Thanks, Lam >-----Original Message----- >Lam wrote: > >> Trying to write a script to enumerate subfolders, then >> enumerate the files in those subfolders using WMI... >> >> Any feedback would be great. > >Hi > > >' **** Script start **** >' WMI script that gets all files in a specific folder >' and optionally all it's subfolders >' The 4rd input parameter bIncludeSubFolders in the function >' EnumFolders tells it to include subfolders or not (True/False) >' >' (you should run it in a command prompt with cscript.exe) >' >' Author: Torgeir Bakken > >' folder to get files from, do NOT add a trailing backslash! >sFolder = "C:\test" > >sComputer = "." ' use "." for local computer > >Set oWMI = GetObject("winmgmts:" _ > & "{impersonationLevel=impersonate}!\\" & sComputer & "\root\cimv2") > >Set oDir = oWMI.Get("Win32_Directory='" & sFolder & "'") > >' Get the files into an array >aFiles = Array() ' do not remove this global variable > >' 4rd parameter set to False to not include subfolders >EnumFolders oDir, oWMI, aFiles, False > >WScript.Echo "# of files found: " & UBound(aFiles) + 1 & vbCrLf > >For i = 0 To UBound(aFiles) > WScript.Echo aFiles(i) >Next > > > >Sub EnumFolders(oDir, oWMI, aFiles, bIncludeSubFolders) > > ' Get a collection of files in this directory > Set colFiles = oWMI.ExecQuery( _ > "Associators of {Win32_Directory.Name='" & oDir.Name & "'} " _ > & "Where ResultClass=CIM_DataFile") > > ' Enumerate files > For Each oFile in colFiles > 'WScript.Echo oFile.Name > i = UBound(aFiles) + 1 > ReDim Preserve aFiles(i) > aFiles(i) = oFile.Name > Next > > If bIncludeSubFolders Then > Set colSubDir = oWMI.ExecQuery( _ > "Associators of {Win32_Directory.Name='" & oDir.Name & "'} " _ > & "Where AssocClass=Win32_SubDirectory ResultRole=PartComponent") > > On Error Resume Next > For Each oSubDir in colSubDir > EnumFolders oSubDir, oWMI, aFiles, True > Next > On Error Goto 0 > End If > >End Sub > > > >-- >torgeir >Microsoft MVP Scripting and WMI, Porsgrunn Norway >Administration scripting examples and an ONLINE version of the 1328 page >Scripting Guide: http://www.microsoft.com/technet/scriptcenter > Tag: Help with Access and VBScript please Tag: 151127
  - 25
    - File Information I want to use vbscript, or whatever is easiest to get the title of a file. I've looked around and can't seem to find anything, even things tat sound right "GETFILETITLE" only gets the name of the file without the extension! Can anyone tell me or show me what to use to simply get the title of a certain file? Thanks, Terry Tag: Help with Access and VBScript please Tag: 151126

Hello,

I have created a WEB file with FrontPage and I find out how to get the
data from my database in Ms-ACCESS.

My question is if this is possible to execute a macro created in
ACCESS from the WEB site with VBScript?

Also, I would like to know if there is a way to execute my macro
automatically. For example, I want that one of my macro start by
itself each midnight.

Thank you for help.
Jiador

Top

Re: Help with Access and VBScript please by Han

Han
Tue Jan 20 05:36:49 CST 2004

One of the earlier replies. However you cannot do that in web environment,
and it's one of FAQs.

"Jiador" <laverf@hotmail.com> wrote in message
news:b2c1fef.0401191025.31262edf@posting.google.com...
> Hello,
>
> I have created a WEB file with FrontPage and I find out how to get the
> data from my database in Ms-ACCESS.
>
> My question is if this is possible to execute a macro created in
> ACCESS from the WEB site with VBScript?
>
> Also, I would like to know if there is a way to execute my macro
> automatically. For example, I want that one of my macro start by
> itself each midnight.
>
> Thank you for help.
> Jiador

Top