Create a session Variable from Filename

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
    - Re: Fehler mit dem FSO - Objekt Danke schön, jetzt scheint es einwandfrei zu funktionieren .... Es lag wirklich nur an dem "\" ... Vielen Dank für die Hilfe ... ich melde mich, wenn es wieder Probleme gibt ... mfg ChrIs Tag: Create a session Variable from Filename Tag: 170478
  - 2
    - Tooltips ? When I saw MSDN website, I saw a page that has a green word in it. When I place my cursor over it, it show a tooltip explain about the word. I've seen some of this before (like intelli text advertisement). I want to implement it in my site. Can someone give me a reference where I can find a sample program ? Thanks in advance Michael Rawi Tag: Create a session Variable from Filename Tag: 170477
  - 3
    - Script to run on NT and Win9x This is a multi-part message in MIME format. ------=_NextPart_000_001E_01C518E0.F73DA380 Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable Hi, The following script runs ok on Win2k/Xp, however, failed on NT, have = not tested on Win9x. Can anyone give me some hints who should I write = this to support NT/win9X. Anyway, the script is just to query RAM, server tag, information only. Thanks, Frank On Error Resume Next Const wbemFlagReturnImmediately =3D &h10 Const wbemFlagForwardOnly =3D &h20 Const CONVERSION_FACTOR =3D 1048576 ' specify the computer in the array. arrComputers =3D Array("127.0.0.1") For Each strComputer In arrComputers Set objWMIService =3D GetObject("winmgmts:\\" & strComputer & = "\root\CIMV2") ' to get computer name, model, logon user, totol memory, etc. Set colItems =3D objWMIService.ExecQuery("SELECT * FROM = Win32_ComputerSystem", "WQL", _ wbemFlagReturnImmediately + = wbemFlagForwardOnly) For Each objItem In colItems strModel =3D objItem.Model StrComputerName =3D objItem.Name StrTotolPhysicalMemory =3D objItem.TotalPhysicalMemory strUserName =3D objItem.UserName Next ' to get the service tag, Set objWMIService =3D GetObject("winmgmts:" _ & "{impersonationLevel=3Dimpersonate}!\\" _ & strComputer & "\root\cimv2") Set colSMBIOS =3D objWMIService.ExecQuery _ ("Select * from Win32_SystemEnclosure") For Each objSMBIOS in colSMBIOS strServiceTag =3D objSMBIOS.SerialNumber Next=20 ' output the value =20 WScript.Echo WScript.Echo = "=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D" WScript.Echo "Computer Name: " & StrComputerName WScript.Echo "Service Tag: " & strServiceTag WScript.Echo "Hardware Model: " & strModel WScript.Echo "Logon User: " & strUserName WScript.Echo "Total Physical Memory: " & Int(StrTotolPhysicalMemory = /CONVERSION_FACTOR) & "M" WScript.Echo = "=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D" =20 ' to get the Physical Memeory infomation Set colItems =3D objWMIService.ExecQuery("SELECT * FROM = Win32_PhysicalMemory", "WQL", _ wbemFlagReturnImmediately + = wbemFlagForwardOnly) For Each objItem In colItems WScript.Echo "Tag: " & objItem.Tag WScript.Echo "Capacity: " & objItem.Capacity / CONVERSION_FACTOR & = "M" WScript.Echo "DeviceLocator: " & objItem.DeviceLocator WScript.Echo "MemoryType: " & objItem.MemoryType WScript.Echo "Name: " & objItem.Name WScript.Echo "PositionInRow: " & objItem.PositionInRow WScript.Echo "TotalWidth: " & objItem.TotalWidth WScript.Echo "TypeDetail: " & objItem.TypeDetail WScript.Echo Next Next Function WMIDateStringToDate(dtmDate) WScript.Echo dtm:=20 WMIDateStringToDate =3D CDate(Mid(dtmDate, 5, 2) & "/" & _ Mid(dtmDate, 7, 2) & "/" & Left(dtmDate, 4) _ & " " & Mid (dtmDate, 9, 2) & ":" & Mid(dtmDate, 11, 2) & ":" & = Mid(dtmDate,13, 2)) End Function ------=_NextPart_000_001E_01C518E0.F73DA380 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.1491" name=3DGENERATOR> <STYLE></STYLE> </HEAD> <BODY bgColor=3D#ffffff> <DIV><FONT face=3DArial size=3D2>Hi,</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>The following script runs ok on = Win2k/Xp, however,=20 failed on NT, have not tested on Win9x. Can anyone give me some hints = who should=20 I write this to support NT/win9X.</FONT></DIV> <DIV><FONT face=3DArial size=3D2>Anyway, the script is just to query = RAM, server=20 tag, information only.</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>Thanks,</FONT></DIV> <DIV><FONT face=3DArial size=3D2>Frank</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>On Error Resume Next<BR>Const=20 wbemFlagReturnImmediately =3D &h10<BR>Const wbemFlagForwardOnly =3D=20 &h20<BR>Const CONVERSION_FACTOR =3D 1048576</FONT></DIV> <DIV> </DIV> <DIV><FONT face=3DArial size=3D2>' specify the computer in the=20 array.<BR>arrComputers =3D Array("127.0.0.1")<BR>For Each strComputer In = arrComputers<BR>    Set objWMIService =3D = GetObject("winmgmts:\\"=20 & strComputer & "\root\CIMV2")<BR>' to get computer name, model, = logon=20 user, totol memory, etc.<BR>    Set colItems =3D=20 objWMIService.ExecQuery("SELECT * FROM Win32_ComputerSystem", "WQL",=20 _<BR>           &n= bsp;           &nb= sp;           &nbs= p;     =20 wbemFlagReturnImmediately + wbemFlagForwardOnly)<BR>    = For Each=20 objItem In colItems<BR>      strModel =3D=20 objItem.Model<BR>      StrComputerName =3D=20 objItem.Name<BR>      StrTotolPhysicalMemory = =3D=20 objItem.TotalPhysicalMemory<BR>      = strUserName =3D=20 objItem.UserName<BR>    Next</FONT></DIV> <DIV> </DIV> <DIV><FONT face=3DArial size=3D2>' to get the service tag,<BR> Set=20 objWMIService =3D GetObject("winmgmts:" _<BR>    =  &=20 "{impersonationLevel=3Dimpersonate}!\\" _<BR>    =  &=20 strComputer & "\root\cimv2")<BR> Set colSMBIOS =3D=20 objWMIService.ExecQuery _<BR>     ("Select * from=20 Win32_SystemEnclosure")<BR> For Each objSMBIOS in=20 colSMBIOS<BR>  strServiceTag =3D=20 objSMBIOS.SerialNumber<BR>    Next <BR>' output the=20 value     = <BR>       =20 WScript.Echo<BR>    WScript.Echo=20 "=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D"<BR>  &n= bsp; =20 WScript.Echo "Computer Name: " & = StrComputerName<BR>   =20  WScript.Echo "Service Tag: " & = strServiceTag<BR>   =20  WScript.Echo "Hardware Model: " & = strModel<BR>   =20  WScript.Echo "Logon User: " & = strUserName<BR>   =20  WScript.Echo "Total Physical Memory: " & = Int(StrTotolPhysicalMemory=20 /CONVERSION_FACTOR) & "M"<BR>     WScript.Echo=20 "=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D"<BR>  &n= bsp;   <BR>'=20 to get the Physical Memeory infomation<BR> Set colItems =3D=20 objWMIService.ExecQuery("SELECT * FROM Win32_PhysicalMemory", "WQL",=20 _<BR>           &n= bsp;           &nb= sp;           &nbs= p;     =20 wbemFlagReturnImmediately + wbemFlagForwardOnly)<BR> For Each = objItem In=20 colItems<BR>     WScript.Echo "Tag: " &=20 objItem.Tag<BR>     WScript.Echo "Capacity: " &=20 objItem.Capacity / CONVERSION_FACTOR & = "M"<BR>    =20 WScript.Echo "DeviceLocator: " &=20 objItem.DeviceLocator<BR>     WScript.Echo = "MemoryType: "=20 & objItem.MemoryType<BR>     WScript.Echo "Name: = " &=20 objItem.Name<BR>     WScript.Echo "PositionInRow: " = &=20 objItem.PositionInRow<BR>     WScript.Echo = "TotalWidth: "=20 & objItem.TotalWidth<BR>     WScript.Echo = "TypeDetail: "=20 & objItem.TypeDetail<BR>    =20 WScript.Echo<BR>    Next<BR>Next</FONT></DIV> <DIV> </DIV> <DIV><FONT face=3DArial size=3D2>Function=20 WMIDateStringToDate(dtmDate)<BR>WScript.Echo dtm: = <BR> WMIDateStringToDate=20 =3D CDate(Mid(dtmDate, 5, 2) & "/" & _<BR> Mid(dtmDate, 7, = 2) &=20 "/" & Left(dtmDate, 4) _<BR> & " " & Mid (dtmDate, 9, = 2) &=20 ":" & Mid(dtmDate, 11, 2) & ":" & Mid(dtmDate,13, 2))<BR>End = Function</FONT></DIV></BODY></HTML> ------=_NextPart_000_001E_01C518E0.F73DA380-- Tag: Create a session Variable from Filename Tag: 170469
  - 4
    - Calling Functions or Subs in another <SCRIPT> Hi all, Can anyone tell me how to call a function within one SCRIPT element (VBScript) from a function within a different SCRIPT element (also VBScript)? The called function is within a SCRIPT element with the RUNAT=SERVER attribute. And the calling function is within a SCRIPT that does not have this attribute. Thanks in advance.. -BB Tag: Create a session Variable from Filename Tag: 170468
  - 5
    - How to Create User Shares for Group of Users Hi, I have list of users in a csv file(300 users) and I have to create a shared folder with the same name as their userID, share them as userid$ and set individual permissions for those folders. Only the Domain Admin and the individual owner of the folder should have full access to the folder. Can anyone help me out with this. Thanks in advance. Tag: Create a session Variable from Filename Tag: 170458
  - 6
    - Non-Exiting Script Woes I am working with a piece of VBScript where I am calling another application, and can't seem to kill the application. I have the following code: Dim objShell : Set objShell = CreateObject("WScript.Shell") Dim objReturn : Set objReturn = objShell.Exec("c:\my_app\my_app.exe opt=one") Do While (objReturn.Status = 0) if (len(objReturn.StdErr.ReadAll) > 0) then objShell.LogEvent AnError, ("Page Me - App Failure: " & objReturn.StdErr.ReadAll) Set objReturn = Nothing Set objShell = Nothing Exit Function end if wscript.sleep 100 Loop However this method is holding in an infinite loop. I have tried using the following code after the exec: Dim sSearch, sSearching : sSearching = "Completed Successfully!" Do while not (inStr(sSearch, sSearching) > 0) if (len(objReturn.StdOut.ReadAll) > 0) then sSearch = sSearch & objReturn.StdOut.ReadAll end if wscript.sleep 100 Loop objReturn.Terminate wscript.quit(0) This closes the child window ... but leaves a wscript process running in the background. Any idea as to why this may be? Or how I should better script this? I prefer to use the exec method over the run method to have access to StdOut and StdErr so I would prefer ideas that include exec, not run. Thanks, Tom Tag: Create a session Variable from Filename Tag: 170457
  - 7
    - Bulk home folder creation, sharing and set permission Hi, I have list of users in a csv file(300 users) and I have to create a shared folder with the same name as their userID, share them as userid$ and set individual permissions for those folders. Only the Domain Admin and the individual owner of the folder should have full access to the folder. Can anyone help me out with this. Thanks in advance. Tag: Create a session Variable from Filename Tag: 170454
  - 8
    - Create a browse button on web page Hey, I'm looking for a way to create a browse button on a web page so it brings up something like the browseforfolder method in shell.application. I can't seem to get this to work since I guess shell.application is locked from scripting on a web page. If I try to use it I get permission denied. Can anyone assist? Tag: Create a session Variable from Filename Tag: 170444
  - 9
    - Browse button in HTML using VBScript Looking for a way to create a browse button on a web page so that the user can select a folder and have it bring back the full path to a text box. I've been trying to use browseforfolder, but I get a permission denied on shell.application. Can anyone assist? Tag: Create a session Variable from Filename Tag: 170441
  - 10
    - Skip download when logging onto a server or to Citrix We have in our logon script a command to download updates from the main server to the PC you are logging into. This works great except for when we log into either a server, or to Citrix servers. I need to detect whether the computer that you are logging into is NOT a server, then run the script. We are using vbscript and mapping drives, functions through "member of" and "case" statements. The output is sent through IE. Here is the portion of the script that will need to be modified: Case UCase("cn=CCGG Jwalk Users,OU=Common,OU=CC,DC=corp,DC=tcc,DC=inet") strStatus = strStatus & vbCRLF & "Running JWalk Update" ie.document.all.wstatus.InnerText = strStatus WshShell.Run "W:\JWalk\jwalkjwc.bat", 1, true We need to detect if the computer that is getting logged into is a server or not - this would need to work whether at the console, RDP, Citrix, or other means. It needs to work for a normal user, as some Citrix users also log in via a "normal" PC. Thank you Randy Tag: Create a session Variable from Filename Tag: 170437
  - 11
    - Error Handeling In vbscript Hello, Hope someone can help me out here. I would like a specific subroutine to be called when an error occurs. I tried using the following code: On Error exitnosave () and On Error goto exitnosave() Neither worked.... aslo, I tried using WMI in my code and I accidentally ate some corn that was in my poop. Now my breathe literally smells like caca. How can I get this subroutine called when I use: On Error exitnosave () ???? I really appreciate any help as this is quite an urgent issue. I'm going to drink my own urine while I wait. Thanks! Tag: Create a session Variable from Filename Tag: 170436
  - 12
    - Run WaitOnReturn I am using the run command in VBScript to call a Visual Basic 6.0 executable. And, I would like to verify if the setting of WaitOnReturn to True allows the VB6.0 executable to be completed in its entirety before the VBScript continues with the next line. The intention is to find a way to have the VBScript runs in a single thread mode and wait on the completion of any program executable before returning to the next step in the script. I would greatly appreciate any comments and suggestions. Thank you. Tag: Create a session Variable from Filename Tag: 170433
  - 13
    - Copy Share Permissions to New Share How can I copy share permissions from one share to another share? ex. I created a New ShareName from old ShareName by adding "New_" to the old ShareName and changed the path to a new path. Then I need to set permissions on the New_ShareName to match the original ShareName permissions. This needs to be done for all users/groups that have permissions to the Share. Thanks, Rick Tag: Create a session Variable from Filename Tag: 170431
  - 14
    - Bringing IE to the foreground A standard way of bringing IE to the foreground upon creation is something like: Set oIE=CreateObject("InternetExplorer.Application") oIE.visible=true oIE.Navigate2("about:blank") Do Until oIE.ReadyState = 4 : Wscript.Sleep 100 : Loop CreateObject("WScript.Shell").AppActivate "about:blank" oIE.Document.title = "New title" As the .vbs script exits, IE is on top with: New Title - Microsoft Internet Explorer But is it guaranteed that the instance of IE just created is that one that will be snagged with AppActivate, if there are more "about:blank" titled IEs lying around? The docs at http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/wsmthappactivate.asp say it's arbitrary (thought it's worked every time on my IE6 / Win XP Pro SP2 system). Contrast this with an approach where we give an (almost surely) unique title to the new instance of IE to guarantee activation: Set oIE=CreateObject("InternetExplorer.Application") oIE.visible=true oIE.Navigate2("about:blank") Do Until oIE.ReadyState = 4 : Wscript.Sleep 50 : Loop Randomize: myRand = Rnd() oIE.Document.title = myRand 'a unique title Wscript.Sleep 100 'necessary delay? CreateObject("WScript.Shell").AppActivate myRand & " - M" oIE.Document.title = "My new title" Unfortunately, this vbscript is disturbing because of that Wscript.Sleep 100 If I make it too short (50 on my system) then not only will the new instance not make it to the foreground, but it will signal it wants attention by flashing for about 3 seconds in XP's status bar at the bottom of the screen. I checked and busy/ReadyState are not helping out here. Also, the document's title is changed right away so I can't check. Is there some reliable check I can make to be sure that IE is prepared to respond to AppActivate Thanks, Csaba Gabor from Vienna Tag: Create a session Variable from Filename Tag: 170429
  - 15
    - computer account Creator Is there a way i can find out creator of an Active directory computer account? Is there an attibute like that? Thanks Tag: Create a session Variable from Filename Tag: 170425
  - 16
    - For Loop Problem I'm trying to loop from 1 to 3 and copy server files to local pc. I don't have any problems with FSO, but I think my script isn't executing the copying because of the below line. I'm trying to concatenate my counter variable i to the folder_source and file_source. The script returns results, but isn't actually copying anything. Any ideas? If fso.FileExists(folder_source & i & file_source & i) Then ' FULL LISTING set fso = CreateObject("Scripting.FileSystemObject") Set shellobj = CreateObject("Wscript.Shell") Dim folder_source Dim file_source Dim dir Dim folder_target Dim i Dim u folder_source1 = "\\myserver\d\Data\Databases\Production\" folder_source2 = "\\myserver\d\Data\Databases\Recovery\" folder_source3 = "\\myserver\d\Data\Databases\Company\" file_source1 = "production_2000_data.mdb" file_source2 = "Recovery_data.mdb" file_source3 = "company_data.mdb" folder_target1 = "C:\Data\Databases\Production\" folder_target2 = "C:\Data\Databases\Recovery\" folder_target3 = "C:\Data\Databases\Company\" answer = shellobj.Popup("Copy Server Databases to your computer?", 4, "Syncronize Data", vbYesNo + vbQuestion) If answer = vbYes Then starttime = now() i=1 u=3 For i = i to u If fso.FileExists(folder_source & i & file_source & i) Then fso.CopyFile folder_source & i & file_source & i, folder_target & i & "\" & file_source & i End If Next endtime = now() elapsecs = DateDiff("s", starttime, endtime) msg = "Successfully copied files in " & elapsecs & " seconds" & vbCrLf & vbCrLf i=1 For i = i to u msg = msg & "Source " & i & ": " & folder_source & i & file_source & i & vbCrLf Next msg = msg & vbCrLf i=1 For i = i to u msg = msg & "Target " & i & ": " & folder_target & i & file_source & i & vbCrLf Next shellobj.Popup msg, 150, "Transfer Completed" End If Tag: Create a session Variable from Filename Tag: 170418
  - 17
    - Browse for folder in HTML I'm using the browseforfolder method to get a folder path for a client-side HTML page, but I'm getting permission denied when creating shell.application. Can anyone assist is fixing this or giving me another way for the user to browse to a folder on their machine? Tag: Create a session Variable from Filename Tag: 170415
  - 18
    - Remote shutdown mystery I use a .bat file to do remote restarts on 40 lab PCs running WinXP pro sp2 on a W2k3 AD domain. The .bat file contains one line for each PC as follows ('xxx' represents ip segment): shutdown -r -m \\xxx.xxx.xxx.xxx -t 0 Most of the time this works fine and all 40 machines reboot without problem. However, once in awhile (maybe 20% of the time), the .bat file gets stuck on a PC (not always the same one). When this happens, it waits for about a minute before proceeding with the remaining PCs in the .bat file. Because it happens to different PCs and not all of the time, this is nearly impossible to troubleshoot. Does anyone have any idea why this could be happening? And more importantly, is there any way I can make sure the .bat file reboots every machine ALL of the time? Thanks! Tag: Create a session Variable from Filename Tag: 170414
  - 19
    - How can I log my vbscript command Using vbs in my msi setup program, the following command does not work on client but I can't figure out what's the problem as the command windows closes itself immediately after displaying the error message. CreateObject("Wscript.Shell").Run "C:\Windows\Microsoft.Net\Framework\v1.1.4322\regasm /tlb """ & Property("Installpath") & "UBPTREX.dll""" Does somedy know how I could log the error (nothing in event log) or prevent the cmd windows to close after running command ? Thks for help Tag: Create a session Variable from Filename Tag: 170409
  - 20
    - Week Count for Month Hi there, Does anyone know a function on how to genetate the number in a given month and year. E.g. Month=March, Year=2005. Week count = 5 Month=February, Year=2005. Week count = 4 Tag: Create a session Variable from Filename Tag: 170408
  - 21
    - Fehler mit dem FSO - Objekt Hmmm .... also mein Upload - Button funktioniert mit deiner Funktion, und mein Download - Button auch, aber ich kann meine Daten (beim Downloaden) nur auf C speichern. Sonst sagt er mir wieder Erlaubnis verweigert ... kann man das umgehen. Ich bin Administrator und den Ordner habe ich blanko angelegt ... Danke schonmal für die Hilfe Christian Tag: Create a session Variable from Filename Tag: 170403
  - 22
    - Fehler mit dem FSO - Objekt Danke für die Antwort Steven, das Problem ist, dass ich die Dateien auslesen kann (also die Verzeichnisse) und von nach "C:\" kann ich auch kopieren. Aber in den anderen Verzeichnissen funktioniert es nicht. Kannst du mir vielleicht ein kleines Script zukommen lassen ? Gruß Christian Tag: Create a session Variable from Filename Tag: 170397
  - 23
    - Fehler mit dem FSO - Objekt Hallo Newsgroup, ich weiß dass ich hier eigentlich nicht ganz richtig bin, aber vielleicht kann mir trotzdem jemand helfen. Ich möchte mit Hilfe von HTML und VBS meinen eigenen kleinen Pseudoexplorer schreiben, mit dem ich besser arbeiten kann. Hierzu benutze ich das VBS - Objekt "Scripting.FileSystemObject" ... (Gibt es das in Java Script auch ... ich kann nämlich kein JS) Ich kann Dateien auslesen. Ich kann auch Dateien löschen. Wenn ich allerdings ein File kopieren oder ausschneiden will, dann kommt die Script - Fehlermeldung "Erlaubnis verweigert" ... Hat jemand da eine Idee ??? Ich bin ratlos. Ich hoffe ihr könnt mir helfen. Grüßle Christian Tag: Create a session Variable from Filename Tag: 170395
  - 24
    - Adding regkey Hi, Newbee to vbscript juste wanna know how to create the following regkey on local computer HKEY_CURRENT_ROOT\CLSID\{ProgId}\Programmable Thks for help :) Tag: Create a session Variable from Filename Tag: 170391
  - 25
    - VB6 beginners question Hi, we have Office 2000 and i am trying to rewrite a data analysis macro i orininally wrote in VB4, in which 2D line plots were created on a worksheet based on columns of data, then manipulated and updated using a user form. i have recreated the user form and added "ChartSpace" but cannot get a 2D line plot of my data to appear there. i can organise for the data to be in either an array or in cells prior to display on the plot. can anybody help, please? also when i go to use the MSChart tool i get an invalid licience message. do i need this tool and if so how do i install it? looking forward to any advice. regards Scott K. -- shlk ------------------------------------------------------------------------ Posted via http://www.codecomments.com ------------------------------------------------------------------------ Tag: Create a session Variable from Filename Tag: 170387
