download with xhtml and run! Is that possible

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
    - Error Handling FileSysyemObject I'm building a script that conncets to remote machines and moves files around. I'm doing fine with most og it, but when there is a delay and the script fails, How do I capture an Error in from the FileSystemObject? Thanks Tag: download with xhtml and run! Is that possible Tag: 172910
  - 2
    - combining arrays This is a multi-part message in MIME format. ------=_NextPart_000_002F_01C53C28.A2C735D0 Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable How would I go about combining arrays into one array. Here's my script = below. I first make objects for three different groups in AD. Set objGroup1 =3D GetObject _ = ("LDAP://cn=3DGroupName1,ou=3DGroups,ou=3DC-ONL-Corporate,ou=3DONL,dc=3Dm= ybusiness,dc=3Dcom") objGroup1.GetInfo Set objGroup2 =3D GetObject _ = ("LDAP://cn=3DGroupName2,ou=3DGroups,ou=3DC-ONL-Corporate,ou=3DONL,dc=3Dm= ybusiness,dc=3Dcom") objGroup2.GetInfo Set objGroup3 =3D GetObject _ = ("LDAP://cn=3DGroupName3,ou=3DGroups,ou=3DC-ONL-Corporate,ou=3DONL,dc=3Dm= ybusiness,dc=3Dcom") objGroup3.GetInfo Then I would like to make an array combining all three groups info like = below arrMemberOf =3D objGroup1.GetEx("member") & objGroup2.GetEx("member") & = objGroup3.GetEx("member") It doesn't work though. Is there a way to combine arrays? Jeff Giroux MSCIS Program UOP Online dabungis@email.uophx.edu ------=_NextPart_000_002F_01C53C28.A2C735D0 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.1492" name=3DGENERATOR> <STYLE></STYLE> </HEAD> <BODY bgColor=3D#ffffff> <DIV><FONT face=3DArial>How would I go about combining arrays into one=20 array.  Here's my script below.  I first make objects for = three=20 different groups in AD.</FONT></DIV> <DIV><FONT face=3DArial></FONT> </DIV> <DIV><FONT face=3DArial>Set objGroup1 =3D GetObject _<BR> ("<A=20 href=3D"ldap://cn=3DGroupName1,ou=3DGroups,ou=3DC-ONL-Corporate,ou=3DONL,= ou=3DSites,dc=3Dapollogrp,dc=3Dedu">LDAP://cn=3DGroupName1,ou=3DGroups,ou= =3DC-ONL-Corporate,ou=3DONL,dc=3Dmybusiness,dc=3Dcom</A>")<BR>objGroup1.G= etInfo<BR></FONT></DIV> <DIV><FONT face=3DArial>Set objGroup2 =3D GetObject _<BR> ("<A=20 href=3D"ldap://cn=3DGroupName2,ou=3DGroups,ou=3DC-ONL-Corporate,ou=3DONL,= ou=3DSites,dc=3Dapollogrp,dc=3Dedu">LDAP://cn=3DGroupName2,ou=3DGroups,ou= =3DC-ONL-Corporate,ou=3DONL,dc=3Dmybusiness,dc=3Dcom</A>")<BR>objGroup2.G= etInfo<BR></FONT></DIV> <DIV><FONT face=3DArial>Set objGroup3 =3D GetObject _<BR> ("<A=20 href=3D"ldap://cn=3DGroupName3,ou=3DGroups,ou=3DC-ONL-Corporate,ou=3DONL,= dc=3Dmybusiness,dc=3Dcom">LDAP://cn=3DGroupName3,ou=3DGroups,ou=3DC-ONL-C= orporate,ou=3DONL,dc=3Dmybusiness,dc=3Dcom</A>")<BR>objGroup3.GetInfo</FO= NT></DIV> <DIV><FONT face=3DArial></FONT> </DIV> <DIV><FONT face=3DArial>Then I would like to make an array combining all = three=20 groups info like below</FONT></DIV> <DIV><FONT face=3DArial><BR>arrMemberOf =3D objGroup1.GetEx("member") = &=20 objGroup2.GetEx("member") & objGroup3.GetEx("member")</FONT></DIV> <DIV><FONT face=3DArial></FONT> </DIV> <DIV> <DIV><FONT face=3DArial>It doesn't work though.  Is there a way to = combine=20 arrays?</FONT></DIV> <DIV><FONT face=3DArial></FONT> </DIV> <DIV><FONT face=3DArial></FONT> </DIV> <DIV> <DIV> <DIV><STRONG><FONT face=3DArial>Jeff Giroux</FONT></STRONG></DIV> <DIV><STRONG><FONT face=3DArial>MSCIS Program</FONT></STRONG></DIV> <DIV><STRONG><FONT face=3DArial>UOP Online</FONT></STRONG></DIV> <DIV><A href=3D"mailto:dabungis@email.uophx.edu"><STRONG><FONT=20 face=3DArial>dabungis@email.uophx.edu</FONT></STRONG></A></DIV></DIV></DI= V></DIV></BODY></HTML> ------=_NextPart_000_002F_01C53C28.A2C735D0-- Tag: download with xhtml and run! Is that possible Tag: 172905
  - 3
    - compress/uncompress files for email Hi, The following script works exactly as expected except when i try to email very large files. The emails are are either never sent or never received. How do compress the NTFS (compress.exe does not work on NTFS files) file to make it small enough to be emailed? Also how do I uncompress it with a script when I receive it? Thanks in Advance, Rowland '********************************************************** ' ' *** add client specific constants Here const FBEGIN = "WEBEXTD" const FPATH = "C:\Program Files\Microsoft ISA Server\ISALogs\" const TOADDRESS = "mbox@server.com" const FROMADDRESS = "server@someserver.com" ' '********************************************************** Set oNet = CreateObject("Wscript.Network") sDomain = oNet.userDomain eDate=changeDate(date()) strSubject = sDomain & " WEB LOGS " & eDate set objFSO = CreateObject("Scripting.FileSystemObject") dp=datepart("w",date()) randomize upperbound=5 lowerbound=1 do x = int((upperbound - lowerbound + 1) * Rnd + lowerbound) select case x case 1 theDate=date() - (dp+1) case 2 theDate=date() - (dp+2) case 3 theDate=date() - (dp+3) case 4 theDate=date() - (dp+4) case 5 theDate=date() - (dp+5) end select newDate=changeDate(theDate) webDate=changeToWebDate(newDate) fileName=FBEGIN & webDate & ".log" fullPath=FPATH & fileName loop until objFSO.FileExists(fullPath)=true Dim iMsg Set iMsg = CreateObject("CDO.Message") With iMsg .from = FROMADDRESS .To = TOADDRESS .Subject = strSubject .TextBody = "Here is The Web Log File. " & fullPath .AddAttachment(fullPath) .Send End With set iMsg = nothing function changeToWebDate(strDate) x=split(strDate,"/",-1) if len(x(0))=1 then x(0)="0" & x(0) if len(x(1))=1 then x(1)="0" & x(1) changeToWebDate=x(2) & x(0) & x(1) end function function changeDate(strDate) fwdSlash=instr(strdate,"/") hyphen=instr(strDate,"-") period=instr(strDate,".") if fwdSlash > 0 then delimiter="/" if hyphen > 0 then delimiter="-" if period > 0 then delimiter="." x=split(strDate,delimiter,-1) if strcomp(left(x(0),1),"0")=0 then x(0)=right(x(0),1) if strcomp(left(x(1),1),"0")=0 then x(1)=right(x(1),1) if len(x(2))=2 then x(2)="20" & x(2) changeDate=x(0) & "/" & x(1) & "/" & x(2) end function Tag: download with xhtml and run! Is that possible Tag: 172904
  - 4
    - 80070035 Path not found, Source (Null) I am trying to execute a script to change the local admin password on my workstations. I am pushing it down by group policy. When my test computer reboots I get an error that the path was not found, Code 80070035 Source (Null). It is obviously looking for the script but cannot find it. I have given Domain Computers group read and execute permission to the policies folder and everything under it. What am I missing here? Thanks! Tag: download with xhtml and run! Is that possible Tag: 172901
  - 5
    - return recordset from function Hi There, Is it possible to return a recordset from a function? what I am trying to do is something like this ex. Function test(SQLCommand) ... Set test = objADODBConnection.Execute(SQLCommand) End Function ... Set objRecords = test(SQL) msgbox(objRecords("ID")) thanks, James Tag: download with xhtml and run! Is that possible Tag: 172899
  - 6
    - SendKeys It's possible to send ESC key and hold it down for a moment? How to obtain that? Tag: download with xhtml and run! Is that possible Tag: 172897
  - 7
    - Gradation Hello! How can I use gradation in VBScript? I planned to make a script, what calculates relative humidity from temperature and dewpoint Tarmo Tanilsoo Tag: download with xhtml and run! Is that possible Tag: 172894
  - 8
    - Open script created txt file in notepad So far i have.... ... CollatedData = "\\p0532713\csts$\Report\Report" & myDate & ".txt" ... ... set wShell=CreateObject("Wscript.Shell") wShell.run "%windir%\notepad.exe" CollatedData .. but this doesnt work!! any ideas thanks in advance *** Sent via Developersdex http://www.developersdex.com *** Tag: download with xhtml and run! Is that possible Tag: 172891
  - 9
    - Advanced regexp again Hello I want to ask for mr regexp steve for help again :) I have this: Menu2=new Array("Apple sauce","some url here","",6,16,160); Menu2_1=new Array("Pigs on dope","something","",0,16,160); Menu2_2=new Array("Trees","somethi/...?9ng else","",0,16,160); I need to extract 3 things on each row $1 $2 $3 (?) Menu2 Apple sauce some url here in the first and: Menu2_1 Pigs on dope something Menu2_2 Trees somethi/...?9ng else is this possible to do? seem impossible :( TIA /Lasse Tag: download with xhtml and run! Is that possible Tag: 172886
  - 10
    - FolderExists Help......... I need to write a sniipet of code that will check all users profiles in Doc and Settings and check for a directory in \\Doc and setting\username\application data\ I've managed to get the easy part of doing check on one directory but a bit lost on how to do it on the full doc and settings directroty using a Do While Loop.... Dim fso, folder Set oFSO = CreateObject("Scripting.FileSystemObject") AppData = "C:\Document and settings\" Do While ...... If oFSO.FolderExists(AppData) Then wscript.echo "AppData Found" End If End.... The thing is I'm not sure how to tell it to search through all the profiles.... Anyone can provide some pointers please.............. Tag: download with xhtml and run! Is that possible Tag: 172875
  - 11
    - Verify Network Shares I'm using the rmtshare command to get a list of shares on a server (rmtshare /L /S servername > shares.txt). I'm trying to figure out how I can go about writing a script that can be run at will to verify that these shares still exist. I'm learning vbs as I go along, so I appreciate any help offered. Tag: download with xhtml and run! Is that possible Tag: 172867
  - 12
    - a VB snippet to change DNS back to obtain automatically Hello everyone, does someone have a snippet to change/remove static DNS entries on a XP box back to, Obtain DNS server address automatically. Thanks Terry. Tag: download with xhtml and run! Is that possible Tag: 172861
  - 13
    - =?iso-8859-1?B?//////8gZXJyb3I=?= I've been creating a pc inventory using vbscript and wmi. When I attempt to get the serial number I get "=FF=FF=FF=FF=FF" as the value. I've tried updating the script host, but that hasn't helped. Below are the portions of code that I have tried. This code has worked on about 95% of the computers, but the other few return "=FF=FF=FF=FF=FF" for the serial number. Any suggestions? Set colItems =3D objWMIService.ExecQuery("Select * from Win32_BIOS",,48) For Each objItem in colItems serialNumber1 =3D Trim(objItem.SerialNumber) Next Set colItems =3D objWMIService.ExecQuery( "Select * from Win32_SystemEnclosure") For Each objItem in colItems serialNumber2 =3D Trim(objItem.SerialNumber) Next Tag: download with xhtml and run! Is that possible Tag: 172857
  - 14
    - get xml field In vbscript, how can I get a collection of the Name in the xml file. I need to grab x number of entries. <PC> <Number="9" Name="EXP061509"/> <Number="22" Name="EXP061522"/> </PC> Tag: download with xhtml and run! Is that possible Tag: 172855
  - 15
    - Check User Privileges is there a way to check if the user logged in has Admin privileges? Also if the user doesn't have admin privileges is there a way to run the vbscript on a non-admin account as an admin assuming the username and password of the admin account is known? Tag: download with xhtml and run! Is that possible Tag: 172854
  - 16
    - Counters New to VBS and probably having difficulty because of having used VBA. Anyway I'm attempting to write a script to Enumerate software loaded on the local PC and save it in an Excel Spreadsheet. And I gues my counter i = 2 and then most, of all, stepping i + 1 doesn't work with VBS. Any ideas on how I can do this? If you try the script, note the "C:\Scripts\EnumInstSW.xls" Set objFSO = CreateObject("Scripting.FileSystemObject") Set objExcel = CreateObject("Excel.Application") Set objWorkbook = objExcel.Workbooks.Open("C:\Scripts\EnumInstSW.xls") strComputer = "." objExcel.Visible = True objExcel.Workbooks.Add objExcel.Cells(1, 1).Value = "Caption" objExcel.Cells(1, 2).Value = "Description" objExcel.Cells(1, 3).Value = "Identifying Number" objExcel.Cells(1, 4).Value = "Install Date" objExcel.Cells(1, 5).Value = "Install Location" objExcel.Cells(1, 6).Value = "Install State" objExcel.Cells(1, 7).Value = "Name" objExcel.Cells(1, 8).Value = "Package Cache" objExcel.Cells(1, 9).Value = "SKU Number" objExcel.Cells(1, 10).Value = "Vendor" objExcel.Cells(1, 11).Value = "Version" Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colSoftware = objWMIService.ExecQuery _ ("SELECT * FROM Win32_Product") i = 2 For Each objSoftware in colSoftware objExcel.Cells(i, 1).Value = objSoftware.Caption objExcel.Cells(i, 1).Value = objSoftware.Description objExcel.Cells(i, 1).Value = objSoftware.IdentifyingNumber objExcel.Cells(i, 1).Value = objSoftware.InstallLocation objExcel.Cells(i, 1).Value = objSoftware.InstallState objExcel.Cells(i, 1).Value = objSoftware.Name objExcel.Cells(i, 1).Value = objSoftware.PackageCache objExcel.Cells(i, 1).Value = objSoftware.SKUNumber objExcel.Cells(i, 1).Value = objSoftware.Vendor objExcel.Cells(i, 1).Value = objSoftware.Version i + 1 Next Tag: download with xhtml and run! Is that possible Tag: 172851
  - 17
    - Can you create a shortcut to a namespace folder? Hi all, I would like to be able to create shortcuts that refer to folders in the = namespace rather than the file system. For example: if you right-click = My Documents on the desktop and choose 'create shortcut', then explore = the shortcut, the folder pane shows the folder as a subfolder of the = Desktop. The properties exposed by the shortcut object returned from = WshShell.CreateShortcut are identical for shortcuts that refer to = "Desktop\My Documents", "Desktop\My Computer\<user name>'s Documents" = and "C:\Documents and Settings\<username>\My Documents". If I use the Shell objects described in the MSDN here: http://msdn.microsoft.com/library/en-us/shellcc/platform/shell/reference/= objects/objects.asp I can distinguish between these by obtaining the Target property = (returns a FolderItem object) of the ShellLinkObject and recursively = evaluating the Parent property, but the Target property is read-only :-( = --- and my goal is to create such a shortcut. So far, all that works is obtaining the FolderItem for the folder I want = to create a shortcut to and then using FolderItem.InvokeVerb("Create = &Shortcut"). The drawback of this are: 1. No control over the name of the shortcut 2. For certain folders (Documents under My Computer for example), the = "Windows cannot create a shortcut here, would you like to place it on = the desktop instead?" message appears and needs to be "OK'd" by the user = before execution continues. 3. Use of "Create &Shortcut" creates language dependence. (I assume -- = not critical, but it's nice) My ultimate goal is to be able to open & close a folder without its = flashing on the screen. I thought if I created shortcuts, I could set = them to open minimized. I could use Run explorer.exe with CLSIDs for = everything except the user folders under My Computer, I can't figure out = a command line to open those. Anybody have any ideas? Thanks for your time, Keith Tag: download with xhtml and run! Is that possible Tag: 172850
  - 18
    - Script to delete files older than 30 days old Here is what I have and need, as I am not a scripter. I have digital dictation system that attorneys dictate into a digital voice recorder and download to a network share point where their secretaries can transcribe it. When the attorneys download the voice files from their systems to the server share, it creates a backup of every file on their machine under their profile. We have roaming profiles setup for the users and all of these files are being copied to the roaming profile on the server. I would like a login or shutdown script that will automatically delete the files from their local machines based on a time frame, say anything over 30 days old. Any help would be appreciated, as I said before I am not a scripter, and this is taking a lot of space on the server and making our backups extremely long. Thanks Tony Tag: download with xhtml and run! Is that possible Tag: 172846
  - 19
    - How to convert month, day , year values to Date On my page ASP I have three integer values â?? month, day, year. I would like to create Date out of it, and then use WeekDayName(WeekDay(MyDate)) to get day name. I was trying to use MDY(month, day, year) method, but I am getting Microsoft VBScript runtime (0x800A000D) Type mismatch: 'MDY' error Any hint would be much appreciated, Greg Tag: download with xhtml and run! Is that possible Tag: 172839
  - 20
    - SQL (Order By Date Field Not Working) Set For four Years I have been using this statement. Yesterday it stopped working and I do not know why. rst = db.openrecordset("SELECT * FROM STUDENTS WHERE TstCde = 'B' ORDER BY LstTstDt, StudentID") Now all of a sudden it just goes to end of file. After four days of confusion I removed the Field LstTstDt and it read the file. The contents of the date field where updated the last time the student took the test. It is mandatory under our State law that we use this date in this manner! In Short I cannot use Date Fields in my SELECT SQL Statement. Does anyone know what has been changed and why it stopped working. Thank You in Advance Bill Tag: download with xhtml and run! Is that possible Tag: 172838
  - 21
    - script for Bookmark.htm -newsgroup archives? Is this group archived somewhere? Where? A while back i requested a script to create Bookmark.htm from Favorites Folder, and someone had it on their website. However, i subsequently lost the script and can't remember the site. Anyone? Thanks! -- ô¿ô V e r n www.parentpresent.org NoWorrys = KidSafe Internet Filter (Freeware) Tag: download with xhtml and run! Is that possible Tag: 172837
  - 22
    - wmic event viewer question Hello all, Am trying to get a script using WMIC commandline that outputs the eventviewer of a certain server on a certain date. So far I have this.. WMIC /node:"myserver" NTEVENT WHERE "EventType<3 AND LogFile != 'Security' AN D TimeGenerated = '20050330'" GET LogFile, SourceName, EventType, Message, TimeGenerated /FORMAT:htable >c:\mysystem.htm but as the TimeGenerated is in a different format my queries for that date come up empty. Just wondering if anyone has any ideas how i can format it so i can get a normal datetime output? I am assuming i have to modify the select statement somehow with a function, but i havent found anything about this in my searches of the web. Any help would be greatly appreciated!! thanks caraculo4 Tag: download with xhtml and run! Is that possible Tag: 172836
  - 23
    - Comparing two time values for Difference Hi Trying to create a basic simple script to copy a file and see how long it takes to copy the file. Is this a way to compare the start and finish times I output from the Time function and then display the result in seconds for how long it took to copy. Code shown below Thanks Set objFSO = CreateObject("Scripting.FileSystemObject") 'WScript.StdOut.WriteLine ("Start Time: " & Time) StartTime = Time objFSO.CopyFile "S:\_TEMP_\clienttest\test", "C:\PC_MIG\Test\", OverwriteExisting FinishTime = Time CopyOutput = "File Copy Test" &vbCRLf &vbCRLf CopyOutput = CopyOutput & "[This Test should take no longer 10 Seconds]" &vbCRLf &vbCRLf CopyOutput = CopyOutput & "Test Started : " & StartTime &vbCRLf CopyOutput = CopyOutput & "Test Finished : " & FinishTime &vbCRLf WScript.Echo CopyOutput Tag: download with xhtml and run! Is that possible Tag: 172830
  - 24
    - Watch Folder Hi all, I want to write a VB Script that will watch a folder. When a file is dropped into it, the script performs a few functions on it then moves the file out.....eventually by FTP. Is this possible and how ? Thanks to whoever maybe of assistance Bill. Tag: download with xhtml and run! Is that possible Tag: 172826
  - 25
    - LogOff Script I need to run below code on logoff after a software install to modify a registry setting. Can someone help me with syntax for creating a vbs file I can use as a log off script? regedit /s \\myserver\Deployment\SpySweeperRegEdit.reg Tag: download with xhtml and run! Is that possible Tag: 172823
- Next
  - 1
    - Problem with Reading Date Field For four Years I have been using this statement. Yesterday it stopped working and I do not know why. rst = db.openrecordset("SELECT * FROM STUDENTS WHERE TstCde = 'B' ORDER BY LstTstDt, StudentID) Now all of a sudden it just goes to end of file. After four days of confusion I removed the Field LstTstDt and it read the file. The contents of the date field where updated the last time the student took the test. It is mandatory under our State law that we use this date in this manner! In Short I cannot use Date Fields in my SELECT SQL Statement. Does anyone know what has been changed and why it stopped working. Thank You in Advance Bill Tag: download with xhtml and run! Is that possible Tag: 172815
  - 2
    - Paths including spaces Hi I'm trying to put together a script which expands %ProgramFiles% and then run an executable called "RunMe.exe" from a folder called "TestApp". Here's what I've done: Set oWshShell = CreateObject("WScript.Shell") sEXEFullPath = oWshShell.ExpandEnvironmentStrings("%ProgramFiles%" & "\TestApp\RunMe.exe /silent") Return = oWshShell.Run(sEXEFullPath,,true) The error message states that "The system cannot find the file specified.". I know that the file is there and just to check I added the row "WScript.Echo sEXEFullPath" to check that the path is correct. Every thing is ok. As far as I can tell, the reason for the failure of the run command is the space between "Program" and "Files" in the expanded path. It seems as if the engine only sees "C:\Program" and not "C:\Program Files\TestApp\RunMe.exe /silent". How can I fix this? Regards Wayne Tag: download with xhtml and run! Is that possible Tag: 172811
  - 3
    - delete space characters in a line Hi all, I want to delete space characters in a line. Is there any easy way to do this ? Thanks. Tag: download with xhtml and run! Is that possible Tag: 172807
  - 4
    - How to Script DHCP Server and ISA 2000 Server Are there any sites or does anyone know where I can find information relating to the scripting with VBScript of both DHCP Server (i.e. creating scopes, authorising server, setting exclusions, scope options, reservations etc.) and scripting of ISA Server 2000 (i.e. creating and modifying policy elements, protocol rules, site and content rules etc.) at all? I am fairly new to all this scripting server stuff and I cannot seem to find anything on the internet in relation to scripting these at all. Tag: download with xhtml and run! Is that possible Tag: 172806
  - 5
    - if frame is loaded? I try to control something , if the inner frame (there are 2 nested frames in main window, they are brothers not parent-child) loaded.Because if not loaded my subroutins cause errors. What must the hierarchy between these when we use the control from one to another frame? example if firstframe.parent.secondframe.loaded then ' do something Else 'do something End if Thanks Caglar ORHAN Tag: download with xhtml and run! Is that possible Tag: 172804
  - 6
    - VBScript to Modify HOST file Hey, Anyone know how to write a simple little script to modify the HOST file? Thanks Tag: download with xhtml and run! Is that possible Tag: 172796
  - 7
    - Help! How to retrieval GPO info. in windows 2000 by vbscript I find that there are some VB scripts in the script center that can retrieve group policies information, based on RSoP and win2003 or XP platform. But I cannot find any similar method that can be used in win2000. Any alternative ways? Please help. Thanks a lot! Tag: download with xhtml and run! Is that possible Tag: 172795
  - 8
    - How to get the user account Hi, is there any way to know the user account of the pc who is visiting an asp page? I'm gonna use it in the intranet of my job. Thanks for your comments. Tag: download with xhtml and run! Is that possible Tag: 172785
  - 9
    - Hidden windows I have a VB script that we are using group policy to execute during logon to launch an exe file. Unfortunately the file runs with the window open and some of our users close it....leaving the application uninstalled. Is there a way for the script to run the exe file hidden? XP users....2003 server....Active Directory....sample of the script is below.... Dim WSHShell Set WSHShell = WScript.CreateObject("WScript.Shell") WSHShell.Run "\\sample\pretend$\setup.exe" WScript.Quit(0) Thank you! Always Learning Tag: download with xhtml and run! Is that possible Tag: 172783
  - 10
    - read csv file for data Hello, I am looking for a script that will find data from a .mdb file if the data in the first colmn match's the data that I am looking for, if it finds stnumber, then assign the data from the corrisponding colums from that row back to Variables in the script, the table would look like: stnumber storename 1sto 2nd0 3rdo 100 grocery 100 120 204 there will be 200 or so rows, and if it finds the stnumber that was inputed I need the next 4 colums brought back to the script to make a IP address. Thanks to anyone that takes the time to read this. Tag: download with xhtml and run! Is that possible Tag: 172782
  - 11
    - EXE I Have .exe file on my drive. i want to call in ActiveX script, which is going to be in my dts. can you please explain is there any method or function to call exe file in VB S? THANKS, Tag: download with xhtml and run! Is that possible Tag: 172778
  - 12
    - How can I programatically share a printer? I would like to programmatically create a local JetDirect printer connection (A local printer that uses a JetDirect port) and then share the printer. I would also like to share an existing printer that is not shared to account for the instance where the JetDirect printer already exists. I can't seem to find any reference on how to do that. I can find lots of info on creating non-JetDirect printers and even auto-sharing them through the printUI dll but not to do what I am trying to do. To narrow the scope a bit, I can write the glue but need the following: 1. Creating a JetDirect printer and sharing it. 2. Sharing a printer. Thanks! Kevin Tag: download with xhtml and run! Is that possible Tag: 172774
  - 13
    - Scheduled Tasks I have an Inno Setup that installs a bunch of scripts and batch files that need to be scheduled. I would like to know two things: 1) Does anyone have a script/routine that can be invoked from Inno that can schedule a predeteremined task? 2) I was thinking it would be nice to have a basic form that the user can pick what day of week, time, etc., a scheduled item can be run. The form information woudl then be interpreted and then create the scheduled task. Has anyone done anything like this before? I see I can use the Win32_ScheduledJob service tasks within WinMgmts:, but it appears to create the task under the "AT" command. Although it shows up under the "Explorer Scheduled Tasks" view, it cannot be edited. I must edit from the AT command. Anyone have any clue why? Tag: download with xhtml and run! Is that possible Tag: 172771
  - 14
    - User rights to server shares I'm looking for a script, or pointers to help my helpdesk people find out what rights a user has to several file shares. They may have a user that tries to view a stored fax on one of several servers, but the user cannot see the file, has no rights. What I am looking for is a script that I can have the helpdesk person run, they fill in the user's logon name, and the server\share that is a problem. What I would like to come back is the rights that the user has in that share - read only, modify, no rights. The help-desk won't have the user's password, just the logon ID. Some of our groups are nested 3-5 levels deep, which complicates the search. Any ideas? Randy Reimers Tag: download with xhtml and run! Is that possible Tag: 172770
  - 15
    - disable windows firewall remotely I want to disaable one of my internal clients firewall without having to go to the machine log them off and log on as an admin. then disable the Wfirewall. I was wondering if this could be done remotely by a script. Can someone help me out with the script below to disable on the strComputer and not mine Thanks Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set objFirewall = CreateObject("HNetCfg.FwMgr") Set objPolicy = objFirewall.LocalPolicy.CurrentProfile objPolicy.FirewallEnabled = FALSE Tag: download with xhtml and run! Is that possible Tag: 172764
  - 16
    - Very large SQL - how do I carry it over multiple lines I have an extremely long SQL statement that I need to run to update around 53 variables - and instead of having it run horizontally forever off my screen, I would like to ask what is the proper way to carry statements over multiple lines in VBScript instead of having to contain it on just one really really really long line. Is it possible? Thanks for the assistance. I did a search on here and couldn't find anything. Tag: download with xhtml and run! Is that possible Tag: 172763
  - 17
    - Run on startup, but only in this hardware profile? Hello, Is there a way to launch an application at login depending on the current hardware profile? For example, when using the "Docked" profile, I'd like to launch a certain .EXE. But when I'm not booting up under the Docked profile, the .EXE would not run. If not natively supported, could it be something that's scripted? Thanks. -- William Fields MCSD - Microsoft Visual FoxPro US Bankruptcy Court Phoenix, AZ "Beer is proof that God loves us and wants us to be happy." - Benjamin Franklin Tag: download with xhtml and run! Is that possible Tag: 172757
  - 18
    - Modify existing script that creates mailboxes and users Hello all, I have this great script it creates users with mailboxes what i want to do is modify how the user login name is created right now its firstname_lastname what i need it to be is FLastname First Initial of firstname then lastname no spaces no underscore. currently this is how it is Username: Firstname_Lastname Email address: Firstname_Lastname@domain.com This is how i would like it to work Username: FLastname Email Address: FLastname@domain.com There is just so much to this script i dont know what to do with it. Thanks ~Brian Script Below 'Copyright (c) Microsoft Corporation. All rights reserved. '////////////////////////////////////////////////////////////////////////////////// '// Function: CreateMailboxBeforeLogon '// Purpose: Creates a new user in Active Directory and a mailbox for '// the new user before they logon. '// '// Input: strDCServerName = The domain controller on which the Active '// Directory users will be created. '// '// strServerName = The Exchange server on which the mailboxes '// will be created. '// strStorageGroup = The storage group in which the mailboxes '// will be created. '// strMailboxStore = The mailbox store in which the mailboxes '// will be created. '// strUserFileName = The name of the text file containing the '// information for the new users. '// strFolderLang = The language in which the mailbox '// folders will be created. '// '// Example: cscript CreateMailboxBeforeLogon.vbs "DCServerName" "ServerName" "First Storage '// Group" "Mailbox Store (SERVERNAME)" "UserFile.txt" "en-us" '// '// The UserList.txt file format example: '// '// John;Doe '// '// So the format is: FirstName;LastName '// '// The script creates log file UserMail.log in directory where te script was run from '// '// '///////////////////////////////////////////////////////////////////////////////// Option Explicit On Error Resume Next ' Check number of input arguments. If wscript.Arguments.count <> 6 Then wscript.echo "Usage: cscript CreateMailboxBeforeLogon.vbs strDCServerName strServerName " & _ "strStorageGroup strMailboxStore strUserFileName strFolderLang" wscript.Quit End If ' Declare variables for input parameters. Dim strDCServerName 'As String Dim strServerName 'As String Dim strStorageGroup 'As String Dim strMailboxStore 'As String Dim strUserFileName 'As String Dim strGivenName 'As String Dim strSurname 'As String Dim strAlias 'As String Dim strPassword 'As String Dim strFolderLang 'As String ' Declare variables used for verifying the existance of the mailbox store ' where the mailbox is to be created. Dim iDS ' As IDataSource Dim iAdRootDSE 'As ActiveDs.IADs Dim objServer ' CDOEXM.ExchangeServer Dim objSG ' CDOEXM.StorageGroup Dim objMSDB ' CDOEXM.MailboxStoreDB Dim storegroup Dim mbx Dim bFound ' As Boolean ' Declare variables for iterating through the ' file of new users. Dim objUser 'As IADsUser Dim strDomainDN 'As String Dim strLDAPUrl 'As String Dim arrNewUsersInfo Dim strCurrUserInfo Dim arrCurrUserInfo Dim fs ' As FileSystemObject Dim tsNewUsers ' As FSO.TextStream Dim iLineNum ' As Integer Dim bContinue ' As Boolean Dim TimeInterval Dim NumofTry 'As Integer Dim iCounter 'As Integer '=============================================================================================== ' Dim ath, ath1, ath2 Dim Msg Dim tsNewUsersLog Dim where Dim strLogFile strLogFile = "UserMail.log" '=============================================================================================== ' Get input parameters. strDCServerName = wscript.Arguments(0) strServerName = wscript.Arguments(1) strStorageGroup = wscript.Arguments(2) strMailboxStore = wscript.Arguments(3) strUserFileName = wscript.Arguments(4) strFolderLang = wscript.Arguments(5) ' Validate input parameters. If ValidateInput(strDCServerName) = False Then wscript.Quit If ValidateInput(strServerName) = False Then wscript.Quit If ValidateInput(strStorageGroup) = False Then wscript.Quit If ValidateInput(strMailboxStore) = False Then wscript.Quit ' Verify that the specified mailbox store exists. ' Initialize bFound. bFound = False ' Get the default naming context. Set iAdRootDSE = GetObject("LDAP://RootDSE") strDomainDN = iAdRootDSE.Get("defaultNamingContext") ' Create objects for verifying existance of ' the mailbox store where the mailbox will be created. Set objServer = CreateObject("CDOEXM.ExchangeServer") Set objSG = CreateObject("CDOEXM.StorageGroup") Set objMSDB = CreateObject("CDOEXM.MailboxStoreDB") Set iDS = objServer.GetInterface("IDataSource") ' Bind to the Exchange server. iDS.Open strServerName ' Check that the destination mailbox store exists. For Each storegroup In objServer.StorageGroups objSG.DataSource.Open storegroup ' Error handling. If CDOEXM attempts to open a Recovery ' Storage Group, a 0xC1032221 error will be returned. If Err <> 0 Then wscript.echo "An error occurred opening the specified storage group." wscript.echo "Error: 0x" & Hex(Err.Number) & " " & Err.Description wscript.echo "Exiting the application." ' Clean up. Set objSG = Nothing ' Exit the application. wscript.Quit End If If UCase(strStorageGroup) = UCase(objSG.Name) Then For Each mbx In objSG.MailboxStoreDBs objMSDB.DataSource.Open mbx If UCase(strMailboxStore) = UCase(objMSDB.Name) Then bFound = True ' Get the LDAP URL for the mailbox store. strLDAPUrl = "LDAP://" + mbx Exit For End If Next End If If bFound Then Exit For Next ' Clean up. Set objServer = Nothing Set objSG = Nothing Set objMSDB = Nothing ' If the mailbox store was not found, exit the program. If bFound = False Then wscript.echo "The specified mailbox store could not be found." wscript.Quit End If ' Create the FileSytemObject object. Set fs = CreateObject("Scripting.FileSystemObject") '=============================================================================================== 'Build path for the log file - NOT USED 'ath = fs.GetAbsolutePathName(strUserFileName) 'ath1 = instrrev(ath, "\") 'ath = left(ath, len(ath)-ath1) 'ath2 = ath & "UserMail.log" '=============================================================================================== ' Open the log file Set tsNewUsersLog = fs.OpenTextFile(strLogFile, 2, 1) If Err <> 0 Then wscript.echo "An error occurred creating the log file." wscript.echo "Error: " & Err.Number & " " & Err.Description wscript.echo "Exiting the application." err.clear set fs = Nothing set tsNewUsersLog = Nothing wscript.Quit End If '=============================================================================================== ' Open the new users file. Set tsNewUsers = fs.OpenTextFile(strUserFileName, 1, -1) ' Error handling. If Err <> 0 Then LogMessage tsNewUsersLog, "An error occurred opening the file of new users." LogMessage tsNewUsersLog, "Error: " & Err.Number & " " & Err.Description LogMessage tsNewUsersLog, "Exiting the application." ' wscript.echo "An error occurred opening the file of new users." ' wscript.echo "Error: " & Err.Number & " " & Err.Description ' wscript.echo "Exiting the application." ' Clean up. Set fs = Nothing Set tsNewUsers = Nothing Set tsNewUserLog = Nothing wscript.Quit End If ' Get all lines from the new users file and split ' them into an array of strings. arrNewUsersInfo = Split(tsNewUsers.ReadAll, vbCrLF)'Chr(13)) ' Iterate through the array of new users. For iLineNum = 0 To UBound(arrNewUsersInfo) bContinue = True ' Split the given name, surname, alias, and ' password strings into the array. arrCurrUserInfo = Split(arrNewUsersInfo(iLineNum), ";", -1, 1) ' Check the number of elements in the array. If UBound(arrCurrUserInfo) = 1 Then ' Get the given name, surname, e-mail alias, ' and password from the array. strGivenName = arrCurrUserInfo(0) strSurname = arrCurrUserInfo(1) strAlias = strGivenName & "_" & strSurname '=============================================================================================== '============= what the password is set to ==================================================== strPassword = "Pa$$word12" '=============================================================================================== '=============================================================================================== ' Display the e-mail alias. LogMessage tsNewUsersLog, strSurname & " " & strGivenName & " ..." ' wscript.echo strSurname & " " & strGivenName & " ..." ' Validate the given and surnames. If ValidateName(strGivenName) = False Or ValidateName(strSurname) = False Then bContinue = False End If ' Validate the e-mail alias. If ValidateAlias(strAlias) = False Then bContinue = False End If Else bContinue = False End If ' If input validation passed, then attempt to create the ' user object. If bContinue Then bContinue = CreateNewUser(strDCServerName, strGivenName, strSurname, strAlias, _ strPassword, objUser, strDomainDN) End If ' If the user object was successfully created, then ' attempt to create the mailbox. If bContinue Then ' Initialize the variables. TimeInterval = 60000 NumofTry = 10 iCounter = 0 ' Depending on the size of the network, the Recipient Update ' Service may take some time to propagate the new user ' to the Exchange server. Attempt to create the mailbox every ' 60 seconds for 10 minutes. Do While iCounter < NumofTry ' Attempt to create the mailbox in the specified ' mailbox store. bContinue = CreateNewUserMailbox(objUser, strLDAPUrl) ' Continue if CreateNewUserMailbox succeeded. If bContinue Then Exit Do iCounter = iCounter + 1 ' Wait before trying again. wscript.sleep(TimeInterval) Loop ' Could not create the mailbox after NumofTry attempts. If iCounter >= NumofTry Then LogMessage tsNewUsersLog, "Failed to create a mailbox for " & strAlias & "." ' wscript.echo "Failed to create a mailbox for " & strAlias & "." bContinue = False End If End If ' ' If the mailbox was created, then attempt to force the ' ' Exchange server to create the mailbox folders. ' If bContinue Then ' ' ' Initialize the variables. ' TimeInterval = 60000 ' NumofTry = 10 ' iCounter = 0 ' ' ' Directory Service replication may take some time. Attempt ' ' to force the Exchange server to create the mailbox folders ' ' every 60 seconds for 10 minutes. ' Do While iCounter < NumofTry ' ' Wait for a certain time interval before trying again. ' wscript.sleep(TimeInterval) ' ' ' Attempt to force the Exchange server to create the ' ' mailbox folders in the specified language.. ' If CreateMailboxFolders(strServerName, strDomainDN, strAlias, _ ' strPassword, strFolderLang) Then Exit Do ' iCounter = iCounter + 1 ' Loop ' ' ' Could not create the mailbox folders after NumofTry attempts. ' If iCounter >= NumofTry Then ' wscript.echo "Failed to create the mailbox folders for " & strAlias & " before logon." ' End If ' End If LogMessage tsNewUsersLog, " " ' wscript.echo("") Next ' Close the file. tsNewUsers.Close tsNewUsersLog.Close ' Clean up. Set fs = Nothing Set tsNewUsers = Nothing Set tsNewUsersLog = Nothing ' Exit the application. wscript.Quit '////////////////////////////////////////////////////////////////////////////////// '// Function: CreateNewUser '// '// Purpose: Creates a new user in Active Directory with the specified given name, '// surname, e-mail alias, and password. '// '// '// Input: strDCServerName = The domain controller on which the user '// object will be created. '// '// strGivenName = The given name of the new user. '// '// strSurname = The surname of the new user. '// '// strAlias = The e-mail alias of the new user. '// '// strPassword = The password for the new user. '// '// Output: objUser = The user object for the new user. '// '// strDomainDN = The domain DN of the new user. '// '// Returns: True if AD user object is created, False if it isn't. '///////////////////////////////////////////////////////////////////////////////// Function CreateNewUser(strDCServerName, strGivenName, strSurname, strAlias, _ strPassword, objUser, strDomainDN) On Error Resume Next CreateNewUser = False ' Declare program variables. Dim objContainer 'As IADsContainer Dim strRecip 'As String ' Build the recipient string. ''''' strRecip = "CN=" & strAlias strRecip = "CN=" & strSurname & "\, " & strGivenName ' Get the container. '=============================================================================================== '======= change the "OU=Test Accounts," to OU where you want users to be created =============== '======= EXAMPLES: "OU=Users,OU=IMS,OU=Business Units," to create user for IMS '======= "OU=Users,OU=Aviation Group,OU=Business Units," to create user for Aviation Set objContainer = GetObject("LDAP://" & strDCServerName & "/" & "OU=Construction, OU=Test Accounts," & _ strDomainDN) '=============================================================================================== '=============================================================================================== ' Initialize the user object. Set objUser = objContainer.Create("User", strRecip) ' Set the display name, account name, given name, surname, an ' and userprinciple properties of the user object. objUser.Put "displayname", strSurname & ", " & strGivenName objUser.Put "sAMAccountName", strAlias objUser.Put "givenName", strGivenName objUser.Put "sn", strSurname '=============================================================================================== '=============================================================================================== '=== change UPN suffix to what you need - @domain etc. ================== objUser.Put "userPrincipalName", strAlias & "@domain" '=============================================================================================== '=============================================================================================== ' Save the changes to the user object. objUser.SetInfo ' Error handling. If Err.Number <> 0 Then LogMessage tsNewUsersLog, "Error creating user object for " & strAlias LogMessage tsNewUsersLog, "Error: " & Err.Number & " " & Err.Description ' wscript.echo "Error creating user object for " & strAlias ' wscript.echo "Error: " & Err.Number & " " & Err.Description ' Clean up. Set objContainer = Nothing Set objServer = Nothing Set objSG = Nothing Set objMSDB = Nothing If Err.Number = -2147019886 Then LogMessage tsNewUsersLog, "The object already exists." ' wscript.echo "The object already exists." CreateNewUser = False Exit Function End If CreateNewUser = False Exit Function End If ' Set the password for the new user. This should be changed by the user ' after he or she logs on. objUser.SetPassword strPassword '=============================================================================================== '=============================================================================================== '========== comment out if you do not want "change password at the next logon" activated ======= ''''objUser.Put "pwdLastSet", 0 '=============================================================================================== '=============================================================================================== ' Enable the new user account. objUser.AccountDisabled = False '=============================================================================================== '===== comment previous line and uncomment next line if you want create disabled account ======= ' objUser.AccountDisabled = True '=============================================================================================== '=============================================================================================== ' Clean up. Set objContainer = Nothing Set objServer = Nothing Set objSG = Nothing Set objMSDB = Nothing LogMessage tsNewUsersLog, "User object for " + strAlias + " created successfully." ' wscript.echo "User object for '" + strAlias + "' created successfully." CreateNewUser = True End Function '////////////////////////////////////////////////////////////////////////////////// '// Function: CreateNewUserMailbox '// '// Purpose: Creates a mailbox for the new user in the specified '// mailbox store. '// '// '// Input: objUser = The user object for the new user. '// '// strLDAPUrl = The LDAP URL for the new user. '// '// Returns: True if the mailbox is created, False if it isn't. '///////////////////////////////////////////////////////////////////////////////// Function CreateNewUserMailbox(objUser, strLDAPUrl) On Error Resume Next CreateNewUserMailbox = False ' Variables Dim objMailbox 'As CDOEXM.IMailboxStore ' Get the IMailboxStore interface. Set objMailbox = objUser ' Create a mailbox for the recipient on the specified Exchange server. objMailbox.CreateMailbox strLDAPUrl 'Enable immediate-logon for the user. objUser.Put "msExchUserAccountControl", 2 ' Save changes to the user object. objUser.SetInfo ' Error handling. If Err.Number <> 0 Then LogMessage tsNewUsersLog, "Error creating mailbox for " & strAlias LogMessage tsNewUsersLog, "Error: " & Err.Number & " " & Err.Description ' wscript.echo "Error creating mailbox for " & strAlias ' wscript.echo "Error: " & Err.Number & " " & Err.Description ' Clean up. Set objUser = Nothing Set objMailbox = Nothing CreateNewUserMailbox = False Exit Function End If '=============================================================================================== '============== comment out the next two lines if you do not want to hide the user ============= objUser.Put "msExchHideFromAddressLists", True objUser.SetInfo '=============================================================================================== '=============================================================================================== ' Clean up. Set objUser = Nothing Set objMailbox = Nothing wscript.echo "Mailbox for " + strAlias + " created successfully." CreateNewUserMailbox = True End Function '////////////////////////////////////////////////////////////////////////////////// '// Function: CreateMailboxFolders '// '// Purpose: Forces the specified Exchange server to create the user's mailbox '// folders if they don't already exist. '// '// Input: strServerName = The Exchange server on which the mailbox '// has been created. '// '// strDomainDN = The domain DN of the new user. '// '// strAlias = The e-mail alias of the new user. '// '// strPassword = The password for the new user. '// '// strFolderLang = The language in which the mailbox '// folders will be created. '// '///////////////////////////////////////////////////////////////////////////////// Function CreateMailboxFolders(strServerName, strDomainDN, strAlias, _ strPassword, strFolderLang) On Error Resume Next CreateMailboxFolders = False ' Variables Dim strMailboxURL 'As String Dim strUserDomain 'As String ' Build the URL to the user's mailbox. strMailboxURL = "http://" & strServerName & "/Exchange/" & strAlias & "/" ' Build the Domain\Username string. strUserDomain = Left(strDomainDN, InStr(1, strDomainDN, ",", vbTextCompare) - 1) strUserDomain = Right(strUserDomain, Len(strUserDomain) - 3) + "\" + strAlias ' Create the XMLHTTP object. Dim oXMLHTTP Set oXMLHTTP = CreateObject("microsoft.xmlhttp") ' Open the request object with the GET method. Specify the source URI, ' that it will run asynchronously, and the username/password of the ' new user. oXMLHTTP.Open "GET", strMailboxURL, False, strUserDomain, strPassword ' Set the language in which the mailbox folders will be created. oXMLHTTP.setRequestHeader "Accept-Language", strFolderLang oXMLHTTP.setRequestHeader "Connection", "Keep-Alive" ' Send the GET method request. If the mailbox folders ' have not yet been created, this method will have the side ' effect of forcing the Exchange server to create them in ' the language specified in the "Accept-Language" header. oXMLHTTP.Send ("") If oXMLHTTP.Status >= 200 And oXMLHTTP.Status < 300 Then wscript.echo "Mailbox folders for " & strAlias & " successfully created." CreateMailboxFolders = True Else 'GET method did not successfully force creation of mailbox folders. CreateMailboxFolders = False End If Set oXMLHTTP = Nothing End Function '////////////////////////////////////////////////////////////////////////////////// '// Function: ValidateInput '// '// Purpose: Verifies that the specified server, mailbox store, or storage group name '// is not longer than 64 characters and doesn't contain any illegal characters. '// '// Input: sInput = The specified server, mailbox store, or storage group name. '// '// Returns: True if the string is validated, False if it isn't. '///////////////////////////////////////////////////////////////////////////////// Function ValidateInput(sInput) ValidateInput = False Dim strPattern 'As String Dim regex 'As RegExp If Len(sInput) > 64 Then LogMessage tsNewUsersLog, "The length of the specified server, mailbox store, or storage group name" _ + " cannot exceed 64 characters." ' wscript.echo "The length of the specified server, mailbox store, or storage group name" _ ' + " cannot exceed 64 characters." Exit Function End If ' Create the regular expression object. Set regex = New RegExp ' Set the pattern to search for. strPattern = ";|/|\\" regex.Pattern = strPattern regex.Global = True ' Exit the application if ';', '\', or '/' ' is found in the input string. If regex.Test(sInput) Then LogMessage tsNewUsersLog, "The specified server, mailbox store, or storage group name cannot contain ';', '\', or '/'." ' wscript.echo "The specified server, mailbox store, or storage group name cannot contain ';', '\', or '/'." ' Clean up. Set regex = Nothing ' Exit the application. Exit Function End If ' Clean up. Set regex = Nothing ValidateInput = True End Function '////////////////////////////////////////////////////////////////////////////////// '// Function: ValidateAlias '// '// Purpose: Verifies that the specified e-mail alias is not longer than 256 '// characters, doesn't contain any illegal characters. '// '// Input: sInput = The specified e-mail alias. '// '// Returns: True if the string is validated, False if it isn't. '///////////////////////////////////////////////////////////////////////////////// Function ValidateAlias(sInput) ValidateAlias = False Dim strPattern 'As String Dim regex 'As RegExp If Len(sInput) > 256 Then LogMessage tsNewUsersLog, "The length of the e-mail alias cannot exceed 256 characters." ' wscript.echo "The length of the e-mail alias cannot exceed 256 characters." Exit Function End If ' Create the regular expression object. Set regex = New RegExp ' Set the pattern to search for. strPattern = ":|\*|;|<|>|\||\""" regex.Pattern = strPattern regex.Global = True ' Exit the application if ';', '\', or '/' ' is found in the input string. If regex.Test(sInput) Then LogMessage tsNewUsersLog, "The specified server, mailbox store, or storage group name cannot contain ':', '*', " & _ " '|', ';', '<', '>', or '""'." ' wscript.echo "The specified server, mailbox store, or storage group name cannot contain ':', '*', " & _ ' " '|', ';', '<', '>', or '""'." ' Clean up. Set regex = Nothing ' Exit the application. Exit Function End If ' Clean up. Set regex = Nothing ValidateAlias = True End Function '////////////////////////////////////////////////////////////////////////////////// '// Function: ValidateName '// '// Purpose: Verifies that the specified name is not longer than 28 '// characters and doesn't contain the '<script' tag. '// '// Input: sInput = The specified name. '// '// Returns: True if the string is validated, False if it isn't. '///////////////////////////////////////////////////////////////////////////////// Function ValidateName(sInput) ValidateName = False Dim strPattern 'As String Dim regex 'As RegExp If Len(sInput) > 28 Then LogMessage tsNewUsersLog, "The length of the name cannot exceed 28 characters." ' wscript.echo "The length of the name cannot exceed 28 characters." Exit Function End If ' Create the regular expression object. Set regex = New RegExp ' Set the pattern to search for. strPattern = "<script" regex.Pattern = strPattern regex.Global = True ' Exit the application if "<script" ' is found in the input string. If regex.Test(sInput) Then LogMessage tsNewUsersLog, "The specified name cannot contain '<script'." ' wscript.echo "The specified name cannot contain '<script'." ' Clean up. Set regex = Nothing ' Exit the application. Exit Function End If ' Clean up. Set regex = Nothing ValidateName = True End Function '================================================================================================ Sub LogMessage(where, Msg) Wscript.Echo msg where.WriteLine msg End Sub '================================================================================================ Tag: download with xhtml and run! Is that possible Tag: 172754
  - 19
    - Solution found: change directory and then type text Thanks Björn. I have now found a solution which works: Set objshell = CreateObject("WScript.Shell") objshell.Environment("process")("prompt") = "$V$_$T$_$P$G" objshell.CurrentDirectory = "C:\Programme\PostgreSQL\8.0\bin\" objshell.Run "%comspec% /c Mytext" Looks always easier in the end! Rgds Francois Tag: download with xhtml and run! Is that possible Tag: 172753
  - 20
    - remove HTML from variables Hi, is there a function to clean a variable of HTML tags. this variable is being sent from a database call. please advise Tag: download with xhtml and run! Is that possible Tag: 172750
  - 21
    - Execute program First of all I want to limit one users access on a stand alone PC. I set the login time window with the NET USER command which indeed limits login. However, it doesn't force logout after exceeding login time frame. Now I want to schedule a script that warns the user that a logoff will occur, and thereafter loggs off the current user. I can create messages in VBScript but my questions are these: How can I identify the current logged on user and compare this with a constant? How can I execute the shutdown program since Shell doesn't work in scripting? Many thanks. Tag: download with xhtml and run! Is that possible Tag: 172748
  - 22
    - logon script We're looking to use a logon script in VBscript that does something like this: If WorkstationName = "test" and the user is a member of global group "X" then Do stuff here end if Anyone have a basic syntax for these actions? We're new to the scripting stuff obviously! Tag: download with xhtml and run! Is that possible Tag: 172747
  - 23
    - Advanced reg.exp pattern needed Hello I was wondering if you guys could help me. I want to remove all rows in a text that starts with Menu to ";" and not the ones that start with Menu2 to ";" Like this: Menu1_34 (lsadflasdjflaksdffjd); Menu2_1 (asldfjalsdjfalkjsdfld); Menu2 (asdjasldfalsdjf); Menu5 (aldjfaslkjfd); should return: Menu2_1 (asldfjalsdjfalkjsdfld); Menu2 (asdjasldfalsdjf); Any clues? TIA /Lasse Tag: download with xhtml and run! Is that possible Tag: 172744
  - 24
    - Filetransfert problem Hi there I have two windows server 2003 on the same network. From server 1 I have the move files to server 2. On server 1 I have a directory like this ..\year\month\day\file1.dat file2.dat .... and so on I have to move the files with the directorys yyyy\mm\dd, but the directory my already exist on server 2 but I could also happen that they have to be created. Can somebold help me out ? Thanks in advance Ralf Tag: download with xhtml and run! Is that possible Tag: 172740
  - 25
    - DFS Link script I need a script to create links in a domain based DFS. I have 3 roots and about 1 hundred link folders. ie Root = Drive 1 Link1 = data share 1 link2 = data share 2 -- TDS Tag: download with xhtml and run! Is that possible Tag: 172736

