Creating a VPN Connection

TheMSsForum.com: The Microsoft Software Forum

The MSS Forum ‹ VBscripts
- Archive
  - Biz
  - MCSE
  - CRM
  - Drivers
  - Framework
  - ADO
  - ASP
  - Compact
  - Forms
  - Dotnet
  - C#
  - VB
  - FontpageGen
  - Excel
  - WorkSheet
  - Exchange
  - Setup
  - Fox
  - Fontpage
  - ASP
  - IIS
  - Entourage
  - Money
  - Messanger
  - PocketPC
  - Powerpoint
  - Project
  - Publisher
  - Excel
  - VB
  - Security
  - Portal
  - Services
  - SQLServerDev
  - SVCS
  - SQLServer
  - VB
  - VC
  - MFC
  - ExcelGen

- Previous
  - 1
    - Error 424 on RegExp Object I've had a script running happily in Classic ASP for the past 18+ months with no issues and then all of a sudden, it stops working on my local machine (XP Pro). The code in question is: dim re set re = new RegExp str = Replace(str, "+", " ") re.Pattern = "%([0-9a-fA-F]{2})" re.Global = True Response.write re.Replace(str, GetRef("URLDecodeHex")) I've tracked the error down to the line with the creation of the RegExp object (set re = new RegExp) and have the error code of #424 - Microsoft VBScript runtime error. The code works fine when it's hosted online so I know it's an issue with my PC but does anyone have any suggestions as to what it could be? Are there any DLL's I can re-register? To my knowledge, nothing has changed. No permissions, no changes to the registry, etc. Thanks in advance, Joff Tag: Creating a VPN Connection Tag: 215712
  - 2
    - Need help with Windows Explorer Script Hello, All -- The following script was posted on some Usenet newsgroup in response to someone asking how to open two Windows Explorer windows side by side with designated folders: Dim sh Set sh = CreateObject("Shell.Application") sh.MinimizeAll sh.Explore "C:\Program Files" sh.Explore "C:\" WSH.Sleep 2000 sh.TileVertically It looked useful to me so I tried it. It works great except that both windows have double panes which makes for a very crowded screen. I would like to know how to modify this script to open two single paned windows explorer windows side by side. I have searched all over and have found nothing that would fit the bill. Please note that I am not a programmer or power user and am not at all familiar with scripting. Any help will be very greatly appreciated. Thanks to all. Jim Tag: Creating a VPN Connection Tag: 215701
  - 3
    - Accessing MS Word Bookmark using VBScript Hi All, I'm trying to access data from a Word file that has bookmarks and display them on an HTML page. I'm using VBScript to accomplish this. The following code does the job very well: ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''= '''''''''''''''''''''''''''''''''''''''''''' Set objWord =3D CreateObject("Word.Application") Set objDoc =3D objWord.Documents.Open("C:\test.doc") If objDoc.Bookmarks.Exists("myBookmark") =3D True Then ' checking to see if bookmark exists... Set objRange =3D objDoc.Bookmarks("myBookmark").Range myForm.myTextbox.Value =3D objRange.Text ' display the text in a form element (textbox in this case) End If objWord.Quit ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''= '''''''''''''''''''''''''''''''''''''''''''' I am running into major problems when my bookmark name in Word contains foreign characters (i.e. ' =E9 ' - 'Pr=E9par=E9_par'). Can anyone please tell me how it might be possible to access the bookmarks' contents when the name has foreign characters? Thanks! Tag: Creating a VPN Connection Tag: 215697
  - 4
    - closing a command window after running some code First a brief explanation: on some of the servers I manage, there's an executable that's supposed to be running all the time. The past few days this exe has been mysteriously stopping. Not sure why or when, so I'm trying to determine the root cause. To that end, I wrote a script that checks to see if the exe is running, and if it isn't, restarts it. I run that script as a scheduled task every 20 minutes, so at the worst, we lose 20 minutes of functionality on a given server. On the server, the executable is called from a batch file. Here's the code in the batch file: start "Assembler v2.8 Production" /D c:\delivery c:\delivery\assembler f=z:\ o=z:\done\ v=10000 l=z:\assemblepdf_%computername%.log pi=V:\normal\In po=V:\normal\Out\ cv=\\sherlock\proofsprod\current\ Now (finally!), my questions: If I run this code (the script is local on the server), I can make the executable restart: Set objShell = CreateObject("WScript.Shell") objShell.Run "cmd /K start /D c:\delivery c:\delivery\assembler f=z:\ o=z:\done\ v=10000 l=z:\assemblepdf_%computername%.log pi=V:\normal\In po=V:\normal\Out\ cv=\\sherlock\proofsprod\current\" However, after the script runs, there's an extra command window open. So there's one command window that's open with the executable running, and another command window open at whatever directory I ran the script from (C:, for example). The command window I ran the script from is the one I'd like to close if at all possible. And a related question: in comparing the code from the batch file and the code I put into my script, you might notice I omitted the string "Assembler v2.8 Production" (quotes included). If I add this to my VBScript, the code won't run. I'm guessing it's a matter of finding the right combination of quotes/doubled quotes, but so far I haven't stumbled across the correct one. Neither issue is a show-stopper, as the code does what I intended, but I wanted to ask so I could learn a bit more. Thanks. Tag: Creating a VPN Connection Tag: 215689
  - 5
    - Status windows instead of wScript.Echo I would like to monitor my steps in my script, but the only way I know how is to do wScript.Echo "Blah blah blah". This isn't good for me because I have to hit OK after each step. Is there a way I can pop up a little dialog window where I can see my progress whether it be somthing that changes the message each step or does something like: Step1 running... Step1 complete! Step2 running... Step2 complete! Step3 running... Step3 complete! I also want it to close after a few moments when finally complete. Tag: Creating a VPN Connection Tag: 215688
  - 6
    - Copying Wscript.echo to the clipboard Morning all, I need to take a wScript.echo and copy it to the clipboard. The script I supplies my variables and outputs to a wscript.echo for me. Now I want to copy waht is put what is displayed in the wscript.echo into the clipboard so I can paste is into other apps. Is this possible with vbs? and if so how. I have seen alot around that is close, but all are looking to use IE to copy to the clipboard. Is this the only way? any input would be appreciated. Daryl Tag: Creating a VPN Connection Tag: 215687
  - 7
    - VB Script to map network dirve through HTML link Hello - I have a simple web page for system administration and I want to embed a link on the page that will map to the root drive of the system (i.e. //Servername/c$) - when I add the line href=file://///ServerName/ c$ - and then click on the link I get a browser window with "Server cannot be found" - When I open a new browser and just type in //Servername/c$ I get the prompt for username/password... Why will this not work through the link but manually through the browser.. thoughts!!?? Tag: Creating a VPN Connection Tag: 215686
  - 8
    - create folder on all computers I am trying to find a way(script) to create a folder c:\myFolder and copy some files into it, to all computers on my domain without having to do go from one to another. any tips or hints would be gratful. (the data on each of them will differ when they logon, so a shared folder dosen't work for me) Tag: Creating a VPN Connection Tag: 215683
  - 9
    - Converting IP Address to 9 Digit Decimal Number for msRADIUSFramed I am having to enter a static IP address for all of our VPN users, which is about 1,000. I am not a math person, but when I convert my IP address to a decimal number, it is a 10 digit number which is 1 digit to many to be added to msRADIUSFramedIPAddress attribute. I receive an error, it only takes up to 9 digits. Somehow Active Directory converts the decimal number to a 9 digit negitive number, I have no clue on how to get the 9 digit negitive number, If you already have a vbscript to convert an IP address to msRADIUSFramedIPAddress format. That would be awsome. But just even able to convert the 10 digit positive number to a 9 digit negitive number would be great! Thank you for you help!! Don My IP Address is 172.29.255.130 Converts to: 2887647106 (BUT it is 10 digits and can not be entered, even manually with ADSI Edit) Active Directory Converts the Number to a negitive value. This is where I am stuck. From ADSI Edit: msRADIUSFramedIPAddress = -1407320190 In Microsoft Forum Example Script to modify the attribute they used IP 10.2.0.210 which converts to: 167903442 (It is a 9 digit number and will work!) Again thank you for helping out, this will be so appriciated... Tag: Creating a VPN Connection Tag: 215678
  - 10
    - Delimited file fields into a variable Hi all, I have a csv file which I need to be able to select certain fields and then amend them to each line. EG ed, peters, DG, TH,,AG,3554 (note 5th field is blank) and so I would like to copy the 2nd and 6th fields and amend to the record so it would be= ed,peters,DG,TH,,AG,3554,peters,AG Thanks, Ed Tag: Creating a VPN Connection Tag: 215675
  - 11
    - Clearing the MRU programs from the start menu I'd like to clear the MRU programs from the XP start menu (the ones that get added "below the line", not the ones pinned above the line) with a script, but I can't even find where they're stored. I see there's the verb "Remove from this list" associated with each entry, but if I can't find the container to see the contents I can't invoke the verb. If I list the Items in the special folder START_MENU the only thing that shows up is Programs. Maybe that's not even the way to go about it. Any ideas? Thanks, Tom Tag: Creating a VPN Connection Tag: 215674
  - 12
    - Trying to append script results to a text file Hi. I've come across a script which suits my purpose very well. it returns the status of whether a host is available (pingable) written by Mike Salsbury see here: http://mikesalsbury.com/mambo/content/view/548/ I'm trying to have the output appended to a text file and looped to repeat every 30 seconds thanks Tag: Creating a VPN Connection Tag: 215669
  - 13
    - Special Folder Shell Namespace number vs title I can obtain a Shell Application Folder object associated with a Windows Special Folder with code like the following: iNameSpace = 26 Set oShApp = CreateObject("Shell.Application") Set oShFolder = oShApp.NameSpace(iNameSpace) MsgBox oShFolder.Title On my WXP SP2 system, for numbers in the range 0 to 61, most numbers result in a shell folder object with a unique title. My system has 39 unique titles. Some titles, like 'Application Data', and 'Desktop', are associated with namespaces of more than one number. For example, 26, 28, and 35 all result in shell folders with the title 'Application Data'. Question: Are all the shell folders with the same title identical, having the same properties, methods, events, etc, as well as the same contents? If not, how can I find out the differences between them? Thanks, -Paul Randall Here is a short script to list the special folder namespace titles and the numbers associated with them: Set dNameSpaces = GetNameSpaces() sMsg = "" For Each sNameSpace In SortNet(dNameSpaces.Keys) sMsg = sMsg & sNameSpace & vbTab & vbTab & _ dNameSpaces(sNameSpace) & vbCrLf Next 'sNameSpace MsgBox "Namespace Title count = " & UBound(dNameSpaces.Keys) + 1 & _ vbCrLf & sMsg Function GetNameSpaces() 'Return a dictionary containing namespace titles and associated numbers. Dim dNameSpaces, dNameSpaces2, oShApp, oShFolder, sNameSpace Set dNameSpaces = CreateObject("scripting.dictionary") dNameSpaces.comparemode = vbTextCompare Set dNameSpaces2 = CreateObject("scripting.dictionary") dNameSpaces2.comparemode = vbTextCompare Set oShApp = CreateObject("Shell.Application") On Error Resume Next For i = 0 To 100 Set oShFolder = oShApp.NameSpace(i) dNameSpaces(oShFolder.Title) = dNameSpaces(oShFolder.Title) & i & " " Next 'i On Error Goto 0 For Each sNameSpace In SortNet(dNameSpaces.Keys) dNameSpaces2(sNameSpace) = Replace(Trim(dNameSpaces(sNameSpace))," ", ",") Next 'sNameSpace Set GetNameSpaces = dNameSpaces2 End Function 'GetNameSpaces Function SortNet(a1DArray) Dim i With CreateObject ("System.Collections.ArrayList") For i = 0 To UBound(a1DArray) .Add a1DArray(i) Next .Sort() SortNet = .ToArray End With End Function Tag: Creating a VPN Connection Tag: 215661
  - 14
    - Encoded vbscript will not run in Windows Visata Hello, I encoded a vbscript, but the encoded script failed to run in Windows Vista. The error is as follows: There is no script engine for file extension ".vbe". Will WIndows Vista be able to run the encoded vbscript? Thanks. CluM09 Tag: Creating a VPN Connection Tag: 215655
  - 15
    - script to change First Name and Last Name, based on Display Name I need to find a way (script?) to change several users in a especial OU [displayName] looks like "John Albert Taylor (OPER)" need to get "only" first name from [displayName] and change the [givenName] to "John" need to get "only" middle and last name from [displayName] and change the [sn] to "Albert Taylor" can consider the first " (" end of name can help me ? thanks! Tag: Creating a VPN Connection Tag: 215616
  - 16
    - delete folders older than - [wp] I am looking foir a VBScripts which would delete sub-folders older than 15 days and I found this .... and I have no clue how to modify this help please. thanks 'Objective: To Delete folders older than certain # of days. 'Created by: MAK 'Date Written: Jun 4, 2004 'Usage: DeleteOldFolder "\\Servername\d$\MSSQL\BACKUP\Replication\" "2" "C:\mylog.txt" 'Usage: DeleteOldFolder "\\Servername1\Sharename\Replication\" "3" "\\servername2\log\DeleteOldFolders.log" On error resume next if isnull(WScript.Arguments(0))=True or isnull(WScript.Arguments(1))=True or isnull(WScript.Arguments(2))=True then msgbox "Usage: DeleteOldFolder" & "'\\Servername1\Sharename\Replication\' '3' '\\servername2\log\DeleteOldFolders.log'" end if Dim Directory Dim Noofdays Dim FSO Dim FSO2 Dim LogFile Dim Folderlist Dim folders Directory =WScript.Arguments(0) Noofdays=cint(WScript.Arguments(1)) LogFile=WScript.Arguments(2) Set FSO = CreateObject("Scripting.FileSystemObject") Set FSO2 = CreateObject("Scripting.FileSystemObject") Set oFSO = CreateObject("Scripting.FilesyStemObject") Set ofile = oFSO.createTextFile(LogFile, True) ofile.writeline "DeleteOldFolders Started" ofile.writeline now() Set Folderlist = FSO.GetFolder(Directory) Set folders = Folderlist.SubFolders For Each d In Folders ' msgbox d.name ' msgbox d.size ' msgbox d.dateCreated ' msgbox d.dateLastModified ' msgbox d.dateLastAccessed tempdirectory = Directory & d.name 'msgbox Noofdays 'msgbox datediff("d",d.dateCreated,now()) If datediff("d",d.dateCreated,now()) > Noofdays Then FSO2.DeleteFolder(tempdirectory ) ofile.writeline cstr(now()) & " " & tempdirectory & " Delete Started" if err.number <>0 then ofile.writeline cstr(now()) & " " & Err.description err.clear else ofile.writeline cstr(now()) & " " & tempdirectory & " has been deleted" err.clear end if ' msgbox tempdirectory & " has been deleted" End If Next 'msgbox "Done" ofile.writeline "DeleteOldFolders Completed" ofile.writeline now() Tag: Creating a VPN Connection Tag: 215612
  - 17
    - silent install issue with batch program I wrote a batch program to silently install some chipset software for users during logon. But it's working properly. Here is part of the code. :IntelAMT Echo Install Intel AMT Chipset Software Echo Install Intel AMT Chipset Software >>%systemroot%\setuplog1.log Echo Installing Utility Driver. c: CD \Drivers\Dell\GX755\Chipset\Chipset1 start /wait setup.exe -s -sms Echo Utility Driver Installed, rc=%ERRORLEVEL% >>%systemroot%\setuplog1.log; Echo Installing Intel AMT SOL/ LMS Driver c: CD \Drivers\Dell\GX755\Chipset\Chipset2 start /wait setup.exe -s -sms Echo Intel AMT SOL/ LMS Driver installed, rc=%ERRORLEVEL% >>%systemroot%\setuplog1.log Echo Installing Intel AMT HECI Driver c: CD \Drivers\Dell\GX755\Chipset\Chipset3 start /wait setup.exe -s -sms Echo Intel AMT HECI Driver installed, rc=%ERRORLEVEL% >>%systemroot%\setuplog1.log I can see the echo message during installation and the echo message in the log. But only the first one got installed properly. What I found is that the other two need to answer the license agreement. What's the switch to accept the license agreement automatically? thanks. Tag: Creating a VPN Connection Tag: 215607
  - 18
    - Error 800A0046 when trying to copy file locally Hey first post here, also new to scripting. I'm trying to create a script that reads a text file taking the path from that file and then copying the file from the path in the text file to a specific destination. I've got the reading of the text file down and everything seems to be ok, except when it goes to copy the file, when it tries to copy the file I get a Permission Denied message, this is a local copy from root of C to a temp folder and I'm admin on the machine so I can't understand why it would be a permission issue. Here is the script: Const ForReading = 1 Dim SourceServer Set objFSO = CreateObject("Scripting.FileSystemObject") Set objTextFile = objFSO.OpenTextFile _ ("c:\test.txt", ForReading) strNextLine = objTextFile.Readline arrServiceList = Split(strNextLine , ",") Wscript.Echo "Server name: " & arrServiceList(0) set SourceServer = objFSO.GetFile(arrServiceList(0)) Wscript.Echo "Copy " & SourceServer SourceServer.Copy("C:\temp\test") Any suggestions are much apprciated. Tag: Creating a VPN Connection Tag: 215606
  - 19
    - Slow logon when homeshare not available Situation: we divide our network for students and employees with VLANs. All computers for Education are placed in a student vlan, all administrative computers are placed in an employee vlan. When an employee logs on to a computer, which is in the student vlan, he can't access administrative resources, so he can't connect to his homedrive / homeshare. When an employee logs on to a computer in the employee vlan he will succesfully access administrative resources, the homeshare is succesfully connected. The problem is that logging on to a computer which is in the educational vlan causes a delay of 90 seconds because the server is not available. We sniffed the network and have seen that there is 3 times a ping request before the logon will proceed. We removed the homedrive and homepath setting in the AD user object and connected the homedrive based on subnet with a script, this solved the problem. But this causes problems with laptops users (folder redirection.) We want to workaround this problem without changing homedrive and homepath settings in the user object. Thanks in advance. Tag: Creating a VPN Connection Tag: 215602
  - 20
    - Empty the Recycle Bin I'd like to empty the Recycle Bin and reset the desktop icon to "empty". Anyone got some code I can use to do that? Thanks, Tom Tag: Creating a VPN Connection Tag: 215589
  - 21
    - Move Folder question I'm trying to write a script to move folders & subfiles using objFSO.MoveFolder "D:\SHARE\FOLDER\*" , "D:\Pending Print\FOLDER\" It works fine, however it will only move the folder if there are no files within the folder. Is there a parameter or something I am missing to copy BOTH folders and sub-files? thank you in advance, Tag: Creating a VPN Connection Tag: 215588
  - 22
    - Using SWbemLocator.ConnectServer with non-domain credentials Ok, so I have a scripting issue that I canâ??t find a solution for. Iâ??ve tried everything I can possibly think of, and have searched endlessly for an answer on all the forums/newsgroups. Iâ??m trying to use the SWbemLocator.ConnectServer method with vbscript to connect to a Windows 2003 server remotely and gather WMI data. All servers are Windows 2003 Server. ServerA = workgroup server Iâ??m trying to run the script from. ServerB = workgroup server Iâ??m trying to connect to. I can do this fine, as long as ServerB is connected to a domain, and I use domain credentials to authenticate when activating the ConnectServer method. However, if ServerB is part of a workgroup and I try to use the local admin credentials of ServerB in the ConnectServer method, I get â??Access is Deniedâ?? with an error code of 80070005 (DCOM Error regarding incorrect username/password). On ServerB, in the security event logs, it appears that only the local credentials of ServerA are being passed, as the â??DOMAINâ?? parameter is populated with the name of ServerA. Iâ??ve tried adding the name of the ServerB to the beginning of the strUser, or in the â??NTLMDomain:â?? setting so that it specifies the remote user account, but it still fails. This also happens if ServerB is in a domain if I try to use the local admin credentials of ServerB to connect, rather than the domain credentials. Iâ??ve scoured the newsgroups and spoken with other administrators. I get some solutions that come close to describing my exact issue, but nothing that solves the problem. Any ideas? Thanks! Tag: Creating a VPN Connection Tag: 215585
  - 23
    - Mass switch DNS script - fail over/disaster recovery Does anyone have a script for failing over DNS? I wrote one, but I'm curious to see if anyone else out there has done it better. What I'm looking for is a script that reads from a CSV and will switch A and CNAME records. As the spreadsheet is setup now, it lists SERVER, FUNCTION, PRODUCTION HOST, DR HOST, PROD A, DR A, PROD CNAME, DR CNAME, etc. The script is run and told to switch to production or fail over, and then changes all the settings as need be. I'm wondering if there's a similar one out there - they're looking for something more bullet proof. Thanks. Tag: Creating a VPN Connection Tag: 215582
  - 24
    - read .reg file Hi, I'm trying to write a script that reads .reg file and can compare it to the registry to see if there's a match. I've got the registry checking part all done in another script, so in this one, I'm looking for reading the .reg file and creating strings that I can use in the regchecking function. reading the .reg file is done: Const ForReading = 1, ForWriting = 2, ForAppending = 8 ' Create the File System Object Set objFSO = CreateObject("Scripting.FileSystemObject") strFile = "U:\tst.reg" If objFSO.FileExists(strFile) Then Set objFile = objFSO.GetFile(strFile) Set filetxt = objFile.OpenasTextStream(ForReading, -2) Do While Not filetxt.atEndOfStream line = filetxt.readline wscript.echo line Loop Else Wscript.Echo "File " & strFile & "doesn't exist" End If but now I'm looking for a way to recognize patterns, for example: Windows Registry Editor Version 5.00 (ignore this sentence) [HKEY_CURRENT_USER\Control Panel\Desktop] (this is the main key) "FontSmoothing"="2" (how to get the sub key) "FontSmoothingOrientation"=dword:00000001 (recognize DWORD values) "SCRNSAVE.EXE"="C:\\WINDOWS\\System32\\logon.scr" (recognize backslashes) "UserPreferencesMask"=hex:9e,3e,05,80 (recognize hex values) "WaitToKillAppTimeout"="20000" "Wallpaper"="" "Pattern Upgrade"="TRUE" [HKEY_CURRENT_USER\Control Panel\Desktop\WindowMetrics] (recognize next main key, and process subkeys with corresponding main key) "BorderWidth"="-15" "CaptionFont"=hex:f5,ff,ff,ff,00,00,00,00,00,00,00,00,00,00,00,00,bc,02,00,00,\(recognize multi line strings) 00,00,00,00,00,00,00,00,54,00,61,00,68,00,6f,00,6d,00,61,00,00,00,00,00,00,\ 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,\ 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 "CaptionHeight"="-270" idea's? regards, jeroen Tag: Creating a VPN Connection Tag: 215578
  - 25
    - Encounter a strange error when query WMI library -- "SWbemServicesEx: Not found" Hi guys, In my domain client migration procedure, on only three clients I encountered "SWbemServicesEx: Not found" error when I tried to query current logoned Domain Account (it is a domain account) info. But when I modified the script to query previous logoned Local Account, it worked. Note: The function I called is "Win32_UserAccount" Script used in my client migration task =============================================================================== Set objNetwork = CreateObject("Wscript.Network") strComputerName = objNetwork.ComputerName strLogonUser = objNetwork.UserName ap01UserName = trim(cstr(InputBox("Please input AP01 User Account:","Type User Account"))) strDomain = "AP01" Set objWMIService = GetObject("winmgmts:\\" & strComputerName & "\root\cimv2") Set objAccount = objWMIService.Get _ ("Win32_UserAccount.Name='" & ap01UserName & "',Domain='" & strDomain & "'") ==================================================================================== I think there would be something wrong with the client's WMI lib. To verify my suspection, I did the following test. 1).Use a sample script to enumerate all the local account which has logoned this client. 2).It seems really really strange, on two XP clients when I run the sample script to query current or previous logon accounts, it only return me Local Accounts, all the Domain Accounts cann't be queried. 3).But when I run this script on most other XP clients, it return both Local and Domain Accounts which have logoned this client. Any one can help? Sample Script ======================================= On Error Resume NextstrComputer = "."Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")Set colItems = objWMIService.ExecQuery _ ("Select * from Win32_UserAccount")For Each objItem in colItems Wscript.Echo "Account Type: " & objItem.AccountType Wscript.Echo "Caption: " & objItem.Caption Wscript.Echo "Description: " & objItem.Description Wscript.Echo "Disabled: " & objItem.Disabled Wscript.Echo "Domain: " & objItem.Domain Wscript.Echo "Full Name: " & objItem.FullName Wscript.Echo "Local Account: " & objItem.LocalAccount Wscript.Echo "Lockout: " & objItem.Lockout Wscript.Echo "Name: " & objItem.Name Wscript.Echo "Password Changeable: " & objItem.PasswordChangeable Wscript.Echo "Password Expires: " & objItem.PasswordExpires Wscript.Echo "Password Required: " & objItem.PasswordRequired Wscript.Echo "SID: " & objItem.SID Wscript.Echo "SID Type: " & objItem.SIDType Wscript.Echo "Status: " & objItem.Status Wscript.EchoNext Tag: Creating a VPN Connection Tag: 215573
- Next
  - 1
    - Script for verifying files I have a server, where through out the day text files are copied to the server by few developers. I am already running a script to create folders on day wise on this server, and users copy these files to the server on the respective daywise folder. I have multiple servers like this. End of day all these text files are copied to a centralized server again to day wise folder. I need to verify whether all files from Server A, Server B etc. are copied to the centralized server completely. And if possible mail me --- like 200/300 files are present on Server A for day xy and is successfully copied to centralized server xyz on folder xy completely. Any suggestion Tag: Creating a VPN Connection Tag: 215572
  - 2
    - Time stamp a file. Hello all. I have the following script segment that creates a time stamped string for use in file or folder names. but need to do it in an easier way, or at least in less code. Any ideas? datetoday = Now strMonth = Month(datetoday) strDay = Day(datetoday) strHour = Hour(datetoday) strMinute = Minute(datetoday) strSecond = Second(datetoday) if len(strMonth) = 1 Then strMonth = "0" & strMonth end If if len(strDay) = 1 Then strDay = "0" & strDay end If if len(strHour) = 1 Then strHour = "0" & strHour End If If len(strMinute) = 1 Then strMinute = "0" & strMinute End If If len(strSecond) = 1 Then strSecond = "0" & strSecond End If datetoday = YEAR(datetoday) & strMonth & strDay timetoday = strHour & strMinute & strSecond strFile = datetoday & "_" & timetoday & ".zip" FSO.CreateTextFile(strFile) -- Thanks TimM Tag: Creating a VPN Connection Tag: 215563
  - 3
    - Need help finding local path to downloaded graphic Note: I have 100% total control over my environment. All users are using IE 7 and the application server is in the IE Trusted Security zone with all functionality defaulted to "Enable" in the IE custom settings for the zone. The only restriction is that all network file access must use http://, and not a UNC path. (Okay, so I guess that isn't 100% but its close.) I have a website that includes photos taken of current construction projects. When a reporting page is loaded via IE one of the page elements is the project's photo. I need to know if there is any way to find the c:\my\path\here\.... location of that file on the local hard disk. I know it is in the temporary internet files and I already know the exact name of the file, e.g. proj2007.014.jpg, but IE sets up subdirectories. Alternately, if there is any way to save the file to a known location then I can just access it from there but I can't figure out how to do that. I'd prefer not to have to have the user confirm the file download but if that is required for security reasons that is okay as long as it solves the problem. Any input is appreciated. Tag: Creating a VPN Connection Tag: 215562
  - 4
    - Help: Command Prompt code misbehaving in VBS Can anyone tell me why the following does not work? I am trying to move the following Command Prompt code into a VB Script: "c:\Program Files\Microsoft ActiveSync\CEAPPMGR.EXE" " helloworldproject.ini" I have tested this and it successfully fires up the CEAppManager.exe on the file helloworldproject.ini. I moved this into the following VBScript... Set strshell= CreateObject("WScript.Shell") strshell.run """c:\Program Files\Microsoft ActiveSync\CEAPPMGR.EXE"" ""helloworldproject.ini""" When I run this script, I get an error from CEAppManager as follows... Error in Windows CE Setup Files: Application Manager cannot install this application on your mobile device due to an error in the setup file. It kind of looks to me like the script is not feeding parameter that I am passing to CEAppManager (i.e. the hellowworldproject.ini) in the the way that CEAppManager expects. Please note that 1)when I execute the code in the CommandPrompt I have previously navigated to the folder containing the INI file. 2) when I execute the VBS script I am also in the folder containing the INI file. Thanks in advance! Tag: Creating a VPN Connection Tag: 215559
  - 5
    - vbscript to check local windows users VS Novell Directory Tree in Does anyone know of a simple script to check if local windows user account user ID's are in the Novell Directory Tree? I dont need to authenticate the user, I'm just checking if they should be deleted from Windows if not in Novell. If you know a script that is somewhat along these lines please post it, I just dont do much with LDAP or Novell so I'm somewhat confused how to start. Tag: Creating a VPN Connection Tag: 215556
  - 6
    - Listing more columns in "Recover Deleted Items" window As a matter of form, I am not talking about the Inbox\Deleted Items folder here, but the recoverable deleted items on the Exchange server (tools > recover deleted items...). When recovering emails from "Sent items" (click Sent Items, Tools > Recover Deleted Items...) I can just see the columns Subject, Deleted On, From and Received. I would like to show the column "To"-column as well, since all emails are from me in there, thus it's hard to locate an old mail with an unknown subject. I know it's probably not possible (I've tried clicking around), so I wondered if anybody know of 3rd party tools and/or scripts (vbscripts etc) that can manage the Recover Deleted Items folders? -- -- HAL07, Engineering Services, Norway Tag: Creating a VPN Connection Tag: 215551
  - 7
    - move folders based on their date This sounded really easy to me when I was tasked with doing it, but now I'm bogged down and have run out of ideas. Here's a description of what I'm trying to do: 1. On drive X, look for all folders starting with the string "delivery", followed by a random number. There are also other folders in X called other things that do not begin with "delivery". 2. For each of the folders starting with "delivery", if the date of the folder equals yesterday's date, move it from X to a destination folder (X:\archive\#yesterday's_date#\, for example). Otherwise don't move it. It sounds easy, and I can do step #1 easy enough, but stumble with the date issue in step #2. I just realized one way I could solve this would be to get rid of all the existing "delivery" folders, then just create a script to move all the "delivery" folders and schedule that script to run at 12:01 a.m. each day, but that seems a bit like the blunt force way of solving the issue, and I'm betting/hoping there's a more elegant solution. Thanks. Tag: Creating a VPN Connection Tag: 215539
  - 8
    - How to focus a folder browser? Hi, When I create a folder browser by using BrowseForFolder method according to this link http://msdn2.microsoft.com/en-us/library/bb774065(VS.85).aspx the dialog can be focused. However, when I display a popup first, the folder browser cannot be focused. The sample code like var objShell = WScript.CreateObject("Shell.Application"); var wshShell = WScript.CreateObject("WScript.Shell"); var btnCode = wshShell.Popup("Do you want to update DNN?", 10, "Answer This Question:", 4 + 32); if (btnCode==6) { var objFolder = objShell.BrowseForFolder(0, "Select the DNN portal folder", 0); } Is there a way that I can bring the folder browser to front? Thanks a lot! H. Tag: Creating a VPN Connection Tag: 215538
  - 9
    - Logoff script to restore a registery subkey Im trying to restor the Key HKCU\Softeare\Policies\Microsoft after making some changes in a logon script at logoff. The logon script adds Internet explorer settings to disable things like using ctrl-O to openn the Open dialog. Prior to running the logon script the subkey Internet Explorer does not exist. I use reg save to save a copy of HKCU\Softeare\Policies\Microsoft and then try to restore it with reg restore HKCU\Softeare\Policies\Microsoft and the file name. This works from the cmd line login as the user. However I will nod restore the key from the script at logoff. All other parts of the script work. the specific line that does not work is: WshShell.Exec ("%comspec% /c reg RESTORE HKCU\Software\Policies\Microsoft ""%USERPROFILE%\explorerPoliciesBackup.hiv""") FYI Wshell = CreateObject("WScript.Shell") I have even tried to use the reg delete command with no success. The user is in the administrators group. This happens locally as well as through terminal services. Thanks in advance Tag: Creating a VPN Connection Tag: 215537
  - 10
    - Copy to multiple folders Maybe someone can help me out. I have the script below that replicates from source to target just fine. It was nice enough on Michael to post it on this MS newsgroup a while back. I've done a few changes to it like a small amount of logging but nothing major. But I'm wanting to change it so that it will replicate to multipe targets i.e. setting the TARGET to just C:\App and have to replicate to all sub folders excluding the Source folder and it already has the logic to exclude folders. Or maybe I need to go about this in a different direction. Any help would be great. Set WshShell = WScript.CreateObject("WScript.Shell") Set objNetwork = wscript.CreateObject("wscript.network") 'objNetwork.Username Set objFSO = CreateObject("Scripting.FileSystemObject") Set variablesObj = WScript.Arguments Set WshEnv = WshShell.Environment("Process") Set objShell = CreateObject("Shell.Application") '======================================================= '================== DEFINED VARIABLES ================== '============== MODIFY SOURCE AND TARGET =============== '======================================================= SOURCE = "C:\App\Source" TARGET = "C:\App\Target" '======================================================= '======================================================= '============== FOLDERS NOT TO POPULATE =============== '======================================================= 'Excluded folders '- list folder names, comma separated FLDR_EXcLUDE = "Source,Test" '======================================================= '======================================================= '============== FOLDERS NOT TO POPULATE =============== '======================================================= 'Excluded file types '- list file extensions (without periods), comma separated FILE_EXCLUDE = "txt,csv" '======================================================= '======================================================= '===================== Log Files ====================== '======================================================= 'ErrLog is for location of error log 'SuccLog is for completion and other logs ErrLog = "C:\ErrorLog.csv" SuccLog = "C:\SuccessLog.csv" '======================================================= '======================================================= '============= END USER DEFINED VARIABLES ============== '======================================================= '**************************************************************************************************** 'Replication '1. Starts with source folder and if it doesn't exist on the target copies it and all contents there '2. If the source folder does exist on the target it checks the files in that folder and copies any missing files or files with later modified dates to the target '3. Recurses through all subfolders (all levels) in the source, repeating steps 1 & 2 for each 'Synchronization '4. Starts with target folder and if it does not exist in the source deletes it. '5. If the target folder does exist in source it goes through all files in the target folder and deletes them if they do not exist in the source '6. Recurses through all sub folders (all levels) in the target, repeating steps 4 & 5 for each. '**************************************************************************************************** replicate = True 'Perform replication: true/false. Do not change from true. synchronize = False 'Perform synchonization: true/false. Do not change from false. silent = False 'Performs logging when set to False. hiddenFldrs = False 'Process hidden folders: true/false. Do not change from false. hiddenFiles = False 'Process hidden files: true/false. Do not change from false. ' NOTE: If a folder is missing in the target, the entire ' folder is copied, even the hidden files '======================================================= If Not ( silent ) Then LogIt SuccLog, "Backup started," & Now & "," & SOURCE & "," & TARGET End If 'Use variables passed from command line if sent If WScript.Arguments.Count > 0 Then replicate = variablesObj(0) End If If WScript.Arguments.Count > 1 Then synchronize = variablesObj(1) End If If WScript.Arguments.Count > 2 Then silent = variablesObj(2) End If 'Set up regular expression object Set RegExObj = New RegExp RegExObj.IgnoreCase = True FILE_EXCLUDE = "," & FILE_EXCLUDE & "," FLDR_EXCLUDE = "," & FLDR_EXCLUDE & "," 'Verify if source folder exists If Not (objFSO.FolderExists(SOURCE)) Then 'Do not replicate, Perform error handling If Not ( silent ) Then 'MsgBox "Source Missing" LogIt ErrLog, "Source missing," & Now & "," & SOURCE & "," & TARGET End If 'Proceed if replicating is on ElseIf ( replicate ) Then replicateFolders SOURCE, TARGET End If 'Verify if target folder exists If Not (objFSO.FolderExists(TARGET)) Then '100 'Do not synchronize, Perform error handling If Not ( silent ) Then 'MsgBox "Target Missing" LogIt ErrLog, "Target missing," & Now & "," & SOURCE & "," & TARGET End If 'Proceed if synching is on ElseIf ( synchronize ) Then syncFolders SOURCE, TARGET End If 'Cleanup variables Set objFSO = nothing Set objNetwork = nothing Set variablesObj = nothing Set RegExObj = nothing Set sourceObj = nothing Set targetObj = nothing Set targetFileObj = nothing Set sourceFileObj = nothing If Not ( silent ) Then MsgBox "Backup Complete!", 0, "Done" LogIt SuccLog, "Backup completed," & Now & "," & SOURCE & "," & TARGET End If '======================================================= Sub replicateFolders (currentSource, currentTarget) '======================================================= 'Check if target folder exists If Not (objFSO.FolderExists(currentTarget)) Then 'Create the target folder and copy the contents of currentSource there objFSO.CreateFolder(currentTarget) objFSO.CopyFolder currentSource, currentTarget LogIt SuccLog, "Created folder and files," & Now & "," & currentSource & "," & currentTarget Else 'Create folder object of the currentSource Set sourceObj = objFSO.GetFolder(currentSource) 'Perform file replication for the currentSource replicateFiles sourceObj, currentTarget 'Do recursive processing of sub folders For Each subSourceObj in sourceObj.SubFolders If Not excluded(subSourceObj.Name,0,FLDR_EXCLUDE) Then If (hiddenFldrs) Or (Not subSourceObj.Attributes And 2) Then newTarget = TARGET & RIGHT(subSourceObj.Path,(Len(subSourceObj.Path)-Len(SOURCE))) replicateFolders subSourceObj.path, newTarget End If End If Next End If '======================================================= End Sub 'replicateFolders '======================================================= '======================================================= Sub replicateFiles (sourceObj, targetPath) '======================================================= ' Recurse through all files in the source object For Each sourceFileObj in sourceObj.Files If Not excluded(sourceFileObj.Name,1,FILE_EXCLUDE) Then If (hiddenFiles) Or (Not sourceFileObj.Attributes And 2) Then targetFile = targetPath & "\" & sourceFileObj.Name 'Check if file exists in target If objFSO.FileExists(targetFile) Then 'Create file object of target file Set targetFileObj = objFSO.GetFile(targetFile) 'Check if file in source is newer If sourceFileObj.DateLastModified > targetFileObj.DateLastModified Then 'Overwrite existing file in target with newer source file sourceFileObj.Copy targetFile, true LogIt SuccLog, "Copied updated file," & Now & "," & newTarget End If Else 'Copy file from source to target sourceFileObj.Copy targetFile End If End If End If Next '======================================================= End Sub 'replicateFiles '======================================================= '======================================================= Sub syncFolders (currentSource, currentTarget) '======================================================= 'Check if source folder exists If Not (objFSO.FolderExists(currentSource)) Then 'Delete the current target folder objFSO.DeleteFolder currentTarget Else 'Create folder object of the currentTarget Set targetObj = objFSO.GetFolder(currentTarget) 'Perform file synching for the currentTarget syncFiles currentSource, targetObj 'Do recursive processing of sub folders For Each subTargetObj in targetObj.SubFolders If Not excluded(subTargetObj.Name,0,FLDR_EXCLUDE) Then If (hiddenFldrs) Or (Not subTargetObj.Attributes And 2) Then newSource = SOURCE & RIGHT(subTargetObj.Path,(Len(subTargetObj.Path)-Len(TARGET))) syncFolders newSource, subTargetObj.path End If End If Next End If '======================================================= End Sub 'syncFolders '======================================================= '======================================================= Sub syncFiles (sourcePath, targetObj) '======================================================= '=======================================================- ' Recurse through all files in the target object For Each targetFileObj in targetObj.Files 'Do not process excluded file types If Not excluded(targetFileObj.Name,1,FILE_EXCLUDE) Then sourceFile = sourcePath & "\" & targetFileObj.Name 'Delete target file if does not exist in source If Not (objFSO.FileExists(sourceFile)) Then targetFileObj.Delete true End If End If Next '======================================================= End Sub 'syncFiles '======================================================= Function excluded (itemName,isFile,excludeList) '======================================================= ' Test if itemName is in excluded list '=======================================================- 'If file, get the file extension If isFile Then itemName = Right(itemName,Len(itemName)-InStrRev(itemName,".")) End If RegExObj.Pattern = "," & itemName & "," excluded = RegExObj.Test(excludeList) '======================================================= End Function 'excluded '======================================================= 'Logging Enabled '======================================================= Sub LogIt(strLogFile,strLine) Dim fso, file Const ForAppending = 8 On Error Resume Next Set fso = CreateObject("Scripting.FileSystemObject") If fso.FileExists(strLogFile) = False Then Set file = fso.CreateTextFile(strLogFile) Else Set file = fso.OpenTextFile(strLogFile,ForAppending) End If file.WriteLine(strLine) file.Close End Sub '======================================================= -- Thanks TimM Tag: Creating a VPN Connection Tag: 215535
  - 11
    - Query Issues My script isint working, specifically I dont think the query is returning anything, though as far as I can tell it should. No errors are returned, but the script skips the 'for each file in cfiles' section. Does anyone see why this is happening? The file name it is checking for (only checking one atm) is: AZA_BINS_2008022514.TXT The contents of C:\BAASCRIPTS\ivr.txt is AZA_BINS_ on line 1 and scriptquit on line 2. --- SCRIPT --- 'Opens text file which contains the names of all files to be checked. Set TextFile = fso.OpenTextFile("C:\BAASCRIPTS\ivr.txt", 1) MsgBox "2" 'Directory path where files are kept on BAA Dir = "C:\BAA\" Dir1 = "BAA" 'Reads in text file and builds directory/file string. Do While TextFile.AtEndOfStream <> True j = j + 1 file_array(j) = TextFile.ReadLine file_stamp = file_array(j) If file_stamp = "scriptquit" Then MsgBox "3a" wscript.Quit Else MsgBox "3b" MsgBox file_stamp End If 'sSomefolder = "D:\ExtractFiles\IVR" 'sPathSpec = Replace(Mid(Dir, 3) & "\", "\", "\\") sComputer = "." ' local machine Set qWMISrv = GetObject("winmgmts:\\" & sComputer & "\root\cimv2") Set cFiles = qWMISrv.ExecQuery("Select * from CIM_Datafile Where "_ & "Drive = 'C:' AND Path = '" & Dir1 & "' AND FileName Like '" _ & file_stamp & sqldate & "%%'", , 48) MsgBox "4" msgbox "Select * from CIM_Datafile Where "_ & "Drive = 'C:' AND Path = '" & Dir1 & "' AND FileName Like '" _ & file_stamp & sqldate & "%%'" For Each File In cFiles ' just file's name s = s & File.FileName & "." & File.Extension & vbCrLf MsgBox "5" MsgBox s ' full filespec ' s = s & File.Name & vbCRLF slen = Len(s) 'T is date t = Mid(s, 9, 8) MsgBox "6" If slen = "22" Then MsgBox "7" 'U is variable digit u = Mid(s, 17, 1) If u > highfile Then highfile = u End If ElseIf slen = "23" Then MsgBox "8" 'U is variable digit u = Mid(s, 17, 2) If u > highfile Then highfile = u End If ElseIf slen = "24" Then MsgBox "9" 'U is variable digit u = Mid(s, 17, 3) If u > highfile Then highfile = u End If ElseIf slen = "25" Then MsgBox "10" 'U is variable digit u = Mid(s, 17, 4) If u > highfile Then highfile = u End If ElseIf slen = "26" Then MsgBox "11" 'U is variable digit u = Mid(s, 17, 5) If u > highfile Then highfile = u End If ElseIf slen = "27" Then 'U is variable digit u = Mid(s, 17, 2) If u > highfile Then highfile = u End If Else MsgBox boo End If MsgBox "11" Next MsgBox "12" Loop pre_fname = sSomefolder & "\" & file_stamp & "_" & sqldate & "_" & u & ".TXT" MsgBox "13" Set filesys = CreateObject("Scripting.FileSystemObject") Set prname = filesys.GetFile(pre_fname) post_fname = file_stamp & ".TXT" prname.Name = post_fname MsgBox "14" Tag: Creating a VPN Connection Tag: 215533
  - 12
    - Reuse of functions Hello, I have many scripts with the same functionality but with different parameters. I would like to create one general script. And call this script from the other scripts. Like you can do with modules and functions in vba. Can someone help? Tag: Creating a VPN Connection Tag: 215526
  - 13
    - Monitor time to open application Hello. Is it possible to monitor time to open application? IE I want to check in seconds how long it takes to open Internet Explorer on my laptop and generate a performance view with it. But how to gather the time? Tag: Creating a VPN Connection Tag: 215523
  - 14
    - List printer in directory Hi all thanks in advance any once who can shine some light on this problem. I have a printer server with about 200 printers on it, i've been able to get a list of the printer names to a txt file, and have written a piece of code to read from said file, pass the name connect via WMI and set the sharedname and the "shared" value to True, thus sharing out my printer. However i cant see to find a way to enable the "List in the Directory" Tick box which would enable to printer to be viewable under the server name in AD. Here is what i have managed so far Dim objPrinter strComputer =3D "." Set objWMIService =3D GetObject("winmgmts:" _ & "{impersonationLevel=3Dimpersonate}!\\" & strComputer & "\root \cimv2") Set objFSO =3D CreateObject("Scripting.FileSystemObject") Set objDictionary =3D CreateObject("Scripting.Dictionary") Const ForReading =3D 1 Set objFile =3D objFSO.OpenTextFile ("c:\printers.txt", ForReading) i =3D 0 Do Until objFile.AtEndOfStream strNextLine =3D objFile.Readline If strNextLine <> "" Then objDictionary.Add i, strNextLine End If i =3D i + 1 Loop objFile.Close For Each strLine in objDictionary.Items Dim dicRpl Set dicRpl =3D CreateObject( "Scripting.Dictionary" ) dicRpl( "=A7CAT=A7" ) =3D strLine Dim sCmdT sCmdT =3D ("Select * From Win32_Printer Where DeviceID =3D '=A7CAT=A7' ")= Dim sCmd : sCmd =3D sCmdT Dim sKey For Each sKey In dicRpl.Keys sCmd =3D Replace( sCmd, sKey, dicRpl( sKey ) ) Next Set colPrinters =3D objWMIService.ExecQuery (sCmd) For Each objPrinter in colPrinters WScript.Echo objPrinter.Shared objPrinter.Shared =3D True objPrinter.ShareName =3D strLine objPrinter.Put_ WScript.Echo objPrinter.Shared Next Next Tag: Creating a VPN Connection Tag: 215521
  - 15
    - html input forms??? using a series of input boxes on a form the text in the box is always highlighted when tabbing forward or backward. sometimes i would prefer the text NOT be highlighted, for instance when the user just needs to verify the text or other times when the text needs to be appended. in either case if the text is highlighted a single keystroke wipes it out. does anyone know how to stop this highlighting? I have tried using a range to set the cursor to the end and setting the input value equal to itsself, both work but the highlight ALWAYS flashes first and it looks sloppy. any help or ideas greatly appreciated!!! Tag: Creating a VPN Connection Tag: 215518
  - 16
    - Replace consecutive "-" chars with a single character Hi, I would like to use VBScript regexp to locate multiple characters in a string and replace them with a single "-" char. In my case it's multiple "-" chars: E.g.: "Gabriela---Hello--How----Are-You" -->"Gabriela-Hello-How-Are- You" How is it done? Thanks, Gabi. Tag: Creating a VPN Connection Tag: 215510
  - 17
    - Record count How can you determine a record count from a paramterized query? <% rsTest = server.createobject("adodb.recordset") conn.Webqry_Test strTest if recordcount = 1 then ...... else ..... end if %> Tag: Creating a VPN Connection Tag: 215493
  - 18
    - Cacls help Hello folks, I am trying to figure out why this snippetof the script I have keeps giving me an invalid character error when I run it. I have declared the variables and am trying to fill in the "Cacls" comand switches. any Idea where I messed this one up? Thanks again for any and all help. Daryl 'Option Explicit Dim strusername Dim strHomeFolder Dim intRunError, objShell, objFSO Dim oShell strusername = "UserLoginID" strHomeFolder = "homeDirectory" Set objShell = WScript.creatobject("Wscript.Shell") Set objFSO = CreateObject("Scripting.FileSystemObject") ' Assign user permissions to home directory objShell.run ("%COMSPEC% /c Echo y|cacls"," & strHomeFolder & " /T /E / G " & strusername & ":F) End If If intRunError <> 0 Then Wscript.Echo "Error Assigning Permissions for User" 'End If End Tag: Creating a VPN Connection Tag: 215488
  - 19
    - Keyboard Layout/Default Input Language/Language Toolbar - Current I am stumped and hope someone else has come across this: I am trying to change the Default Input Language to the Latin America keyboard layout. I have changed the Regional Options to Spanish (Mexico) by changing the registry when the user first logs in and I have changed the HKU\ & HKCU\ Keyboard Layout\Preload to 0000080A (Latin America) so that at the CTRL-ALT-DEL screen the keyoard layout is correct. My problem is that the under Regional and Language Options -> Languages Tab -> Details -> Text Services and Input Languages Settings tab does not list the Latin America keyboard option and the Language bar needs to be active. The script runs at login and changes the Regional Option (time, date, etc.) for the user, but I need to address the other items. Anyone have any ideas? Tag: Creating a VPN Connection Tag: 215485
  - 20
    - Parsing NSLOOKUP for Error Hi I'm writing a script to do a nslookup and return whether the lookup was successful but one things I've noticed is that if I provide an invalid name server to do the lookup, the script still executes no problem because it defaults to the name server configured on the server or workstation. How can I get around this? Basically, I want to capture the following output after the script runs the the following: nslookup <hostname> <bogusnameservername> The output I get is: *** Can't find server address for 'bogusnameservername': Server: <valid nameserverFQDN> Address: 192.168.10.27 I'm reusing some the following code in my script: Function DNSlookup(strHost, strNameServer) sCommand = "%ComSpec% /c nslookup " & strHost & " " & strNameServer 'WScript.Echo sCommand Set objShellRun = objShell.Exec(sCommand) Proceed = 0 Do Until objShellRun.StdOut.AtEndOfStream sLine = Trim(objShellRun.StdOut.ReadLine) NameTag = LCase(Left(sLine,5)) Select Case NameTag Case "name:" Proceed = 1 End Select If Proceed = 1 Then sData = Trim(Mid(sLine,6)) aLine = Split(sLine, ":") sData = Trim(aLine(1)) Exit Do End If Loop How can I parse for: *** Can't find server address for 'bogusnameservername': Thanks, Bryan Tag: Creating a VPN Connection Tag: 215482
  - 21
    - Testing for existance of record Why does the following throw an error (An error occurred on the server when processing the URL. Please contact the system administrator): <% Set rsTestForToken = server.createobject("adodb.recordset") conn.Webqry_TestforToken strRandomNumber if rsTestForToken.EOF then Dothisevent 'goes to a sub else %> <script language="Javascript"> alert ("This number already exists") </script> <% end if dothisevent 'more code follows that has worked before changing the above to dynamic SQL %> Tag: Creating a VPN Connection Tag: 215478
  - 22
    - Rollover & Stick Effect I've got a table containg 2 records below that I'm trying to achieve a "Roll Over" and "Stick" effect with my HTML. When I test my functions to handle changing the rollover style of each row, it works execpt doesn't change the hover color of the 2nd row that's part of the record. The "MakeChangeActive" function below handles making the cells of the active or "clicked" record turn yellow using the OnClick event. The "MakeChangeOn" and "MakeChangeOff" events are fired using the OnMouseOver and OnMouseOff properties respectively and achieve to rollover effect. Can someone run my example and help me figure out how to force each record's 2nd row to work exactly like each record's 1st row and correctly display the rollover and "stick" effects? CODE: ******************* <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=windows-1252"> <title>Rollover & Stick</title> <style> td { color: #333333; font-family: verdana,arial,helvetica,sans-serif; font-size: 11px; } .DataTableCellEven { cursor:hand; padding-top: 1px; padding-bottom: 1px; padding-left: 1px; background-color: #EDF0F9; border-top: solid 1px #FFFFFF; border-bottom: solid 1px #C6CEDF; font-family: Microsoft Sans Serif, Arial; color: #3d3d8d; } .DataTableCellOdd { cursor:hand; padding-top: 1px; padding-bottom: 1px; padding-left: 1px; background-color: #E6EBF7; border-top: solid 1px #FFFFFF; border-bottom: solid 1px #C6CEDF; font-family: Microsoft Sans Serif, Arial; color: #3d3d8d; } </style> <script language=vbscript>  Sub MakeChangeActive(MyItem) If Len(LastTouched) > 0 Then IsActive = False LastTouchedPass = LastTouched LastTouched = "" Call MakeChangeOff(document.all(LastTouchedPass)) 'Exit Sub End If For i = 0 To MyItem.children.length-1 MyItem.children(i).style.backgroundColor="#FFFFDD" Next IsActive = True LastTouched = MyItem.ID End Sub --> </script> </head> <body> <br> <br> <table border="0" cellpadding="0" cellspacing="0" width="297"> <form name="form1" method="post" action="test.asp"><input type="hidden" name="ActiveItem" value=""> <tr id="Row_8" onclick="javascript:MakeChangeActive(this);var thisID=8;form1.ActiveItem.value=thisID;" onmouseover="javascript:MakeChangeOn(this);" onmouseout="javascript:MakeChangeOff(this);"> <td width=18 rowspan="2" align="left" valign="top" class="DataTableCellOdd">  </td> <td width=257 class="DataTableCellOdd"><b>Subject Header 1</b></td> <td width=22 class="DataTableCellOdd" valign="top">12/30/07</td> </tr> <tr> <td colspan="2" class="DataTableCellOdd" valign="top">This is the note content. Content 1</td> </tr> <tr id="Row_9" onclick="javascript:MakeChangeActive(this);var thisID=9;form1.ActiveItem.value=thisID;" onmouseover="javascript:MakeChangeOn(this);" onmouseout="javascript:MakeChangeOff(this);"> <td width=18 align="left" valign="top" class="DataTableCellEven" rowspan="2">  </td> <td width=257 class="DataTableCellEven"><b>Subject Header 2</b></td> <td width=22 class="DataTableCellEven" valign="top">12/30/07</td> </tr> <tr> <td width=262 colspan="2" class="DataTableCellEven" valign="top">This is the note content 2.</td> </tr> </form> </table> </body> </html> Tag: Creating a VPN Connection Tag: 215476
  - 23
    - Noob question :) Hi all, i've always used vbscript for "simple" things like logon scripts, the hardest thing i've done is a script to reset the local admin password of domain clients, but this evening a new question woke up my mind: vbscript can be used to design something "interactive"? i mean, can i create a script with different "ways" that the user can choose with.. i don't know.. a "select", a checkbox, even a simple text input.. Can i do something like that in a vbs file? Thanks and sorry for the stupid question, i'd like to read some document about that :) Tag: Creating a VPN Connection Tag: 215473
  - 24
    - Query wrong? I have the following code to create and run a query (abridged to shorten post): Set qWMISrv = GetObject("winmgmts:\\" & sComputer & "\root\cimv2") Set cFiles = qWMISrv.ExecQuery("Select * from CIM_Datafile Where Drive = 'C:' AND Path = '" & Dir1 & "' AND FileName Like '" & file_stamp & sqldate & "'", , 48) The query this creates is: Select * from CIM_Datafile Where Drive = 'C:' AND Path = 'toFile' AND FileName Like 'AZA_PINT_20080222' When I run this query nothing is returned, even though in C:\toFile I have a file named AZA_PINT_2008_022214.txt Does anyone see what is wrong with this statement? When this completes I try to run a 'for each file in cfiles' statement and it skips everying in the for each, which is where I believe nothing is returned. I've tried adding a messagebox to show me each file in cfiles but it just shows a blank msgbox. Tag: Creating a VPN Connection Tag: 215472
  - 25
    - How to use the Win32_PnPSignedDriverCIMDataFile Class I have the following script to list 3rd party drivers. strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colItems = objWMIService.ExecQuery("Select * from Win32_PnPSignedDriver Where Not Manufacturer Like '%Microsoft%' And Not Manufacturer Like '%Standard%' And DeviceClass <> 'SYSTEM' And DeviceClass <> 'PROCESSOR'") For Each objItem in colItems Wscript.Echo "Device Class: " & objItem.DeviceClass Wscript.Echo "Device ID: " & objItem.DeviceID Wscript.Echo "Device Name: " & objItem.DeviceName dtmWMIDate = objItem.DriverDate strReturn = WMIDateStringToDate(dtmWMIDate) Wscript.Echo "Driver Date: " & strReturn Wscript.Echo "Driver Version: " & objItem.DriverVersion Wscript.Echo "Is Signed: " & objItem.IsSigned Wscript.Echo "Manufacturer: " & objItem.Manufacturer Wscript.Echo "INF Name: " & objItem.InfName Wscript.Echo Dim colList, objDriver Set colList = objWMIService.ExecQuery("Associators of " _ & "{Win32_PnPSignedDriver.Name='" & objItem.Name & "'} " _ & "Where AssocClass=Win32_PnPSignedDriverCIMDataFile " _ & "ResultClass = CIM_DataFile" ) 'WScript.Echo "isArray: " & isArray(colList) 'WScript.Echo "isNull: " & isNull(colList) 'WScript.Echo "isEmpty: " & isEmpty(colList) For Each objDriver in colList 'WScript.Echo "Caption: " & objDriver.Name Next Next Function WMIDateStringToDate(dtmWMIDate) If Not IsNull(dtmWMIDate) Then WMIDateStringToDate = CDate(Mid(dtmWMIDate, 5, 2) & "/" & _ Mid(dtmWMIDate, 7, 2) & "/" & Left(dtmWMIDate, 4) _ & " " & Mid (dtmWMIDate, 9, 2) & ":" & _ Mid(dtmWMIDate, 11, 2) & ":" & Mid(dtmWMIDate,13, 2)) End If End Function -- How would one get the files associated with the device drivers? url:http://www.ureader.com/gp/1675-1.aspx Tag: Creating a VPN Connection Tag: 215467