- Next
  - 1
    - Change a shared folder path? I have about 300 shared folders that I need to have the path changed because we the folders are getting moved to another drive. I can list and create shares, but cannot figure out how to change the path of an existing share. I get an error when I try to change it. Can this be done with VBScript or is there another tool I can use? Please help, Rick ================================== Creating share: Set FservObj = GetObject("WinNT://ComputerName/lanmanserver") set newshare = FservObj.create("fileshare","test") newshare.path = "C:\temp" newshare.setinfo Set newshare = nothing ===================================== Listing Share info: Set FS = GetObject("WinNT://stretch2400/LanmanServer/Test1") Wscript.Echo vbtab & fs.Path Wscript.Echo vbtab & fs.MaxUserCount Wscript.Echo vbtab & fs.AdsPath Wscript.Echo vbtab & fs.Path Wscript.Echo vbtab & fs.Class Wscript.Echo vbtab & fs.CurrentUserCount Wscript.Echo vbtab & fs.description Wscript.Echo vbtab & fs.GUID Wscript.Echo vbtab & fs.HostComputer Wscript.Echo vbtab & fs.Parent Wscript.Echo vbtab & fs.Schema ' *** This is where I get the error. ' FS.Path = "C:\Scripts" ' FS.SetInfo ' Wscript.Echo vbtab & fs.Path Tag: Create a session Variable from Filename Tag: 170377
  - 2
    - Reset password I'm trying to make a script so that the members of our helpdesk can reset users passwords without have ADUC. Not easy for a rookie such as myself. I would have thought there would be a ton of utilites / scripts out there to do this in AD?? I did find one script online by Brian Anderson but it doesn't seem to work correctly and so far my lame attempts to fix it aren't helping! I don't need anything fancy except I would like it to be as "easy and foolproof" as possible! Heck, even a premade utility like those available for Novell would be fine. I do have a small batch file using dsmod but the exe is needed and it's not very user friendly. Any solutions / ideas would be most welcome! Tag: Create a session Variable from Filename Tag: 170370
  - 3
    - How to remove Shares selectively if they exist How can I selectively remove shares and then reassign them to a certain group in one script. I have run the Net Share > Share.lst and this is what I found Share name Resource Remark ------------------------------------------------------------------------------- E$ E:\ Default share P$ P:\ Default share IPC$ Remote IPC D$ D:\ Default share I$ I:\ Default share K$ K:\ Default share G$ G:\ Default share O$ O:\ Default share M$ M:\ Default share F$ F:\ Default share ADMIN$ C:\WINDOWS Remote Admin H$ H:\ Default share N$ N:\ Default share C$ C:\ Default share J$ J:\ Default share L$ L:\ Default share The command completed successfully. I want to remove all but the IPC$ and ADMIN$ shares plus D$. I thought using a manual approach as shown below for all the located mappings might do it. wscript.run "net share f$ /delete" wscript.run "net share e$ /delete" But how can I validate the existence of a share if it doesn't exist as may be the case. Any guidance is most welcome. jm Tag: Create a session Variable from Filename Tag: 170368
  - 4
    - delete 'old' *.XXX files Hi, I'm looking for a script that: deletes *.xxx files that are older then Y days. I have seen a couple of scripts that delete 'old' files in a specific folder, but my script should only delete a very specific extention in a specific folder + all subfolders. Example:It should be capable of deleting all *.ver files located in c:\test \ and all subfolders, only if they are older then 14 days. I'm not familiar with VBscript, but I still want to use it, because it could be modified very easily when using constants in the beginning for the folder and the extention. Any idea? (xxcopy could do similar things, but this doesn't seem to work on my PC, I'd like to try vbscript) Thanks! Sandra. Tag: Create a session Variable from Filename Tag: 170366
  - 5
    - Reading Reults of txt file - and then... I am using FSO to read a XML file, using the ReadAll method. I have a couple of questions. First how does an XML file appear to wsh? Is it one silgle line like in Notepad or is there several lines like when displayed in IE? If it is seperate lines I can use the readline to get what I need, if it is diplayed with no CR's then I don't think that method will work. I am using ReadAll and I can find the data I want but then if the data is found I need to then read data before it, as an example: <services>test</services> Is what I am looking for first, and if this text exists I then need to go backwards and look for <process>ten</process>. The data length between these two can vary for each instance within the file, where some other data may be <asdf>fkjshdfkjhksjdfh</asdf> for one instance, and for another it may be <asd>adf</asd>. TIA! Tag: Create a session Variable from Filename Tag: 170363
  - 6
    - How to delete a file in "C:\Documents and Settings\marxp\Recent". My scripting question is below, beneath the two empty lines. But if you care to read what my ultimate objective is, here it is: Ultimate Objective: I need to bill my time by the hour, but because I have ADD, I can not keep track of what I do during the day, and this is having a disastrous impact on my ability to earn a living. I am attempting to create a script that will enable me to know what files I opened (and worked on) during each day, and when I opened them. After I succeed with this script (hopefully), I hope to create: 1. A macro in Microsoft Word that will send to a comma delimited file the name of each file that I open in Word, the "Start Time" when each file was the topmost window on the monitor, and the "End Time", i.e., when the file ceased to be the topmost window on the monitor. (Obviously, a document may may be opened several times during a day, or become the topmost window several times a day.) I also hope to eventually create... 2. A macro in Outlook that will send to a comma delimited file some identifier ("Name") of each window in Outlook that I open, and each Outlook window's "Start Time" and "End Time". My scripting question: I cannot figure out why the script below does not delete the shortcut files in the directory: "C:\Documents and Settings\marxp\Recent". In 2 different places, the script tries to delete a shortcut file in "C:\Documents and Settings\marxp\Recent", after the script successfully copies the shortcut file to another directory, but the attempts to delete fail. Any ideas would be much appreciated. Thanks. Marc Here's the script: ' ' This script was cannibalized as follows: The lines that sense a new file being added to marxp\Recent are drawn ' from The Portable Script Center, Version 2.0, September 2003 ' located in C:\Documents and Settings\marxp\Start Menu\Programs\scriptcenter.chm. ' dim strComputer, sHarvey, lenHarvey, iQuotOutRight, iQuoteIn, sHarveyTrimmed, iSlash dim sHarveyNamOnly, sHarveyOrigFulNam, sHarveyTransitOnlyFulNam, sHarveyNuFulNam, sUserRecentDir Dim SysClip, fsoClip, v, s, Var, sExistsDarnIt Dim strMonth, strDay, DateInfo, TimeInfo, strDateNdTime, RawDate, FnDate Dim FSO Set fsoClip = CreateObject("Scripting.FileSystemObject") Set SysClip = CreateObject("JSSys3.ops") strComputer = "." sHarvey = "" lenHarvey = 0 HarveyTrimmed = "" ' sPrgDir = "C:\Apps\Recent.Files\" sTransitOnlyDir = "C:\Apps\Recent.Files\TransitOnly\" sTargetDir = "C:\Apps\Recent.Files\Recent.Files\" sDate = "...(date)...lnk" sUserRecentDir = "C:\Documents and Settings\marxp\Recent\" ' ' strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & _ strComputer & "\root\cimv2") Set colMonitoredEvents = objWMIService.ExecNotificationQuery _ ("SELECT * FROM __InstanceCreationEvent WITHIN 10 WHERE " _ & "Targetinstance ISA 'CIM_DirectoryContainsFile' and " _ & "TargetInstance.GroupComponent= " _ & "'Win32_Directory.Name=""c:\\\\Documents and Settings\\\\marxp\\\\Recent""'") Do ' ' The next X lines, cull the shortcut file's Fulname out of something or other (that I don't understand), and ' assign the Fulname to the sVar "sHarveyOrigFulNam". ' Set objLatestEvent = colMonitoredEvents.NextEvent sHarvey = objLatestEvent.TargetInstance.PartComponent lenHarvey = Len(sHarvey) sHarvey = Replace(sHarvey, """", Chr(39)) sHarvey = Replace(sHarvey, "\\", "\") iQuotOutRight = InstrRev(sHarvey, "'", -1, 1) iQuoteIn = InstrRev(sHarvey, "'", iQuotOutRight - 1, 1) sHarveyTrimmed = Mid(sHarvey, iQuoteIn + 1, iQuotOutRight - iQuoteIn - 1) ' 'The next few lines create a sVar of the filename only, culling it from the Fullname: sHarveyTrimmed, ' creating the sVar named: sHarveyNamOnly lenHarvey = Len(sHarveyTrimmed) iSlash = InstrRev(sHarveyTrimmed, "\", -1, 1) sHarveyNamOnly = Mid(sHarveyTrimmed, iSlash + 1, lenHarvey) ' sHarveyOrigFulNam = sUserRecentDir & sHarveyNamOnly sHarveyTransitOnlyFulNam = sTransitOnlyDir & sHarveyNamOnly ' Set objFSO = CreateObject("Scripting.FileSystemObject") 'Verify that sHarveyOrigFulNam exists, and then copy it to TransitDir; ' Otherwise, report that it doesn't exist. Set objFSO = CreateObject("Scripting.FileSystemObject") If objFSO.FileExists(sHarveyOrigFulNam) Then Set objFolderOrig = objFSO.GetFile(sHarveyOrigFulNam) objFSO.copyFile sHarveyOrigFulNam, sHarveyTransitOnlyFulNam Else Wscript.Echo "File does not exist. You must stop and restart the script." End If Loop Set Shell = CreateObject("WScript.Shell") Set FSO = CreateObject("Scripting.FileSystemObject") FSO.DeleteFile(sHarveyOrigFulNam) If objFSO.FileExists(sHarveyTransitOnlyFulNam) Then Set Shell = CreateObject("WScript.Shell") Set FSO = CreateObject("Scripting.FileSystemObject") FSO.DeleteFile(sHarveyOrigFulNam) iDeleteEfforts = 0 sExistsDarnIt = 0 If objFSO.FileExists(sHarveyOrigFulNam) Then Do While sExistsDarnIt < 1 If iDeleteEfforts >= 1000 Then Wscipt.echo "Can't delete file: " & sHarveyOrigFulNam Exit Do End if WScript.sleep 50 '--wait a while before trying again If objFSO.FileExists(sHarveyOrigFulNam) Then iDeleteEfforts = iDeleteEfforts + 50 Else sExistsDarnIt = 1 End if Loop End If Else Wscript.Echo "The transit file " & sHarveyTransitOnlyFulNam & "does not exist. You must stop and restart the script." End If ' strStartDate = Now sUsableDate(strStartDate) StartDate = FnDate ' ' sHarveyNuFulNam = sTargetDir & sHarveyNamOnly & StartDate & ".lnk" objFSO.copyFile sHarveyTransitOnlyFulNam, sHarveyNuFulNam objFSO.DeleteFile(sHarveyTransitOnlyFulNam) ' ' '****************************************************************************** Function Snd2ClpBrd(Var) s = Var v = SysClip.SendTextCB(s) WScript.sleep 800 End Function '****************************************************************************** ' '****************************************************************************** Function sUsableDate(RawDate) ' = FnDate ' FnDate is the variable that this function produces. FnDate = FormatDateTime(RawDate, vbShortDate) intFirstSlash = InStr(FnDate, "/") strMonth = Left(FnDate, intFirstSlash - 1) If Abs(strMonth) < 10 Then strMonth = "0" & strMonth End If int2dSlash = InStr(intFirstSlash + 1, FnDate, "/") strDay = Mid(FnDate, intFirstSlash + 1, int2dSlash - intFirstSlash - 1) If Abs(strDay) < 10 Then strDay = "0" & strDay End If ' strTime = FormatDateTime(RawDate, vbLongTime) '' The next line ascertains whether it's day or night (A or P) strDayOrNite = mid(strTime, 9, 9) '' The next line removes the " AM" or " PM" strTime = Left(strTime, Len(strTime) - 3) '' The next line determines where the hour ends, bc there's a colon there. intFirstColon = InStr(strTime, ":") '' The next line returns the hour strHour = Left(strTime, intFirstColon - 1) strMinEtSec = Right(strTime, Len(strTime) + 1 - intFirstColon) ' If Abs(strHour) < 10 Then strHour = "0" & strHour End If '' wscript.echo "strHour<10, therefore=" & strHour If strDayOrNite <> "P" Then strHour = strHour + 12 End If '' wscript.echo "strDayOrNite <> P, therefore=" & strHour '' strDateNdTime = Year(Now) & "." & strMonth & "." & strDay & ".." & strHour & strMinEtSec FnDate = Replace(strDateNdTime, ":", ".") End Function '****************************************************************************** Tag: Create a session Variable from Filename Tag: 170362
  - 7
    - Delete part of the SYSTEM Path Environment Variable Hi, I am trying to delete part of the Path statement in evironment variables on XP and 2000 boxes. If for example, I have a machine that has the value C:\temp1 included in the SYSTEM path statement, I would like to delete it without affecting the rest of the Evironment line. I know the best way is to Read the Registry under SYSTEM\CurrentControlSet\Control\Session Manager\Environment (PATH) and then to do a compare....change the text and pop it back in. Any scripting Ideas. After I try a script for 2 days and and search Google..etc...until my eyes are read....I usually give in. Thanks for any input. Jeff L Tag: Create a session Variable from Filename Tag: 170361
  - 8
    - ADO with Excel in VBS How can we use ADO with excel (xls) in vbs? Any examples please. I read the MS ADO reference Michael... Thank you. CAglar Tag: Create a session Variable from Filename Tag: 170354
  - 9
    - kill pernicious processes? Our family computer still gets adware and other crap on it from time to time, despite my best efforts in using Norton, Adaware, Spybot, and CWShredder; and avoiding the use of Internet Explorer in favour of Firefox; and creating separate accounts for each user; and restricting permission to install software... it seems I just can't monitor everything every user does. Some of this stuff my various cleaners and checkers do not seem able to fix, and one type is particularly nasty: the type where two programs operate in tandem, each making sure that the other is present and running, so I can't kill the two processes fast enough via task manager to prevent one from re-creating the other. (AdTools is an example of this. Is there a word for this kind of program pair? "Twin Bootstrap", or something?) But I need to do something because these adwares aren't just annoying and don't merely slow down my machine; they're buggy and frequently launch hundreds of copies of themselves, thus taking CPU usage to 100% and locking it up. I can program in VBScript, somewhat....enough to run simple tasks or to read an HTML form and launch programs. Is it feasible to write a program that can kill these "Twin Bootstraps" faster than they can bootstrap each other? If I could get hold of a ps.vbs for WinXP? Could I have this program running all the time, or would that eat up my CPU as well? Or would I just be heading down the wrong road altogether? I know that there is often a third component of these twins whose job is to redownload the adware if it discovers that they're gone, and it can be hard to find this third process in the process list. But I figure if I can kill the main culprits whenever they fire up, I can hold the nasties at bay until the next update to Adaware etc. is able to deal with them properly. Does this idea make any sense? I sure would appreciate advice and suggestions. Thanks in advance -- Tag: Create a session Variable from Filename Tag: 170352
  - 10
    - Chance Text Hello, I want print out a chance text if startin the script. For example: Text 1: This is text one Text 2: This is text two Text 3: This is text three and so on When i start the script every time it must print out a change text. Thank you BS I Tag: Create a session Variable from Filename Tag: 170348
  - 11
    - Subst question Can anybody please tell me what the following commands are doing? this is a cmd logon script subst m: /d >nul 2>&1 subst m: h:\notes_crb >nul 2>&1 Tag: Create a session Variable from Filename Tag: 170346
  - 12
    - remote permissions What are the minimum permissions a user would need to remotely restart a service using vbs? Of course everything works great if the user is a local administrator on the remote machine, but that would go outside the parameters of the task. I have given the user power user membership as well as full rights to the Root namespace and all subnamespaces on the remote machine ... but with no luck. The remote machine is a Windows 2000 Server SP3 The funny thing is that power user rights allows remote connection and service restart using "Computer Management" console, but once again this falls out of the tasks parameters for a one button remote service restart. Here is the script I wrote for the task strComputer = "MyServer" strService = "MyService" Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") CheckErr "Connect to " & strComputer Set colRunningServices = objWMIService.ExecQuery ("Select * from Win32_Service where Name='" & strService & "'") For Each objService in colRunningServices objService.StopService() CheckErr "Stop " & strService & " Service" objService.StartService() CheckErr "Start " & strService & " Service" Wscript.quit 1 Next Wscript.echo "Could not connect to the " & strService & " on " & strComputer Function CheckErr(strDesc) If Err.Number <> 0 Then strMessage = "Script failed to " & strDesc & " 0x" & Hex(Err.Number) If(Len(Err.Description) > 0) Then strMessage = strMessage & chr(13) & "Err.Description: " & Err.Description End If wscript.echo strMessage & chr(13) & date & " at " & time Else wscript.echo strDesc & " successful End If End Function Any help is greatly appreciated TIA Charles Tag: Create a session Variable from Filename Tag: 170339
  - 13
    - Quick Debugging question I'm doing some ASP based work for the first time and I used the tutorial on MSDN found at http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dnasp/html/asptutorial.asp Specifically the Create A Guestbook code. I changed it a little bit so that the database was keeping the information I wanted, and my server gave me an error saying that there was an "Undertermined String Constant" (Go here to see my error http://64.178.102.157/numbers/input.asp). I checked the work I did and didn't see anything wrong, then went back and check the tutorial. I got the same error when I did the tutorial without modifying it, so something must be wrong with it. I'm very new to this and could really use the help. Thanks! Tag: Create a session Variable from Filename Tag: 170328
  - 14
    - Very basic VBScript question I am starting to set up Java Web Start (JAWS) on my system and the docs suggest a short VBScript - which they provide - for determining which version of Internet Explorer is running. The only thing they DON'T say is what the name of the file CONTAINING the script needs to be, particularly the file extension. Files containing JavaScripts are supposed to use a ".js" extension so I'm assuming that VBScripts have a standard extension too, possibly ".vbs" or ".vs". Can anyone confirm that? Or does it really not matter what the file name and extension are for a VBScript? -- Rhino --- rhino1 AT sympatico DOT ca "There are two ways of constructing a software design. One way is to make it so simple that there are obviously no deficiencies. And the other way is to make it so complicated that there are no obvious deficiencies." - C.A.R. Hoare Tag: Create a session Variable from Filename Tag: 170318
  - 15
    - Resolving e-mail addresses using VBScript Hi, Finding out which user owns which primary e-mail address is easy, using ADSI. However I could not determine a way to query any e-mail address, including secondary e-mail addresses without going through all the contacts and parsing their e-mail addresses array. Is there a shorter, less demanding way? Amit Tag: Create a session Variable from Filename Tag: 170317
  - 16
    - Scripting.dictionary I have a web site with some ASPs. The ASPs that contain the line 'Server.createobject(Server.Dictionary) are not running. When executed, we receive the error given below. Server object error 'ASP 0178 : 80070005' Server.CreateObject Access Error /olt/teststart.asp, line 29 The call to Server.CreateObject failed while checking permissions. Access is denied to this object Somebody help, *** Sent via Developersdex http://www.developersdex.com *** Don't just participate in USENET...get rewarded for it! Tag: Create a session Variable from Filename Tag: 170309
  - 17
    - How to access file object properties (title, subject, author, category, keywords, comments, the URL to which a shortcut file links, etc. Does anyone know where I can find info about how to use vbscript to put date into (or suck data out of) the following properties of a file: 1. title, subject, author, category, keywords, comments? 2. the url to which a shortcut file links? Thanks to whoever answers, Marceepoo Tag: Create a session Variable from Filename Tag: 170306
  - 18
    - import users into Adive Directory 2003 Hi guys, I'm wondering if anyone has a script that imports users into active directory from an excel spreadsheet. Thanks, Tag: Create a session Variable from Filename Tag: 170300
  - 19
    - Create file on external web server and save to local user drive We currently have an internal web reporting tool that we create asp reports that pull data from a sql server. I currently created a report that instead of outputting the report in html format, it generates an Excel file behind the scenes and saves it on the web server. My question is this.....how can I get the file to save locally to the computer of the user running the report instead of saving on the web server? I tried the following code, but no luck --current code that saves on the web server xlWorkbook.SaveAs "\\webserver\storagefolder\Report.xls" --tried the following xlWorkbook.SaveAs "C:\Temp\Report.xls" --or xlWorkbook.SaveAs "\Temp\Report.xls" both seem like the work fine, but when I look for the file, it does not exist. Can anyone help me out with this? Tag: Create a session Variable from Filename Tag: 170292
  - 20
    - Login script with admin priveleges Wondering if anyone could help me out with the following: On NT, W2K and XP client machines I need a way to run an exe, through the login script, with admin priveleges. I've looked into "runas" and "su", however, they're not the best options as I run into problems with compatability with NT or the fact that one has to insert the password when prompted. I've also looked into "Admin Script Editor" and its packager which lets one create and .exe to be run with alterante credentials. Anyone know if this is possible through VBScript using impersonation? Any enlightment into this matter would be appreciated. Thanks! JCOliveira Tag: Create a session Variable from Filename Tag: 170291
  - 21
    - creating a partition Hi, I have looked around before posting this but haven't been successful in finding a solution. What I'm trying to do is create a partition within windows 2000/xp using a vbscript. How I would like it to work is that I build the pc from a ghost image. The PC would then autologon and run a vbscript to create a partition from the unallocated disk space. Is this even possible? If it is, and anyone has an example of a script that would be able to do this or is able to point me in the right direction I would be very grateful. Thanks in advance Tag: Create a session Variable from Filename Tag: 170290
  - 22
    - IE Title Bar I am using T Lavedas' WSH Scripts for msgbox function. I want to display the title bar at the top of the msgbox. Can't figure out how or find a reference on MSDN. Help? Thanks, dra Tag: Create a session Variable from Filename Tag: 170288
  - 23
    - Get SAMAccountName Could someone tell me how to determine the SAM account name using VBScript and LDAP? I'm trying to write a login scrip that does stuff based on the users SAM account name and haven't been able to get anything I've been trying to work. TIA Ernie Tag: Create a session Variable from Filename Tag: 170285
  - 24
    - Starting service and dependent service - multiple machines I've got a script that reads a file(containign machine names) and start a service. The script works as expected when trying to start standalone service. i.e. It kicks off the service(& does not wait for completion) in each machine. When a service is dependent on another service, running the script will wait for dependent service to start. Hence, for each machine the script waits for dependent service startup. How can I change the script such that it will not wait for dependent service startup...? Here's the code snippet... --- cmdToexecute = "Winmgmts:\\" & "MyMachine" & "\root\cimv2" Set wmi = GetObject(cmdToexecute) Set wmiService = wmi.get("win32_service.name='" & "MyService" & "'") LatestState = wmiService.state LatestStatus = wmiService.status If LatestState = "Stopped" Then wmiService.startservice End If --- Thanks, Sandiyan Tag: Create a session Variable from Filename Tag: 170280
  - 25
    - hidden variable In this procedure I am attempting to set the hidden variable (hidden_data) with a delimited list of email address before submitting the form. If I put the values in a querystring the values pass fine. However, I don't want to do that. I have created a hidden variable in my html code named hidden_data. When I set the variable and submit this way, the variable looses it's value. Please help :) Code: sub submitform() dim contacts() redim contacts(listform.elements.length) For c = 0 to listform.elements.length - 1 If listform.elements(c).type = "checkbox" then If listform.elements(c).checked and mid(listform.elements(c).id,1,4) <> "list" then contacts(c) = listform.elements(c).id end if end if next tmp = filter(contacts,"@") listform.hidden_data.value = join(tmp,",") listform.action = "send.asp?mailer=" & listform.mailer.value listform.submit() end sub Tag: Create a session Variable from Filename Tag: 170275

Hi

I want to set a session variable from the name of the file -

Eg if file name is fred.asp I want to do

session("Fname")= "fred.asp"

Can anybody advise code to get filename?
Ta

Top

Re: Create a session Variable from Filename by Steven

Steven
Tue Feb 22 04:25:52 CST 2005

Function GetFilename(sSource)
Dim sTemp
sTemp = Split(sSource, "\")
GetFilename = sTemp(UBound(sTemp))
End Function

--
Regards

Steven Burn
Ur I.T. Mate Group
www.it-mate.co.uk

Keeping it FREE!

"IanC" <icarpenter@yahoo.com> wrote in message
news:505709c6.0502220056.6acc7513@posting.google.com...
> Hi
>
> I want to set a session variable from the name of the file -
>
> Eg if file name is fred.asp I want to do
>
> session("Fname")= "fred.asp"
>
> Can anybody advise code to get filename?
> Ta

Top