i try to auto update functionality in my HTA application. At the start
page it controls any update from internet, if so it starts to download
new files (.hta files they are) and run theme. Is that possible, and
how?
Thanks

Top

Re: download with xhtml and run! Is that possible by caglaror

caglaror
Fri Apr 08 23:21:50 CDT 2005

I can download a hta file with xhtml but at the savetofile step it
cause an error, "write to file failed".
Here is my sample code.........
<script language=3D"vbscript">
Set xmlHttpReq =3D CreateObject("Microsoft.XMLHTTP")
'||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
cURL =3D "http://www.frogroup.com/config.eop"
'||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
xmlHttpReq.open "GET", cURL, false
xmlHttpReq.send
'||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Dim strDIR
'strDIR =3D WScript.ScriptFullName
strDIR =3Ddocument.location.pathname
strDIR =3D Left(strDIR,InStrRev(strDIR,"\"))

Dim strFIL
strFIL =3D Mid(cURL,InStrRev(cURL,"/")+1)
'||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Dim objADO
Set objADO =3D CreateObject("ADODB.Stream")
objADO.Type =3D 1
objADO.Open
objADO.write xmlHttpReq.ResponseBody
objADO.SaveToFile strDIR & strFIL,2
'||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
' indirilen dosyanin duzenleme nosu kontrol ediliyor
Dim fso, f
Set fso =3D CreateObject("Scripting.FileSystemObject")
Set f =3D fso.OpenTextFile(strDIR & strFIL, 1, True)
gdd =3D f.ReadAll ' genel direktif dosyasi
veriler=3D Split(gdd, Chr(13))
duzenleme=3DSplit(veriler(0),":")
msgBox("Internetteki versiyon:" & duzenleme(1))
</script>

The config.eop file is text file, and contains config and version data.
It must use for update prosseses.
Thanks
--------------
version:2.7
duzenleme_tarih:10.04.2005
moduller:emsansicil.hta,giris.hta,hasta_kayit.hta,ilac.hta,main.hta,muh_cek=
.hta,muh_fat.hta,muh_kas.hta,recete.hta,sat.hta,stok.hta
klasorler:css,db,img,inc,media,png
author:"Caglar ORHAN"
script_files:baglanti.vbs,func_lib.js
veritabani_adi:ilac_liste.mdb
mesajlar:Mutlu g=FCnler dileriz. //Dayanisma ayakta tutar...

Top