Sample to check share, set up share

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
    - true false in quotes? Hi, Are there any rules for using or not using quotes around true or false. Witness the following: (Hold the alt key and click the document) <html> <head> <script language=vbs defer> sub document_onclick() if d1.contentEditable=true then 'doesn't work msgbox "d1.contentEditable=true" else msgbox d1.contentEditable=true end if if d1.contentEditable="true" then 'works msgbox "d1.contentEditable=""true"" " else msgbox d1.contentEditable="true" end if if window.event.altKey=true then 'works msgbox "window.event.altKey=true" else msgbox window.event.altKey=true end if if window.event.altKey="true" then 'doesn't work msgbox "window.event.altKey=""true"" " else msgbox window.event.altKey="true" end if end sub </script> </head> <body> <div id=d1 contentEditable=true> </div> </body> </html> Tag: Sample to check share, set up share Tag: 166493
  - 2
    - WMI Survey Folks, For those of you using WMI today or just knowing a bit about it, please participate to the survey and spread the word about it! Survey life link is at: http://support.microsoft.com/common/survey.aspx?scid=sw;en;1236&p0=&p1=&p2=&p3=&p4= As you may know, this survey is very critical for Microsoft to correctly prioritize new features, updates, etc. Please participate and spread the word ! Many Thanks. Have a great day! Alain LISSOIR -------------------------------------------------------------------------------- Alain.Lissoir@LissWare.Net Home Page: http://www.LissWare.Net Tag: Sample to check share, set up share Tag: 166489
  - 3
    - Open Files hi, i need to know who is connected to some file on my server, i try to make this but i can't; i'm wait for your help thank Tag: Sample to check share, set up share Tag: 166481
  - 4
    - ADODB.Recordset: Operation is not allowed when the object is closed Hi there I get the above message when trying to write to a SQL 2000 database. Can anyone perhpas shed some light on this for me? In theory I am tryng to create a generic subroutine which I can simply pass my INSERT/UPDATE/DELETE statements to, and then have it executed. The following subroutine gets called for each server that I am running through. The error above is returned on the line "objRecordSet2.Close" My code excerpt is as follows: Sub AccessDB() ' Set the database connection information sServer = "test" sLogin = "logon" sPwd = "pwd" ' Create the ADO Connection and Recordset objects. Set objConnection2 = CreateObject( "ADODB.Connection" ) Set objRecordSet2 = CreateObject( "ADODB.Recordset" ) ' Set the connection string, open the connection and execute the statement objConnection2.ConnectionString = "PROVIDER=SQLOLEDB" & _ ";SERVER=" & sServer & _ ";UID=" & sLogin & _ ";PWD=" & sPwd & _ ";DATABASE=ServerSupport" WScript.Echo & SQLString objConnection2.open objRecordSet2.Open SQLString, objConnection2 objRecordSet2.Close objConnection2.Close End Sub Tag: Sample to check share, set up share Tag: 166480
  - 5
    - UDL File Hi All. I have a very basic doubt. How, in the name of GOD, I create a UDL file that works, using vbScript?! I've been trying to accomplish that usign FileSystemObject with no success... Thanks in advance!! Rodolfo Sao Paulo - BR Tag: Sample to check share, set up share Tag: 166477
  - 6
    - changing existing local user flag "never expires" Hello I'm searching for a usable script to change the flag "password never expires" on two local users. No domain, no OU, or so - simple local accounts. System is Windows XP Prof SP2 I found two scripts - no one seems to work for me. Script 1: Set objUser = GetObject("WinNT://image/trulli") objUserFlags = objUser.Get("UserFlags") objPasswordExpirationFlag = objUserFlags OR ADS_UF_DONT_EXPIRE_PASSWD objUser.Put "userFlags", objPasswordExpirationFlag objUser.SetInfo Script 2: Const ADS_UF_DONT_EXPIRE_PASSWD = &H10000 Set objUser = GetObject("WinNT://image/trulli,user") lngFlags = objUser.Get("userFlags") If (lngFlags And ADS_UF_DONT_EXPIRE_PASSWD) <> 0 Then lngFlags = lngFlags Xor ADS_UF_DONT_EXPIRE_PASSWD objUser.Put "userFlags", lngFlags objUser.SetInfo End If Both scripts runs on doubleclick without error, but the flag seems not been set. System/User/Properties.... is the flag unchecked after the scripts. What can i do? Greetings Chris Tag: Sample to check share, set up share Tag: 166474
  - 7
    - If Not Debug Then Hi, I am trying to use 'If Not' condition when the variable = 0. Debug = 0 If Not Debug Then Wscript.echo "hi" End If In this we VBS will step into the condition. Is there a way like in 'c' language to use if(!Debug) ? Tag: Sample to check share, set up share Tag: 166466
  - 8
    - Windows Image Acquisition (WIA) Automation Resources? Hi, Does anyone know of any good resources (books, websites other than MSDN, or newsgroups) for Windows Image Acquisition (WIA) Automation? I'm having trouble getting it working, and the info on MSDN isn't working for me. Thank you, Robert Tag: Sample to check share, set up share Tag: 166462
  - 9
    - How can I get computer name Hi there Does anyone knows how can I get the computer name in a workstation domain where there is no login at the server and then pick up all the computers name's one by one and create a directory in a shared directory at the server with the same the of the clients computer's?... I hope someone could help me out with a script that have already made or give me some tips. Thanks Nuno Tag: Sample to check share, set up share Tag: 166458
  - 10
    - ASP, looping, and stored procedures.... error '800a0bb9' ... Hi all, thanks in advance. Ok, heres the story. What is happening...... -------------------------------- I've got an ASP page that loops. It loops in order to get data in different, sequential date ranges. I.E. from 9/1/2000 - 10/1/2000 then 10/1/2000 - 11/1/2000 etc etc etc. It calls SPs using the 2 dates and an integer used for companyid reference. Let's just do this for 2 SP's (there are like 6 on the page.) One SP has 3 params, one has only 2. Now, the first iteration of the loop, it works. (because I'm response.writiting out the dates it's using to verify they are ok. The second time through I get the following error when I try to execute the following ASP: Set rstStoredProc = cmdStoredProc.Execute(, Array(GroupChoice, fromdate, todate)) ______________________________________________ ADODB.Command error '800a0bb9' Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another. _______________________________________________ What I need to do......... -------------------- In the loop, I am trying to reuse my command/connection objects instead of reinstantiating them for each iteration of the loop. ***Currently, it must use ODBC not OLEDB so keep that in mind.*** Here's the code for the SP's -------------------- CREATE Procedure proc_getPageHits ( @GroupID int, @FromDate datetime, @ToDate datetime ) As SELECT sum(counter) as hitcount FROM tblTracking WHERE CreateUserID in (select UserID from tblUser where GroupID= @GroupID) and (CreateDate between @FromDate and @ToDate) GO CREATE Procedure proc_getUserCount ( @GroupID int, @ToDate datetime ) As SELECT count(UserID) as usercount FROM tblUser WHERE (GroupID = @GroupID) and (CreateDate < @ToDate) GO Here's the ASP ---------------------------------------------- Set cmdStoredProc = Server.CreateObject("ADODB.Command") cmdStoredProc.ActiveConnection = dbConn do while DateCompare(currentsearchdate,todaysquarterend) = "smaller" cmdStoredProc.CommandText = "Proc_getUserCount" cmdStoredProc.CommandType = adCmdStoredProc Set rstStoredProc = cmdStoredProc.Execute(, Array(GroupChoice, todate)) cmdStoredProc.CommandText = "Proc_getPageHits" cmdStoredProc.CommandType = adCmdStoredProc Set rstStoredProc2 = cmdStoredProc.Execute(, Array(GroupChoice, fromdate, todate)) '(**THIS IS WHERE IT ERRORS**) loop ---------------------------------------------- Why does it error on the SECOND procedure of the SECOND iteration of the loop? It makes it past the first loop ok. Then it makes it past the first SP of the second loop but errors in the second SP....??... The dates are verified correct and in format.... so what the heck is the prob? If I re-create the command object each iteration (i.e. put the Set cmdStoredProc = Server.CreateObject("ADODB.Command") line inside the loop) it works fine. but it's so much slower. The results of the page are coming back in 13seconds. (there's alot more calls and alot more stuff going on, but these procedures should pick it up a bit. Also, if you have any suggestions on the SQL select statements, feel free to enlighten me. I am using the 'IN' method whereas some people have told me of the 'where exists' SQL method. I have not received any examples though. Thanks again in advance. -Beau www.worlddoc.com Tag: Sample to check share, set up share Tag: 166442
  - 11
    - User Profiles Does anyone know a quick way to list all the users with profiles on the local machine? Tag: Sample to check share, set up share Tag: 166441
  - 12
    - Outlook Scripting We have recently moved our internet email from an SMTP server to our exchange server. Now we have the task of removing the service from every user's profile. Is there a way to do this using some form of scripting? We are already running many scripts here and I would love to write one to do this. Touching each individual machine is not something I would prefer to do. Thanks in advance for your assistance. Tag: Sample to check share, set up share Tag: 166439
  - 13
    - how to bypass a known-bad SSL certificate I'm writing a VBScript to download some content from a number of internal webservers. I'm downloading both secure (https) and non-secure (http) content. One of these webservers (a test machine) has a number of problems with its SSL certificate, not the least of which is that the certificate has expired. Every time my script tries to download from the webserver with the bad SSL certificate, Windows helpfully gives me a warning dialog that I must click through before the script can continue. Is there any way to avoid this warning for a specific certificate and/or webserver? I'm aware that the certificate has issues, but it won't be replaced and/or renewed any time soon (largely because it's on a test machine), so how can I work around it? I have already tried: * adding the site to Internet Explorer's "Trusted Sites" (didn't help) * changing the system date to a period before the certificate expired when accessing the problem webserver, then changing it back afterward (still saw the warning dialog, because of another problem with the certificate) I am using WSH 5.6 on WinXP SP2, with MSXML 4.0 SP2. Code follows: Sub CheckLink(strURL, strOutput) Dim objHTTP, objStream, tStart, tElapsed Set objHTTP = WScript.CreateObject("MSXML2.XMLhttp.4.0") objHTTP.Open "HEAD", strURL, False objHTTP.Send WScript.Echo "Headers from " & strURL WScript.Echo objHTTP.getAllResponseHeaders WScript.Echo objHTTP.Open "GET", strURL, False objHTTP.Send tStart = timer() Set objStream = CreateObject("ADODB.Stream") objStream.Type = adTypeBinary objStream.Open objStream.Write objHTTP.ResponseBody objStream.SaveToFile strOutput, adSaveCreateOverWrite Set objHTTP = Nothing Set objStream = Nothing tElapsed = timer() - tStart WScript.Echo "Saved: " & strURL & vbCRLF & "To: " & strOutput & vbCRLF & "Time: " & tElapsed & " seconds..." & vbCRLF End Sub Any assistance would be greatly appreciated! Rob Shaw-Fuller robshawfuller@hotmail.com Tag: Sample to check share, set up share Tag: 166438
  - 14
    - Check if connected using Terminal Services Hi, I would like to create a script which is able to check if it is being run in an terminal service session. It should only be allowed to run locally and not remotely. Anyone any ideas? Many thanks, Jo Tag: Sample to check share, set up share Tag: 166437
  - 15
    - get File from "C:\" Hi@all i use the Function [code] set oShell = CreateObject("Shell.Application") set oFolder = oShell.BrowseForFolder(0, "File load", 16384,rootdir) [/code] on a HTML Page and if i try to get a file from "c:\" or "d:\" (no subfolders), i get a error. What can i do, ca i use a other function to get the file or ???, thx for help, cya Thommy (sorry my english is not the best) Tag: Sample to check share, set up share Tag: 166432
  - 16
    - list member of local admin group and save results to a text file Anyone have a script that will list out members of local admin groups to a file? Tag: Sample to check share, set up share Tag: 166423
  - 17
    - formating a date string in vbscript how can I get a date in the following format dd-mmm-yyyy ie 01-APR-1999 in visual basic I can use the formatdate function and the formatting is flexible enough to create this string. In vbscript the functionality seems more limited. Is there a simple way to do this? thank you for your help cheers john Tag: Sample to check share, set up share Tag: 166422
  - 18
    - is it possible to lock desktop (like you can from task manager) with vbscript? I bet it is and I have done a search but found nothing. Anyone do this? Seems like I saw a script a long time ago to do this. I just want to duplicate the functionality of [ctrl-alt-del/task man/lock workstation] and I am not looking to write a whole passworded screen saver app or anything. Thanks all! Happy Turkey day! Tag: Sample to check share, set up share Tag: 166419
  - 19
    - Return code=0 even if runtime error The code: File.Copy(FichierCible) Produce this error: C:\win32app\exploit\HFTrader-PDL\HFTPDL.vbs(89, 4) Microsoft VBScript runtime error: Path not found But the return code of the script is 0. I can handle this specific error with the "on error" clause but how can I do to exit with a return code <> 0 when i have an unhandled error? Tag: Sample to check share, set up share Tag: 166410
  - 20
    - Executing a batch file only if the laptop is located on a particular subnet. Hi guys, Hope you can help. Requirement/s: - Back up a folder on a laptop daily to a network location. - Only run the backup task IF the user is located on subnet 10.60.10.x, Id like the script to be able to check for a network connection, and if none, to abort the running of the backup. - System in question is a laptop that gets a DHCP address. I can generate the backup script, but what Id like help si the following: 1. How to code the script so that it only runs IF the laptop is given a DHCP address of 10.60.10.x and not another DHCP address, meaning it is on a different subnet 2. If the user is not connected to the LAN, and the task runs, to not run the script at all. That is, Id like the script to be able to check for a network connection, and if none, to abort the running of the backup. Any help would be greatly appreciated. Thank you.. Simon Tag: Sample to check share, set up share Tag: 166407
  - 21
    - Getting multiple selected items from ListView Hi, I'm facing a problem, in multiselect listview control I'm not able to get all the selected items in it. Please let me know how can I do it using VBScript. Thanks. Tag: Sample to check share, set up share Tag: 166406
  - 22
    - Creating share on Home-directory : fails on workstation ... works on server ... Hi all, I'm writing a GUI-application whixh is in fact the program which 'replaces' the User Manager in our shops. So, It works almost ... just a last 'problem'. In fact, when creating a user, I create also the Home-directory and a share on the folder (all created on the server). The application runs as well on the server as on the workstations. We work with Server 2003 / XP. I can create the home-directory and share when the application runs on the server. But when it runs on the WORKSTATIONS, I CAN'T create the SHARE. An error does always occur ! Does anyone has an idea why it doesn't work ? I'm looking for a 'script'-solution : I mean, I do not want to use some 'external' EXE's like RMTSHARE.EXE (if possible). Here's the code : For the folder : On Error GoTo ERROR_HANDLING Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFolder = objFSO.CreateFolder(as_folder) 'UNC-name like : '\\S099C01\Home$\test001' For the share : On Error GoTo ERROR_HANDLING Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & as_server & "\root\cimv2") Set objNewShare = objWMIService.Get("Win32_Share") nReturn = objNewShare.Create(as_directory, as_sharename, FILE_SHARE, Null, as_comment) 'with 'as_server' is the servername : ex. : 'S0999C01' ' 'as_directory' is the LOCAL path on the server : ex. : 'U:\Home\test001' If nReturn <> 0 Then Select Case nReturn ... End Select Else End If Thanks, Marc. Tag: Sample to check share, set up share Tag: 166404
  - 23
    - website hosting Here is the link to the web hosting company that I use for my 3 sites. http://frontpage-web-hosting.org/ Tag: Sample to check share, set up share Tag: 166403
  - 24
    - parsing Hi, I've some textfiles which i would like to import. In one textfile there are over 1024 columns when separated. This exceeds sql server's maximum columns. Let call this the resultfile. In the other texfile i've got a descriptionfile about the resultfile. The description contains the columnnames of the resultfile (see below for example). The problem with the resultfile is that it doesn't contain any columnnames, but the columns appear in order of the descriptionfile. The tricky part is that there are columns which really represents 1 column (those columns has the same name but with an indexnumber). The values in those columns need to be changed into the indexnumber, but start from zero. Then data should be transformed For example (never mind the values): id | field1_1 | field1_2 | field2 | field3 1 | empty 1 1 2003 Above should be: id | name | value 1 field1_1 | empty 1 field1_2 | 1 (should be 2, but i want i the index to start from 0, so it is 1) 1 field2 | 1 1 field3 | 2003 Descriptionfile example: formid fieldnr fieldname idx length 1 1 field0 0 2 1 2 field1 1 1 1 3 field1 2 1 1 4 field2 0 2 1 5 field3 0 4 Can someone help me on this, i want to use a vbscript in a sql dts package? This bustin my brains for weeks Tag: Sample to check share, set up share Tag: 166394
  - 25
    - Trip to Disney GET YOUR TRIP TRIPS TO DESNEY TRIPS TO HAWAII http://travelexpert2004.us http://travelexpert2004.biz http://gotraveling85.us Tag: Sample to check share, set up share Tag: 166391
- Next
  - 1
    - Edit/Delete section of an ini file I need to write a string value to a section of an ini file. I managed to write to it but it appends to existing values. I need to either edit the current value or delete the values in the section in question before I write new values For example: file ="C:\VBS\myConfig.ini" Section = "ORACLE TO SQL SERVER" item = "CASE_X" Value = "XYZ" ini file output: [ORACLE TO SQL SERVER] CASE_X=ABC CASE_X=XYZ CASE_X=XYZ DB_NAME=YYY LSNAME=orclDB DTSERROR_O2S="C:\sqlConfig\dtsError\orcl_2_mssql\xxx.txt" How do I edit the original value of ABC to XYZ without having to write new lines as I need only I line for CASE_X Values. Any input would be greatly apreciated -- fhillipo Tag: Sample to check share, set up share Tag: 166389
  - 2
    - way to put clipboard information into file txt....please hello, i would like to know if it's possible to put clipboard information into file txt or worksheet excel cell. i m beginner in vbscript and i don't understand how to make object and class....etc. My code is : Set Fmobject = CreateObject("Scripting.FileSystemObject") Set Fm1 = Fmobject.createtextfile("c:\text.txt") 'création file txt Text = "hello, i'm french " 'i would like past the clipboard information Fm1.WriteLine (Text) Fm1.Close thank for your help !!! Tag: Sample to check share, set up share Tag: 166387
  - 3
    - Playing sounds? What is the simplest way to play a WAV file from vbscript? Dennis Tag: Sample to check share, set up share Tag: 166385
  - 4
    - Way to recursively Find pre-defined files (from list) and Copy to new Dir? Hi - haven't had any luck finding this type of script: 1. I have a pre-defined list of filenames (stored in a plain txt document called 'files.txt') 2. I'd like to write a script that will search the file system For each file in the plain txt document (could be nested in sub-directories) and copy them to a new location I've found plenty of examples for finding types of files (i.e. .mp3's, .zip's, etc.) but nothing that will let me pass in specific (& unique) filenames. Thanks for your help! Tag: Sample to check share, set up share Tag: 166369
  - 5
    - Interrogating Active Directory Computers Hi, The problem is that the script stops (in error) when a computer is not powered on. I want the script to move on to the next computer in the active directory. Maybe I can test on a pingresult ? But how to implement a ping ? And what is the exactly output when a computer i powerd on ? Greetz, Wim. '********************************************* '* '* Search adressbooks in Active Directory computers, via FileSystemObject '* '* '********************************************** on error resume next Dim objDSE, strDefaultDN, strDN, objContainer, objChild Dim Fso, Drives, Drive, Folder, Files, File, Subfolders,Subfolder 'First of all, you have declare the variables and create the FileSystem object. Dim strComputer '*************************** ' Create Excel File '*************************** Set objExcel = WScript.CreateObject("Excel.Application") 'Create Excell file objExcel.Visible = True objExcel.Workbooks.Add objExcel.ActiveSheet.Name = "Adresbooks" objExcel.ActiveSheet.Range("A1").Activate objExcel.ActiveCell.Value = "PC" 'col header 1 objExcel.ActiveCell.Offset(0,1).Value = "Location 1" 'col header 2 objExcel.ActiveCell.Offset(0,2).Value = "Location 2" 'col header 3 objExcel.ActiveCell.Offset(0,3).Value = "Location 4" 'col header 2 objExcel.ActiveCell.Offset(0,4).Value = "Location 5" 'col header 2 objExcel.ActiveCell.Offset(1,0).Activate 'move 1 row down '*************************** ' Run through Active directory ' searching for computers '*************************** Set objDSE = GetObject("LDAP://rootDSE") strDefaultDN = objDSE.Get("defaultNamingContext") strDN = InputBox("Enter the distinguished name of a container" & vbCrLf & "(e.g. " & strDefaultDN & ")", , strDefaultDN) If strDN = "" Then WScript.Quit(1) 'user clicked Cancel Set objContainer = GetObject("LDAP://" & strDN) Call ListUsers(objContainer) wscript.echo "Script finished" Sub ListUsers(objADObject) Dim objChild For Each objChild in objADObject Select Case objChild.Class Case "computer" strComputer=objChild.cn 'wscript.echo strComputer AdresboekZoeken(strComputer) 'search adressbook Case "organizationalUnit" , "container" Call ListUsers(objChild) End select Next End Sub '**************************************** 'Search adressbook on remote computer '**************************************** Sub AdresboekZoeken(Computer) Set Fso=createobject("scripting.filesystemobject") 'Then, Set the Drives object, so you can search in all the available drives of the computer Set Drives=fso.drives pc= "\\" & computer & "\c$" wscript.echo pc Dosearch pc 'Dosearch is the name of the function that we'll use to search for files and subfolders. wscript.echo "Finished searching on pc " & computer End Sub Function Dosearch(Path) Set Folder=fso.getfolder(path) 'Get the folder where we have to work. Set Files = folder.files 'Get all the files inside this folder For Each File in files 'File is the current file where we are 'Now do a for-each for each file 'wscript.echo fso.GetExtensionName(file.path) If fso.GetExtensionName(file.path)="wab" then msgbox file.path 'Just to do something end If Next Set Subfolders = folder.SubFolders 'Get all subfolders in our main folder For Each Subfolder in Subfolders 'Now, for each subfolder Dosearch Subfolder.path Next end function Tag: Sample to check share, set up share Tag: 166357
  - 6
    - Parsing Links Hi I have a script that someone helped me make. However it is just short of what I need. The players data still has the html code around it. I want to extract the name only with the statistics. I cant seem to get my head around it - everything I have tried seems to come up with errors. Here is the script. I have left out my attempts at adding another Myvar mid statement that would extract the player name. The script as you see it works. <% Dim objRead, objWrite, objShell, objXML, objFile, objFSO Dim location, thisFolder, nbastats, strURL Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set objXML = Server.CreateObject("MSXML2.ServerXMLHTTP") Set ObjHttp = Server.CreateObject("Msxml2.XMLHTTP") objHttp.Open "GET", "http://www.tsn.ca/nba/Statistics.asp?category=Points&position=&division=&season=2005&type=player&endRow=520&startRow=1", false objHttp.Send nbastats = objHttp.ResponseText Set objHttp = Nothing If Not objFSO.FileExists (Server.MapPath("nbastats.txt")) Then objFSO.CreateTextFile (Server.MapPath("nbastats.txt")) Set objFile = objFSO.GetFile(Server.MapPath("nbastats.txt")) Set objWrite = objFile.OpenAsTextStream( 2,-2 ) 'Response.Write( skaters ) 'Response.End() objWrite.Write( nbastats ) objWrite.Close() Set objFile = Nothing Set objWrite = Nothing If Not objFSO.FileExists(Server.MapPath("csv.html")) Then objFSO.CreateTextFile(Server.MapPath("csv.html")) Set objFile = objFSO.GetFile(Server.MapPath("csv.html")) Set objWrite = objFile.OpenAsTextStream( 2, -2 ) Set objFile2 = objFSO.GetFile(Server.MapPath("nbastats.txt")) Set objRead = objFile2.OpenAsTextStream( 1, -2 ) MyVar = MID(nbastats, instr(1, nbastats, "bgcolor=""#F7EDE0""")-32, LEN(nbastats)) MyVar = MID(MyVar, 1, instr(1, MyVar, "</table>")-1) Dim myArray(17) Dim ii 'col count Do While instr(1, MyVar, "<tr") > 0 '// Now extract the 'record' from the table (like above code) MyRec = MID(MyVar, instr(1, MyVar, ">")+1) MyRec = MID(MyRec, 1, instr(1, MyRec, "</tr>")-1) '// Now we should be left with all the <td>'s ii = 0 Do while instr(1, MyRec, "<td") > 0 myValue = MID(MyRec, instr(1, MyRec, ">")+1) myValue = MID(myValue, 1, instr(1, myValue, "</td>")-1) '// We have successfully got a value from a <td>! '// Maybe at this point you could load it into an array: myArray(ii) = myValue '// Now we have to clean the MyRec string up MyRec = MID(myRec, instr(1, myRec, "</td>")+5) ii = ii + 1 Loop '// At this point we have a loaded myArray with all the values from the record! You could build an SQL string at this point or anything really objWrite.WriteLine Join(myarray,",") & "<br>" response.Write ("All done") '// Now we have to trim up the main string Myvar = MID(MyVar, instr(1, MyVar, "</tr>")+5) Loop %> </head> <body> </body> </html> I appreciate your input - thanks Tag: Sample to check share, set up share Tag: 166355
  - 7
    - Search files on remote computer Hi all, I want to search on multiple remote computers (nt 4 & XP) for *.wab files. Because the NT-machines, I can't use WMI. Is there another way to do this ? I add 2 scripts that I use now. 1 for a local machine (systemfileobject) and 1 for remote machines (WMI) Thank you all. Greetz Wim Heirbaut. '******************************************************** '* '* Search adressbooks (*.wab) in Active Directory Computers, via FILESYSTEMOBJECT '* How to do this on several remote computers ? '* '******************************************************** On error resume next Dim Fso, Drives, Drive, Folder, Files, File, Subfolders,Subfolder 'First of all, you have declare the variables and create the FileSystem object. Dim strComputer Set Fso=createobject("scripting.filesystemobject") 'Then, Set the Drives object, so you can search in all the available drives of the computer Set Drives=fso.drives Dosearch "c:\" 'Dosearch is the name of the function that we'll use to search for files and subfolders. Function Dosearch(Path) Set Folder=fso.getfolder(path) 'Get the folder where we have to work. Set Files = folder.files 'Get all the files inside this folder For Each File in files 'File is the current file where we are 'Now do a for-each for each file If fso.GetExtensionName(file.path)="wab" then msgbox file.path 'Just to do something end If Next Set Subfolders = folder.SubFolders 'Get all subfolders in our main folder For Each Subfolder in Subfolders 'Now, for each subfolder Dosearch Subfolder.path Next end function wscript.echo "Gedaan" ******************************** ******************************* *************************** '********************************************* '* '* Search adressbooks in Active Directory computers, via WMI '* If there is a computer not powered on, the script ends unexpected :-( '* '********************************************** on error resume next Dim objDSE, strDefaultDN, strDN, objContainer, objChild '*************************** ' Create Excel File '*************************** Set objExcel = WScript.CreateObject("Excel.Application") 'Create Excell file objExcel.Visible = True objExcel.Workbooks.Add objExcel.ActiveSheet.Name = "Adresbooks" objExcel.ActiveSheet.Range("A1").Activate objExcel.ActiveCell.Value = "PC" 'col header 1 objExcel.ActiveCell.Offset(0,1).Value = "Location 1" 'col header 2 objExcel.ActiveCell.Offset(0,2).Value = "Location 2" 'col header 3 objExcel.ActiveCell.Offset(0,3).Value = "Location 4" 'col header 2 objExcel.ActiveCell.Offset(0,4).Value = "Location 5" 'col header 2 objExcel.ActiveCell.Offset(1,0).Activate 'move 1 row down '*************************** ' Run through Active directory ' searching for computers '*************************** Set objDSE = GetObject("LDAP://rootDSE") strDefaultDN = objDSE.Get("defaultNamingContext") strDN = InputBox("Enter the distinguished name of a container" & vbCrLf & "(e.g. " & strDefaultDN & ")", , strDefaultDN) If strDN = "" Then WScript.Quit(1) 'user clicked Cancel Set objContainer = GetObject("LDAP://" & strDN) Call ListUsers(objContainer) objExcel.close wscript.echo "Script finished" Sub ListUsers(objADObject) Dim objChild For Each objChild in objADObject Select Case objChild.Class Case "computer" strComputer=objChild.cn AdresboekZoeken(strComputer) 'search adressbook Case "organizationalUnit" , "container" Call ListUsers(objChild) End select Next End Sub '**************************************** 'Search adressbook on remote computer '**************************************** Sub AdresboekZoeken(Computer) teller=0 WScript.Echo "I start search on : " & Computer Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & Computer & "\root\cimv2") ' maakt verbinding met wmi van computer Set colDisks = objWMIService.ExecQuery ("SELECT * FROM Win32_LogicalDisk WHERE Name = 'C:'") For Each objDisk in colDisks Set colFiles = objWMIService.ExecQuery ("SELECT * FROM CIM_DataFile WHERE Drive = 'C:'") For Each objFile in colFiles If objFile.Extension= "wab" then Wscript.Echo Computer & " ==> " & objFile.Name objExcel.ActiveCell.Value = computer objExcel.ActiveCell.Offset(0,1+teller).Value = objFile.Name teller=teller+1 End If Next Next wscript.echo "Finished searching on pc " & computer End Sub Tag: Sample to check share, set up share Tag: 166353
  - 8
    - How do I put it all on one line? I have two questions, but they may have the same answer. I am trying to get these scripts to send the output all to a single line with spaces (or whatever) seperating the values. Here's the first script that queries SQL instances from the registry: strComputerName = "sqlserver" Const HKEY_LOCAL_MACHINE = &H80000002 Set objReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputerName & "\root\default:StdRegProv") strKeyPath = "SOFTWARE\Microsoft\Microsoft SQL Server" strValueName = "InstalledInstances" Return = objReg.GetMultiStringValue(HKEY_LOCAL_MACHINE,strKeyPath,strValueName,arrValues) If (Return = 0) And (Err.Number = 0) Then For Each strValue In arrValues WScript.Echo Trim(strValue) Next Else Wscript.Echo "GetMultiStringValue failed. Error = " & Err.Number End If The output looks like this: C:\>cscript getsqlinst.vbs Microsoft (R) Windows Script Host Version 5.6 Copyright (C) Microsoft Corporation 1996-2001. All rights reserved. SSLAB01 SQL2K5 C:\> And I want it to look like this: C:\>cscript getsqlinst.vbs Microsoft (R) Windows Script Host Version 5.6 Copyright (C) Microsoft Corporation 1996-2001. All rights reserved. SSLAB01, SQL2K5 C:\> And the second: strComputerName = "serverwithmultipleips" Set objWMIService = GetObject( _ "winmgmts:\\" & strComputerName & "\root\cimv2") Set colNicConfig = objWMIService.ExecQuery _ ("Select IPAddress from Win32_NetworkAdapterConfiguration" _ & " where IPEnabled=TRUE") For Each objNicConfig In colNicConfig If Not IsNull(objNicConfig.IPAddress) Then strIPAddresses = Join(objNicConfig.IPAddress) Else strIPAddresses = "" End If WScript.Echo strIPAddresses Next Output looks like this: C:\>cscript ipaddy.vbs Microsoft (R) Windows Script Host Version 5.6 Copyright (C) Microsoft Corporation 1996-2001. All rights reserved. 147.34.97.120 147.34.97.229 192.168.234.235 C:\> And I want it to look like this: C:\>cscript ipaddy.vbs Microsoft (R) Windows Script Host Version 5.6 Copyright (C) Microsoft Corporation 1996-2001. All rights reserved. 147.34.97.120, 147.34.97.229, 192.168.234.235 C:\> Any help is much appreciated! Tag: Sample to check share, set up share Tag: 166332
  - 9
    - move users in local groups... HI , i want to remove domain user account from de local admin group in the pc , then the same user add to group advanced users..any has one scirpt to do this?? for example i have this script.. 'add user to local group strComputer = "." Set objGroup = GetObject("WinNT://" & strComputer & "/Advanced Users,group") Set objUser = GetObject("WinNT://" & strComputer & "/kenmyer,user") <------- this variable must be a valor of the user authenticated to domain for example %username% , if not, only the user kenmyer will be add to group .. objGroup.Add(objUser.ADsPath) i expect your comments , tk's! Tag: Sample to check share, set up share Tag: 166328
  - 10
    - File Version compare issue All, I am using fso.getfileversion to get the version of a file then capare it to a static value. The issue that i am having is that that script thinks 9.0.0.2602 is greater than 10.0.5529.0. Although an echo displays the file versions correctly, i think that the minor version of .0 is not being calculated.. Any ideas??? Thanks Tag: Sample to check share, set up share Tag: 166326
  - 11
    - How to Convert Chars from a .BAT command Line? Hi! I've got a simple RUN.BAT with this @echo off myscript.vbs /s="select * from OPERAÇÃO_COM_TRATAMENTO" In "myScript.vbs" i've read the command line "/s" and i have not the same result string , because de characters "ÇÃ" are translated to another thing... How can i pass correctly de characters "ÇÃ" in the .BAT command line, or re-construc them in the vbs ???... Thanxs a lot...... Gabriel. Tag: Sample to check share, set up share Tag: 166325
  - 12
    - Converted BAT won't function I'm attempting to convert a simple BAT file to VBS, as seen below. When I double-click the vbs file, nothing happens, i.e., the intended Rasdial connection does not occur. No diagnostics from WSscript are displayed. What am I missing? Sub DialJPS() Set oShell = CreateObject("WScript.Shell") oShell.Run "c:\Windows\System32\rasdial.exe Rasdial jps stanton@jps.net mypassword" ,0 End Sub Thanks, Bill Tag: Sample to check share, set up share Tag: 166312
  - 13
    - CSV file parsing Hi, Please forgive me - I'm new to scripting... I have a csv file, comma-delimited, which has the following fields, E-mail Addresses SMTP:ecdlcorrector@DOMAIN.com%MS:TRAINING/DOMAIN/ECDLCORREC%X400:c=US;a= ;p= Training;o=DOMAIN;s=ecdlcorrector;%CCMAIL:ecdlcorrector at DOMAIN Secondary-Proxy-Addresses smtp: I need to get a vbscript to take the "ecdlcorrector" from <SMTP:ecdlcorrector@domain.com> and add it to the field <secondary-proxy-address>, but only use the "ecdlcorrector" part and add it to "@newdomain.com". Essentially, I want to add the ecdlcorrector in the above as a new email address with a different @domainname into the secondary-proxy-address field. I hope this makes sense and that somebody can help me, or point me in the right direction. Kind regards Gerard Gallagher Tag: Sample to check share, set up share Tag: 166310
  - 14
    - Shell What's the connotation associated with the common use of the word "Shell" in the context of VB? Aside from whatever connotation someone might have intended, it appears that it is some special kind of "run" or "call" statement to initiate the running of another program, service or what? Thanks, (just getting started) Bill Tag: Sample to check share, set up share Tag: 166306
  - 15
    - CDO SMTP Code with Authentication I got some code for sending mail via SMTP from a Microsoft Web site. When I run it, the server returns the message that I should configure my mail client to use authentication. I tried adding lines for authentication, but I keep getting the same message. The code is below. Any input on how to get configure it for authentication would be appreciated. Thanks! Neil Dim iMsg Dim iConf Dim Flds Dim strHTML Const cdoSendUsingPort = 2 set iMsg = CreateObject("CDO.Message") set iConf = CreateObject("CDO.Configuration") Set Flds = iConf.Fields ' Set the CDOSYS configuration fields to use port 25 on the SMTP server. With Flds .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort 'ToDo: Enter name or IP address of remote SMTP server. .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtpauth.earthlink.net" .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10 .Item("http://schemas.microsoft.com/cdo/configuration/SMTPAuthenticate") = cdoBasic 'cdoBasic=1 .Item("http://schemas.microsoft.com/cdo/configuration/SendUserName") = "xxx@earthlink.net" .Item("http://schemas.microsoft.com/cdo/configuration/SendPassword") = "mypw" .Update End With ' Build HTML for message body. strHTML = "<HTML>" strHTML = strHTML & "<HEAD>" strHTML = strHTML & "<BODY>" strHTML = strHTML & "<b> This is the test HTML message body</b></br>" strHTML = strHTML & "</BODY>" strHTML = strHTML & "</HTML>" ' Apply the settings to the message. With iMsg Set .Configuration = iConf .To = "mymail@earthlink.net" 'ToDo: Enter a valid email address. .From = "mymail@earthlink.net" 'ToDo: Enter a valid email address. .Subject = "This is a test CDOSYS message (Sent via Port 25)" .HTMLBody = strHTML .Send End With ' Clean up variables. Set iMsg = Nothing Set iConf = Nothing Set Flds = Nothing MsgBox "Mail Sent!" Tag: Sample to check share, set up share Tag: 166305
  - 16
    - how do you pass the name of an image that has been clicked? i have some images in a form. <input type="image" i would like to be able to pass the name of the image clicked to the subsequent page. is there a property which relates to the item which has been clicked? or would it be an index of the array of images or form inputs where the index is equal to the image clicked or input submitted. i don't think that vbscript or asp supports "this.name" please help before i go insane thanks Tag: Sample to check share, set up share Tag: 166299
  - 17
    - Script Editor I was given to understand that there's a VBScript editor in Office 2K. While I'm familiar with the VBA editor in Access, I've not found any other editors in Office 2K. Am I blind or miss-informed? Thanks, Bill Tag: Sample to check share, set up share Tag: 166295
  - 18
    - Value Added Tax calculation hello all i was helped by people from this group to add 17.5% onto a variable number. for that, i am very grateful. i now need to calculate the VAT at 17.5% from a variable number. example the amount value added tax in £100 is £17.50 preCalc = inputbox("Enter the sub total amount",,"100") preCalc = (preCalc * 0.175) ' msgbox "Grand total: " &space(3) & (preCalc) & "%" could i make a simple change to line 2 to do this many thanks Tag: Sample to check share, set up share Tag: 166292
  - 19
    - wmi / disabling nic's Hi, I would like to disable my wireless network interface from a vbscript for my laptop, in order to save power. (hardware profiles are such a pain to achieve that..;) However, it looks like there is no function/hook possbility in the wmi to do that in windows XP (i used WMITools to explore the objects) Has anyone an idea/ solution ? Thanks Tag: Sample to check share, set up share Tag: 166290
  - 20
    - Processor qty reported incorrectly in registry I am trying to script an audit of domain servers. The "NUMBER_OF_PROCESSORS" key reports 2x the actual number of processors if the processor uses hyperthreading technology. How can I determine whether the processor uses hypertheading technology within a vb script? Many Thanks Tag: Sample to check share, set up share Tag: 166289
  - 21
    - CreateElement Hi Can I use CreateElement with VBS and, if so, what's wrong with this code? <Script Language="vBS"> Sub AddElement() oOption = document.createElement("OPTION") oOption.text="HP LaserJet 2200" oOption.value="1" document.all.PrinterList.add(oOption) End Sub </SCRIPT> </HEAD> <BODY onLoad="test()"> <SELECT Name=PrinterList ID=PrinterList> </SELECT> </BODY> Regards PO Tag: Sample to check share, set up share Tag: 166287
  - 22
    - InputBox on top I have a COM server (out-of-proc) that starts a VBscript by means of the script control. The script needs to display an input box. The box shows, but it is not on top. Is there any way I can make it to appear on top automatically, from within the script? Alternatively, does anyone know of a tool that would spy on the windows and automatically raise windows with a given title (or title pattern)? TIA, Rob Hegt Tag: Sample to check share, set up share Tag: 166285
  - 23
    - Converting .bat file to .vbs file Hi there all, I've got a batch file with the below code in it. I'd like to convert this to run in a vbs file as then I can use msgbox etc to prompt for certain variables. For the life of me I can't make it work in vbs! The mkdir and copy bits are fine, it's when I try the silent software install that it just doesn't work. I realise this is a long shot, but can anyone help me convert this to vbs? Cheers, Pete mkdir "c:\Program Files\BO License\" copy .\BusinessObjects_enterprise_600_8166.signed.key.xml "c:\Program Files\BO License\" start /wait .\setup.exe /s /v"/qn /L*v C:\bo6_install.log INSTALLLANG=en,fr,es DEFAULTLANG=en INSTALLTYPE=1 ADDLOCAL=bo,bo.AccessPacks,bo.rdbms.ODBC,bo.rdbms.ODBC3,bo.rdbms.ODBC2,bo.rdbms,bo.rdbms.Microsoft,bo.rdbms.MSSQLServerODBC,bo.rdbms.MSAccessODBC,bo.rdbms.Oracle,bo.rdbms.OracleClient,bo.AdminProducts,bo.vba,bo.vba.common,bo.DesktopProducts,bo.BusinessObjects,bo.BusinessObjectsDoc,bo.3TierBusinessObjects,bo.BusinessObjectsHelp,bo.BusinessObjectsExplorer,bo.BusinessObjectsReporter,predefined.setup.invisible,bo.vba.en LICENSEDIR=c:\PROGRA~1\BOLICE~1\ " Tag: Sample to check share, set up share Tag: 166282
  - 24
    - registry key permissions This is a multi-part message in MIME format. ------=_NextPart_000_008E_01C4D21C.F3C640F0 Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable Is there a way to change permissions on a reg key using vbscript? -- Jeff Giroux ------=_NextPart_000_008E_01C4D21C.F3C640F0 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.1476" name=3DGENERATOR> <STYLE></STYLE> </HEAD> <BODY bgColor=3D#ffffff> <DIV><FONT face=3DArial size=3D2>Is there a way to change permissions on = a reg key=20 using vbscript?</FONT></DIV> <DIV><FONT face=3DArial size=3D2><BR>--<BR>Jeff=20 Giroux<BR></FONT></DIV></BODY></HTML> ------=_NextPart_000_008E_01C4D21C.F3C640F0-- Tag: Sample to check share, set up share Tag: 166276
  - 25
    - ASP VBSCRIPT Error Hello all and thanks for any responses. Also im not sure if this will be the right forum for this, hopefully I get an answer and Any thoughts would be appreciated I have an ASP page that calls a Stored procedure which gives back an identity of the insert ----ASP PAGE---- <% SET conn = server.createobject("adodb.connection") conn.open MM_QuoteSytem_STRING getReqNumSQL = "EXEC [dbo].InsertReqFromQuoteSystem 'USERID', 2" RESPONSE.WRITE getReqNumSQL & "<br>" set GeneratedReqNum = conn.execute(getReqNumSQL) ' Trying to get the generated ID Number response.write GeneratedReqNum.Fields(0).Value %> ---------------------------------------- I have tried multiple incarnations for the response.write to no avail ----Stored Procedure ---- PROCEDURE [dbo].InsertReq @Originator varchar(15), @DivisionID int AS BEGIN SET NOCOUNT OFF DECLARE @ReqIdentity INT INSERT INTO [dbo].[Req] ( [Date_Opened], [Date_Closed], [CurrentStatus], [Originator], [DivisionID] ) VALUES ( getdate(), getdate(), 'REQCL', @Originator, @DivisionID ) SELECT @ReqIdentity = @@IDENTITY SET NOCOUNT ON SELECT ReqIdentity = @ReqIdentity END -------------------------------------- When i run the stored procedure within Query Analyzer i do get a result (1 row(s) affected) ReqIdentity ----------- 22982 When executed from my ASP page i get an error of ADODB.Recordset error '800a0cc1' Item cannot be found in the collection corresponding to the requested name or ordinal. FYI I tried the following so far GeneratedReqNum(0) -- Same error For each flds in GeneratedReqNum.fields -- nothing gets returned I am assuming that the stored procedure is not giving back the result set from its execution. For the life of me I cant get the result set out Thanks Again Len Tag: Sample to check share, set up share Tag: 166275

Hi,
I am not familiar with much of WSH, and would like to see a sample script or
scripts that:
1) Checks to see if a given network share exists
2) Delete a network share
3) Create a network share
4) Move files to the recycle bin (as opposed to deleting them)

I am trying to use WshShell.Exec with the DOS net share command but the
correct syntax and error handling eludes me.

Are there any other objects I could use that would make this task easier?
For example, I have been able to find and use SQLDMO objects to do things
like backing up and restoring SQL Server databases.

I would appreciate any pointers to useful samples or books.

Thanks in advance.
Chris Hough

Top

Re: Sample to check share, set up share by SkyWalker

SkyWalker
Tue Nov 30 22:12:06 CST 2004

This link should give you the examples you need.

http://www.microsoft.com/technet/scriptcenter/scripts/storage/shares/default.mspx

**********************************************************************
Sent via Fuzzy Software @ http://www.fuzzysoftware.com/
Comprehensive, categorised, searchable collection of links to ASP & ASP.NET resources...

Top