Hi all,

I would like to be able to create a VBScript that when run would
automatically create the VPN Connection and then automatically launch
so that the user can then enter there username and password. Is this
possible. If so how can it be done.

Any help in this matter would be highly appreciated.

Thank you

Top

Re: Creating a VPN Connection by Stace

Stace
Mon Mar 03 03:54:42 CST 2008

<christopher_board@yahoo.co.uk> wrote in message
news:0fbe4554-1409-42b7-9c13-b37ff9f3fe9f@59g2000hsb.googlegroups.com...
> Hi all,
>
> I would like to be able to create a VBScript that when run would
> automatically create the VPN Connection and then automatically launch
> so that the user can then enter there username and password. Is this
> possible. If so how can it be done.
>
> Any help in this matter would be highly appreciated.
>
> Thank you

I have used the following script to do this but it isn't ideal as it relies
on the SendKeys method:

' script to create a VPN network connection
' for anyones use and create a desktop shortcut
Dim objShell: Set objShell = CreateObject("Wscript.Shell")

strHost="192.168.0.1" ' ip address of VPN endpoint
strCo="My VPN" ' friendly name for the VPN connection

MsgBox "Creating VPN connection. Please click OK to continue and then do not
use your mouse or keyboard until a message appears confirming that this
process has finished.",vbOKonly + vbInformation,"Add VPN Connection"

With objShell
.Run "Control ncpa.cpl"
wscript.sleep 2000
.AppActivate "Network Connections"
wscript.sleep 1000
.SendKeys "%FN"
wscript.sleep 1000
.SendKeys "%N"
wscript.sleep 1000
.SendKeys "%ON"
wscript.sleep 1000
.SendKeys "%VN"
wscript.sleep 1000
.SendKeys "%A" & strCo & "%N"
wscript.sleep 1000
.SendKeys "%DN"
wscript.sleep 1000
.SendKeys "%H" & strHost & "%N"
wscript.sleep 1000
.SendKeys "%AN"
wscript.sleep 1000
.SendKeys "%S"
wscript.sleep 1000
.SendKeys "{TAB}{TAB}~"
wscript.sleep 1000
.AppActivate "Connect " + strCo
.SendKeys "%{F4}"
End With

MsgBox "A VPN connection has been created and a shortcut placed on your
desktop. It is OK to use your mouse and keyboard again now.",vbOKonly +
vbInformation,"Add VPN Connection"

Set objShell=Nothing

HTH,
Stace.

Top