Script to automate SSID wireless

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
    - synthax error? Good afternoon, I have the following entry as part of an HTA: UserInputHTML = UserInputHTML & "<select size=" & chr(34) & "1" & chr(34) & " name=" & chr(34) & "GrpListing" & chr(34) & " onChange=" & chr(34) & "EnumGrpMbr(GrpListing.Value , strComputer)" & chr(34) & ">" & vbCrLf However, this generates an error "Cannot use parenthesis when calling a Sub". How can I fix this. I have tried different things but have not managed to get it functional. The problem to my knowledge is with the "EnumGrpMbr(GrpListing.Value , strComputer)" . When I have only 1 variable to transfer to my sub it works fine, but when I tried to send 2 it gives me this error. What is the proper synthax? Thank you in advance! Daniel Tag: Script to automate SSID wireless Tag: 182813
  - 2
    - Parse xml file in vbscript Hello all, I need to parse and xml file check whether a certain condition is true. In xml file, there is a commented out example, but still contains the text that I will be parsing. Any suggestions on: 1) How to parse an xml file in vbscript in general 2) How to bypass the comments in the xml file would be greatly appreciated! Thank you in advance! Tag: Script to automate SSID wireless Tag: 182809
  - 3
    - User Credentials Hello, Is there a way with vbscript to reinitialize a user's credentials. Basically, when the Admin changes a users permissions on the main server, the user must logout and the back in for the changes to take effect. Is there a way using a simple script that it can go and update the current user's credentials without requiring logging out? Thank you, Daniel Tag: Script to automate SSID wireless Tag: 182807
  - 4
    - Executing a vbs script from an asp.net page Thanks in advance. I know I have to impersonate a valid account and am doing so for folder creation but want to launch a vbs script with some parms to handle some permission changes (since that script already works). I do not know how to execute the script from the code behind. I am using the 1.1 framework and c#. Tag: Script to automate SSID wireless Tag: 182803
  - 5
    - Close all IE windows at once I frequently end up with so many Internet Explorers open, that it would be useful to have a means of closing all IE windows in one step. Anyone know of a windows script (or maybe a .bat file) that could do this? Thanks Larry Tag: Script to automate SSID wireless Tag: 182802
  - 6
    - FileSystemObject problems This is a query to do with classic ASP (written through vbscript). I am trying to run an asp page on my local Windows 2000 machine which creates a folder in the root directory of my site, but when I run the page it simply hangs when it gets to the FileSystemObject folder creation part (when I remove this line of code, the rest of the page works fine) The code is fine because it is working on the live server, so the problem is with the PERMISSIONS on my local Windows 2000 server. I've set ALL folders from wwwroot upwards with FULL rwx access for ALL users.. plus I've added the IUSR_(machinename) to this list with full access. I've did this through Explorer. I've run out of ideas on where else to set permissions... anyone got any ideas?? Thanks! Peter -- "I hear ma train a comin' ... hear freedom comin" Tag: Script to automate SSID wireless Tag: 182800
  - 7
    - time synchronizer i need a script to synchronize my pc clock, with a server in internet Tag: Script to automate SSID wireless Tag: 182799
  - 8
    - trying to achieve automation, need assistance I have created a deployment script to automate desktop deployment. I have enabled autologon using the local administrator account... But I am trying to figure out the best way to get the script to run at startup... Now, I know vbscript has a GPO interface but I have no idea how I would disable the deployment.vbs script from running at logon. I could put the script in the startup folder, but how would I remove it automatically? I couldn't delete the script while the script is running could i? Any thoughts? Tag: Script to automate SSID wireless Tag: 182798
  - 9
    - DateAdd Bug? Small VBS to demonstrate an issue I have with the VBS DateAdd function: msgbox CDate("23/10/2005 22:15:00") = DateAdd("h", 22, DateAdd("n", 15, CDate("23/10/2005"))) This pops up a message box with False in it. Any suggestion as to why? This returns true: msgbox CDate("23/10/2005 22:15:00") = CDate(CStr(DateAdd("h", 22, DateAdd("n", 15, CDate("23/10/2005"))) (UK Locale!) Tag: Script to automate SSID wireless Tag: 182793
  - 10
    - 70 permission denied in upload file I have a web application in asp that have to upload files. If I put the upload directory into C:\ directory I have no problem, but if I put it into the C:\InetPub\wwwroot directory it give me the error in the subject. I've set all the permissions on the upload directory (read, write, execute, ecc.) and also on the wwwroot directory, but evidently there is some permission that stop the writing of the uploaded file. I've also attempt to share the directory both as web share that as net share, but nothing to do. I have Win XP with IIS 5.1. Someone can help me? Thanks Tonio Tanzi Tag: Script to automate SSID wireless Tag: 182792
  - 11
    - sending an email of log file that is created in new folder each time Hello, I am new to this forum and to scripting, and was hoping I could find some help. I want to email off a log file that is created each week. It puts the report into the following path (and the html log file name is always random): c:\Nov2005\Week1\log0011029273.html The month and week folders are created new each week, so I cant use a static file location. I have the following script that works fine for static files: -------------------------------------------- Set objMessage = CreateObject("CDO.Message") objMessage.Subject = "Example CDO Message" objMessage.Sender = "sc@co.com" objMessage.To = "sc@co.com" objMessage.TextBody = "This is some sample message text." objMessage.AddAttachment "c:\Nov2005\Week1\log0011029273.html" '==This section provides the configuration information for the remote SMTP server. '==Normally you will only change the server name or IP. objMessage.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'Name or IP of Remote SMTP Server objMessage.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.co.com" 'Server port (typically 25) objMessage.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 objMessage.Configuration.Fields.Update '==End remote SMTP server configuration section== objMessage.Send ----------------------------------------------------------- ..but every time this report is run, it creates a new path to the new report file...so this has to be the current C:\month\week\randomlogfilename.html Any help in constructing this would be much appreciated. -- sc48226 ------------------------------------------------------------------------ Posted via http://www.codecomments.com ------------------------------------------------------------------------ Tag: Script to automate SSID wireless Tag: 182785
  - 12
    - error connecting to Active Directory via LDAP from ASP/VBScript pg I'm rather new to the world of VBScript/ASP. I'm a *nix-head and have been programming in PHP for years. I'm rather frustrated because I do not know how to go about trouble-shooting an error I'm receiving in a script I'm trying to implement to authenticate a user against AD. The script is as follows (found it in these usenet groups): <%@ Language=VBScript %> <% Dim username, password, ldapserver, ldap_path ' Construct the FQDN ldap_path = "LDAP://cn=##,DC=ourcollege,DC=edu" ' Get the ldap server name into local variable by replacing the special ' charcter with the username ldapserver = Replace(ldap_path,"##",Request.Form("username")) Response.Write("<b>username:</b> " & Request.Form("username") & "<br />") Response.Write("<b>ldapserver:</b> " & ldapserver & "<br />") ' Parse the username from the ldap path username = Mid(ldapserver, InStr(8, ldapserver, "/") + 1) Response.Write("<b>username:</b> " & username & "<br />") ' Get the password Password = Request.Form("Password") ' Connect to the LDAP Directory Set dso = GetObject("LDAP:") ' Validate the User Name and Password Set objUser = dso.OpenDSObject(ldapserver, username, password, 0) 'Response.Write("<b>lobjuser.class:</b> " & lobjUser.class & "<br />") 'Response.Write("<b>err.description:</b> " & err.description & "<br />") ' Exit with error - Incorrect username & password - return to login.asp page 'If Err.number<>0 Then ' Response.Write "<b>Result:</b> Authentication Failure.<br />" ' Set lobjUser = nothing ' Set dso = nothing 'Else ' Response.Write "<b>Result:</b> Success.<br />" 'End If 'To get information from the LDAP directory you need to know the "attributes" 'available and then you can reference them. Ex: 'strUserName = lobjUser.Get("cn")> %> The above code generates the very unhelpful error: error '8007054b' /ldap_auth_02.asp, line 29 Is there a system log which will give me more information on the error which occured? Is there something I can response.write to my browser which might give me a more useful error message? I recently put together a PHP script to connect to AD via LDAP. I had to bind to AD using a username (RDN?) and password before I could perform a query. (I apologize if I'm not using the appropriate terminology.) I then passed AD our Base DN, filter, and search terms. I can't find any documentation on this. My ultimate goal is to authenticate a user with their AD credentials. Tag: Script to automate SSID wireless Tag: 182783
  - 13
    - SCSI Adapter Port Number Hi, Anyone know how to get the SCSI port number of a SCSI host adapter using vbscript? I can get the SCSIPort property of a disk object using WMI but there doesn't seem to be a port number property for the HBA. Please let me know if you would like more information, Much appreciated, Joe Marriott Tag: Script to automate SSID wireless Tag: 182782
  - 14
    - HTA WBemScripting.SWbemSink Problem What am I missing? I keep getting an error on line: Set refSink = CreateObject("WBemScripting.SWbemSink","EVENTSINK_") *********************************** <html> <head> <title>Service Monitor</title> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN""http://www.w3.org/TR/html4/loose.dtd"> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <HTA:APPLICATION ID = "XApp" APPLICATIONNAME = "Service Monitor" BORDER = "thick" CAPTION = "yes" ICON = "" SHOWINTASKBAR = "yes" SINGLEINSTANCE = "yes" SYSMENU = "yes" WINDOWSTATE = "normal" SCROLL = "no" SCROLLFLAT = "yes" VERSION = "1.0" INNERBORDER = "no" SELECTION = "no" MAXIMIZEBUTTON = "yes" MINIMIZEBUTTON = "yes" NAVIGABLE = "yes" CONTEXTMENU = "yes" BORDERSTYLE = "normal"> <OBJECT ID="WindowsShell" CLASSID="clsid:13709620-C279-11CE-A49E-444553540000"></Object> <OBJECT ID="refSink" CLASSID="CLSID:75718C9A-F029-11d1-A1AC-00C04FB6C223"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Set WshShell = CreateObject("WScript.Shell") Set WSHFso = CreateObject("Scripting.FileSystemObject") Window.ResizeTo 600, 650 Window.MoveTo 5, 5 Dim refWMI Dim refSink Dim strQuery Dim strComputer Dim strServiceName Dim iCheckEvery Sub Test() strComputer = "." 'Server to check iCheckEvery = 30 'Seconds between checks 'connect to WMI and create a sink object Set refWMI = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set refSink = CreateObject("WBemScripting.SWbemSink","EVENTSINK_") 'execute an async notification query and block with a msgbox strQuery = "SELECT * FROM __instancemodificationevent " & _ "WITHIN " & iCheckEvery & " WHERE TargetInstance ISA 'Win32_Service'" refWMI.ExecNotificationQueryAsync refSink, strQuery MsgBox("Now blocked and waiting...") 'cancel event notification refSink.Cancel Set refSink = Nothing Set refWMI = Nothing End Sub 'callback for Event Notification Sub EVENTSINK_OnObjectReady(refEvent,refContext) Msgbox(refEvent.TargetInstance.State) End Sub </script> </head> <body> <form name="form1"> <input name="bTest"type="button" value="Open" onClick="Test"> </form> </body> Tag: Script to automate SSID wireless Tag: 182781
  - 15
    - Hide/Show HTML Elements Hi, I would like to show a status label above all other HTML elements when a certain function is fired. (for example: "Calculating..." I tried playing with .zIndex, .Display="none" and .Visible properties but none of the seem to be working for [web forms label] or Iframe (I use IFRAME to show label above ActiveX control) What is the easiest way for me to show hide information/status labels on a web form? document.getElementById("lblInfo").???? Thank you, Sergey Tag: Script to automate SSID wireless Tag: 182778
  - 16
    - Server.CreateObject Excel permissions Hello All I am trying to port some ASP code over to a windows 2003 server. It works fine on my "dev" windows 2000 server. I get this error on the 2003 server: Error Type: Server object, ASP 0178 (0x80070005) The call to Server.CreateObject failed while checking permissions. Access is denied to this object. Here is the line of code associated with the error: set objExcel = Server.CreateObject("Excel.Application") I have Excel 2000 installed on both machines. From what I can tell I have set permissions the same on both machines. I set and checked the permissions on the actually Excel.exe file is that the correct file that CreateObject uses? What else should I be checking/setting permissions on so that this will work on the 2003 server? Thanks in advance. Adam Tag: Script to automate SSID wireless Tag: 182776
  - 17
    - VBS to .net I just started working with .net and I'm wanting to know how hard it is to convert a .vbs to .net? The scirpt is a basic script that is 2 msgboxes and requires input from the user on both promts then it copies the results to the clipboard. Tag: Script to automate SSID wireless Tag: 182775
  - 18
    - Query for Patches Applied I need a query that will run and send to text all of the patches applied to a server or workstation. I have one now, however, it doesn't give me the full history like when you click on history on the windows update site. And it does not tell me that XP SP2 was installed, when it actually was. I can share the code to my current script if needed. Thanks! Tag: Script to automate SSID wireless Tag: 182774
  - 19
    - check membershipt to group using input boxes. Isn't binding corre strFilePath = "c:\test.txt" errorlog = "c:\error.txt" Set objFSO = CreateObject("Scripting.FileSystemObject") Set objtextFile = objFSO.OpenTextFile (strFilePath) Set objFile = objFSO.CreateTextFile(errorlog, True) ' On Error Resume Next ' moved this out of the Do loop objgroup = inputbox("Type group here") objuser = inputbox("type local user here") Do Until objtextFile.AtEndOfStream Set grp = GetObject("WinNT://" & strcomputer & "/" & objgroup & ",group") Set usr = GetObject("WinNT://" & strcomputer & "/" & objuser & ",user") strComputer = Trim(objtextFile.ReadLine) if len(strComputer) <> 0 then If (grp.IsMember(usr.name)) Then objFile.Writeline now & " user " &objuser & " is member of " & objgroup & " on " & strComputer Else objFile.Writeline now & " user " & objuser & " isn't member of " & objgroup & " on " & strComputer End If err.clear end if loop objFile.Close objTextFile.close result = objfso.OpenTextFile(errorlog, 1).ReadAll wscript.echo result Tag: Script to automate SSID wireless Tag: 182772
  - 20
    - Startup script, alternative to %LogonServer%? I wish to copy a file from the Netlogon share within a startup script, however, I cannot use the %LogonServer% variable in a startup script (not logon script). Is there an equivilant variable? I could specify a specific DC, but as we have a number of sites I would prefer using the DC server that it is running the script from. Windows Server 2003 SP1 Windows XP Professional SP2 Tag: Script to automate SSID wireless Tag: 182759
  - 21
    - Copy file Hi all I have a script that maps a network share and then copyies a file from this share down to the desktop. Instead of copying to the desktop I would like to copy to mapped share. (G:\Database) This is the script I have: Set objNetwork = WScript.CreateObject("WScript.Network") objNetwork.MapNetworkDrive "x:", "\\Server1\Share1" Set oShell = CreateObject("WScript.Shell") Set oFSO = CreateObject("scripting.FileSystemObject") sAllUsersDesktop = oShell.SpecialFolders("AllUsersDesktop") oFSO.CopyFile "X:\DB\DB1", sAllUsersDesktop & "\", True I would like to chage it so instead of copying to the Desktop, it copies to G:\Database Thanks Gerry Tag: Script to automate SSID wireless Tag: 182751
  - 22
    - exe file hi, is it possible to convert .vbs file into an .exe file? Tag: Script to automate SSID wireless Tag: 182747
  - 23
    - net send message alternatives? Hello, I need a script to send real-time notifications to users. I wanted to wrap a vbScript around "net send [user] [message]" but that may not be possible in our environment. Other than a 3rd party tool, is this possible? Troy Tag: Script to automate SSID wireless Tag: 182735
  - 24
    - Character match I want to match character sets to last names of users. Can someone please help me with the correct syntax: I.e. if lastName = [A-Bea] then 'I want this to match names beginning with A to last names that start with Bea. ... elseif lastName = [Beb-M] 'Names that begin with Beb all the way to names that begin with M ... else 'All other last names. ... Thanks. Tag: Script to automate SSID wireless Tag: 182731
  - 25
    - TextFile Replace I am looking for a script that I can open a text file and search for a string and replace it with another string. set wf1 = fso.OpenTextFile("c:\HOME\computers.txt", ForReading, true) Do While Not wf1.AtEndOfStream Set RegX = NEW RegExp MyString = wf1.readline SearchPattern = "$Group Name$" ReplaceString = gname RegX.Pattern = SearchPattern RegX.Global = True ReplacedText = RegX.Replace(MyString, ReplaceString) loop wf1.close This doesn't work above, I don't receive any errors, however, it doesn't change the text to gName (is another variable that is set earlier in the code). Any assistance that can be provided is much appreciated. Tag: Script to automate SSID wireless Tag: 182730
- Next
  - 1
    - Adding Users to local computers I need to add users to a local computer in our domain. We have a password complexity policy stating that the password must be 5 characters. When I run the following bit of code I get an error which is: -2147022651 The password does not meet the password policy requirements. Check the minimum password length, password complexity and password history requirements. If I run this same code on a computer that doesn't have password complexity requirements it adds the user fine. sName = "Testserver" sUsername = "Administrator" sUserPassword = "*********" sUser = "PatchUser" sNewAccountPassword = "!a2b3c4z" Set objDSO = GetObject("WinNT:") Set objComputer = objDSO.OpenDSObject("WinNT://" & sName, sUserName, sUserPassword, 3) Set objUser = objComputer.Create("user", sUser) objUser.Description = "New Test Account Created on " & Now objUser.SetPassword sNewAccountPassword 'Added to try to set password prior to writing to local account db. objUser.SetInfo objUser.SetPassword sNewAccountPassword objUser.SetInfo Tag: Script to automate SSID wireless Tag: 182728
  - 2
    - Empty Recycle Bin I am trying to find a VBScript that will empty the recycle bin on Windows 2000 Servers and 2003 Servers. A friend found the following script but when I run it I get an "expected end of statement" error. Does anyone have a simple script that I can use or tell me what is run with this: Private Const SHERB_NOCONFIRMATION = &H1 Private Const SHERB_NOPROGRESSUI = &H2 Private Const SHERB_NOSOUND = &H4 Private Declare Function SHEmptyRecycleBin Lib "shell32.dll" _ Alias "SHEmptyRecycleBinA" (ByVal hwnd As Long, _ ByVal pszRootPath As String, ByVal dwFlags As Long) As Long Private Sub EmptyRecycleBin() Call SHEmptyRecycleBin(Me.hwnd, vbNullString, _ SHERB_NOCONFIRMATION Or _ SHERB_NOPROGRESSUI Or _ SHERB_NOSOUND) End Sub Thank You Tag: Script to automate SSID wireless Tag: 182726
  - 3
    - split recordset in array Hi I am trying to split my recordset and found bit problem, hope someone can help me out below is my code: data = "help desk,student coordinator,pc support" msgbox data varArr = Split(data, ",") For group = LBound(varArr) To UBound(varArr) msgbox group Next I want them to return like Help desk student coordinator pc support so far, it return 0 1 2 Any helps thank in advance Wei Tag: Script to automate SSID wireless Tag: 182723
  - 4
    - window.setInterval with negative delay time - Windows XP SP1 & SP2 Hello all, I have noticed (but haven't really proven) that setting the delay time in the window.setInterval function to -1 (or any negative value) has different effect on client machines with Windows XP SP1 versus SP2. window.setInterval( "AsyncUpdate();", -1 ); For Windows XP with SP2, it is working as expected (i.e. the timer is treated as if it's turned OFF). However with SP1, I suspected that the function behaves oppositely, i.e. the function within the timer gets called continuously and indefinitely, creating an endless loop and an extremely heavy load on the CPU. If anybody has experienced this same problem, please contribute to this thread. Thank you and happy programming! Lyndsey Tag: Script to automate SSID wireless Tag: 182722
  - 5
    - image tag pointing to an ASP page (not working) Hi, i have 2 IIS Servers: IIS1 and IIS2 IIS1 hosts a page called http://www.mydomain.com/page1.asp IIS2 hosts an ASP page called http://www.mydomain2.com/page2.asp On the page2.asp on IIS2, the code basically retrieves the ID value shown in the example below. WHen page1 loads, it has a parameter called ID (http://www.mydomain.com/page1.asp?ID=1). Page1.asp on IIS1 has an image tag that points the src attribute to http://www.mydomain2.com/page2.asp?ID=1. I can't seem to retrive the values on page2 on IIS2. any ideas? please advise. rafael Tag: Script to automate SSID wireless Tag: 182720
  - 6
    - Checking for a Folder on a remote computer I'm new to scripting but here goes. I have check for a folder on a remote computer and if it's not there create it. I would like it to report back to me if it is there are not. The script I've got so far works but the reporting doesn't. Can anyone give me a hand? strComputer = "computer" strNameSpace = "root/cimv2" strUser = "domain\user" strPwd = "password" strDirPath = "C:\itworks" Set objLocator = CreateObject("WbemScripting.SWbemLocator") Set objService = objLocator.ConnectServer(strComputer, strNamespace,strUser,strPwd) Set objFSO = CreateObject("Scripting.FileSystemObject") If objFSO.FolderExists(strDirPath) Then Wscript.Echo "The folder exists." Else Set objWMIService = GetObject _ ("winmgmts:\\" & strComputer & "\root\cimv2:Win32_Process") errReturn = objWMIService.Create _ ("cmd.exe /c md "& strDirPath, Null, Null, intProcessID) Wscript.Echo "The folder was created." End If Mark P.S. Later I would like to have the script copy files from a server to the remote computer. Any ideas would be a great help. Tag: Script to automate SSID wireless Tag: 182716
  - 7
    - how to create computer accounts is it possible to script the creation of computer accounts in a given domain when the machine running the script is not apart of a domain? Tag: Script to automate SSID wireless Tag: 182713
  - 8
    - database problems Hi all I have a sql database with some col headings like sxtnmm_proj , slide_proj which i asign values to like 0 or 1. What i want to do is is create a record set using ASP and write out the col headings where the value is 1, but instead of writting out for instance slide_proj you would get the word slide projector, i know these would have to stored in an array some how. Can anybody shed any light on this query thanks in advance Dave Tag: Script to automate SSID wireless Tag: 182711
  - 9
    - Writing a login script........ Our co. is moving from Novell to AD and currently in the process of planning. Any PRO's out there have tips on the most efficient way to write a login script......... I've looked around and seem some that use the "IsMember" to check group membership, but that'll involve hardcoding the drive mapping for that group into the script. Any other suggested ways of writing a login script that will have less maintenance if future changes in mappings are required since our co. has a few thousand users I'd expect there be several drive mappings for each users. Or any good sites out there that have sample logon scripts Cheeers Momo Tag: Script to automate SSID wireless Tag: 182709
  - 10
    - Help me edit this remote registry script This script goes remote to all computers found in c:\computerlist.txt and checks memoryconfiguration and exports it to CompInfoLog.txt. Instead of memoryconfig, I would like to check the registry for a specific stringvalue, and export that value to a txt file, Script: Const ForReading = 1 Const OpenAsASCII = 0 Const FailIfNotExist = 0 Const OverwriteIfExist = -1 strInFile = "C:\ComputerList.txt" strOutFile = "C:\CompInfoLog.txt" Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.OpenTextFile(strInFile, _ ForReading, FailIfNotExist, OpenAsASCII) Set objOutputFile = objFSO.CreateTextFile _ (strOutFile, OverwriteIfExist, OpenAsASCII) objOutputFile.WriteLine "Note: all memory amounts are in kilobytes" & vbCrLf Do Until objFile.AtEndOfStream strComputer = Trim(objFile.ReadLine) If strComputer <> "" Then objOutputFile.WriteLine String(40,"=") & vbCrLf If IsConnectible(strComputer, 1, "") Then On Error Resume Next Set objWMI = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer _ & "\root\cimv2") Set colCS = objWMI.ExecQuery("Select Model from Win32_ComputerSystem") For Each objCSItem In colCS Set objCS = objCSItem :Exit For Next Set colOSSet = objWMI.ExecQuery("Select * from Win32_OperatingSystem") For Each objOS In colOSSet Set objOS = objOS :Exit For Next If Err.Number = 0 Then s = "" s = s & "Computer name: " & strComputer & vbCrLf s = s & "Computer model: " & objCS.Model & vbCrLf s = s & "FreePhysicalMemory = " & objOS.FreePhysicalMemory & vbCrLf s = s & "FreeSpaceInPagingFiles = " & objOS.FreeSpaceInPagingFiles _ & vbCrLf s = s & "FreeVirtualMemory = " & objOS.FreeVirtualMemory & vbCrLf s = s & "TotalVirtualMemorySize = " & objOS.TotalVirtualMemorySize _ & vbCrLf s = s & "TotalVisibleMemorySize = " & objOS.TotalVisibleMemorySize _ & vbCrLf objOutputFile.WriteLine s Else objOutputFile.WriteLine strComputer & " failed WMI connection." _ & vbCrLf End If Else objOutputFile.WriteLine strComputer & " did not reply on ping." _ & vbCrLf End If End If Loop objFile.Close objOutputFile.Close MsgBox "Done!", vbInformation + vbSystemModal, "Get computer info" Function IsConnectible(sHost, iPings, iTO) ' Returns True or False based on the output from ping.exe ' ' Author: Alex Angelopoulos/Torgeir Bakken ' Works an "all" WSH versions ' sHost is a hostname or IP ' iPings is number of ping attempts ' iTO is timeout in milliseconds ' if values are set to "", then defaults below used Const OpenAsASCII = 0 Const FailIfNotExist = 0 Const ForReading = 1 Dim oShell, oFSO, sTempFile, fFile If iPings = "" Then iPings = 2 If iTO = "" Then iTO = 750 Set oShell = CreateObject("WScript.Shell") Set oFSO = CreateObject("Scripting.FileSystemObject") sTempFile = oFSO.GetSpecialFolder(2).ShortPath & "\" & oFSO.GetTempName oShell.Run "%comspec% /c ping.exe -n " & iPings & " -w " & iTO _ & " " & sHost & ">" & sTempFile, 0 , True Set fFile = oFSO.OpenTextFile(sTempFile, ForReading, _ FailIfNotExist, OpenAsASCII) sResults = fFile.ReadAll fFile.Close oFSO.DeleteFile(sTempFile) IsConnectible = CBool(InStr(sResults, "TTL=")) End Function '--------------------8<---------------------- Tag: Script to automate SSID wireless Tag: 182707
  - 11
    - include files Hi again :) I am doing a web application and I have a little problem. In Javascript I have something like <script languaje="javascript" src="my_file.js"> </script> But it doesn't work with vbscript :( How I can do it? Thanks you very much from Mallorca Fernando Tag: Script to automate SSID wireless Tag: 182704
  - 12
    - output redirection doesn't work I would like to filter the output of a command-line program (like "telnet") to change parts of the output (replace certain strings with others). To write routines to recognize the strings I want to replace is not a problem, but I could not manage to redirect the output in a way, so I can filter it. The best redirection possibility I could find is the following for filtering the output of a "normal" command (in this case the "ver" command): ver | cscript.exe "c:\my path\muscript.vbs" '=== myscript.vbs === set stdin = wscript.stdin for each line in split(stdin.readall,vbcrlf) wscript.echo "==>", line next It was published by Michael Harris in http://www.ureader.com/message/483292. aspx, and this works nice with "normal" commands, but when I try to do it with the telnet-command, I just get the next line of the command-interpreter - no error-message, nothing, it just doesn't start telnet. I tried: telnet 192.168.0.1 | cscript.exe "c:\my path\myscript.vbs" ==> but it doesn't do the telnet Does anyone know, why the telnet-program is not being started, or how I can filter the output of a telnet-session? I am using the standard telnet-client of Windows XP. Thanks in advance, Mike Tag: Script to automate SSID wireless Tag: 182701
  - 13
    - Problem in open a new window in an asp page Hi to all, I have to do an asp page with a form. When an user fill the data in the form and press a submit button is executed a validation of the data in the same page and, if they are correct, is showed a PDF document in a separated window. I've done it in this manner: <%@Language=VBScript%> <% : : Validation instructions : : if validation is ok then checkok=true %> <HTML> <HEAD> <script type="text/javascript"> function winop(url) { window.open(url,"","width=600,height=600"); } //--> </script> </HEAD> <% if checkok then %> <body onload="winop('showpdf.htm');"> <% else %> <body> <% end if %> <form action="url of this page" method="post"> a sequence of input text plus a submit button </form> </body> </HTML> This solution don't work in IE6.0 (popup block disabled), but work in other browser (Mozilla, Firefox, Opera). The problem is in the onload clause of body tag that don't open the new window. In fact if I call the winop function in the onclick event of the button it go without problem (but in this case the validation of data is not performed). Someone knows a better solution providing that I prefer to avoid the previous one because it don't go if the popup block is activated. Thanks to all. Tonio Tanzi Tag: Script to automate SSID wireless Tag: 182700
  - 14
    - POST Method form Dear Experts, I wrote a program to send a HTML form to be emailed to users. Users will input the answer into the form and click Submit button. I am using the POST method and calling another asp page. Here is the source code of the form: <HTML><BODY><FORM Name='frmReminderReport' METHOD='Post' action='c:\inetpub\wwwroot\teknion\leave_system\ReminderReport.asp'><TABLE Border=1><TR><TD>Supervisor</TD><TD>30852</TD></TR><TR><TD>LeaveID</TD><TD>EmployeeID</TD><TD>Name</TD><TD>StartD ate</TD><TD>EndDate</TD><TD>Period</TD><TD>Total Day(s)</TD><TD>Accept</TD><TD>Reject</TD><TR><TR><TD><INPUT Type=text name=leaveid1 value=2050></INPUT></TD><TD>30217</TD><TD>SUTHAGAR A/L SEGARAN</TD><TD> 31-Oct-05</TD><TD>02-Nov-05</TD><TD>FULL DAY</TD><TD>2</TD><TD><INPUT Type=Checkbox name=accept1 ></INPUT></TD><TD><INPUT Type=Checkbox name=reject1 ></INPUT></TD></TR><input type='hidden' name='Counter' value=1></input></TABLE><input value='Submit' type='submit' id='submit' name='submit'></input></FORM></BODY></HTML> and below is the ReminderReport.asp code: <%@ LANGUAGE="VBSCRIPT" %> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=windows-1252"> <title>Reminder Report</title> </head> <body> <% Response.Write "The Counter is " & Request.Form('Counter') %> </body> </html> Once I click on the submit button, the ReminderReport.asp page does open but the output does not show on the page. May I know where is the problem of my coding?? Please advise. Many thanks in advance. Tag: Script to automate SSID wireless Tag: 182699
  - 15
    - problem running wmi query... Hi all, I need to get all errors from application and system categories of event viewer but I see that the query below also traps warning events. Any suggestions ? Thanks and Regards. strWQL = "SELECT * FROM __InstanceCreationEvent WITHIN 15 WHERE TargetInstance ISA 'Win32_NTLogEvent'" & _ "AND TargetInstance.Type = 'Error' AND TargetInstance.LogFile = 'Application' OR targetinstance.logfile='system'" Tag: Script to automate SSID wireless Tag: 182689
  - 16
    - Drive Mapping, No Error, but No Mapping Happens Title says it; I get no error, but existing mappings don't go away, and new mappings don't happen. Any help is appreciated. 'start of script Option Explicit 'FIRST, make sure we are logged in wscript.sleep 100 '1.10th of a second 'NEXT remove existing mappings dim objNetRemv, strDriveLetter, colDrives On Error Resume Next Set objNetRemv = CreateObject("Wscript.Network") Set colDrives = objNetRemv.EnumNetworkDrives For i = 0 to colDrives.Count-1 Step 2 objNetRemv.RemoveNetworkDrive colDrives.Item(i),0,TRUE Next 'NOW map the drives Dim strGroup Dim objNetwork Dim currentuser Dim objUser Const DTAdmins = "cn=SG-DeskTops-Administrators" Const Accounting = "cn=SG-DPT-ACCOUINTING" Const Engineering = "cn=SG-Dpt-Engineering" Const HR = "cn=SG-Dpt-Human_Resources" Const MFG = "cn=SG-Dpt-Manufactoring" Const Marketing = "cn=SG-Dpt-Marketing" Const Purchasing = "cn=SG-Dpt-Purchasing" Const QC = "cn=SG-Dpt-Quality_Control" Const Sales = "cn=SG-Dpt-Sales" Const EA ="cn=enterprise admins" 'Const Managers_Group = "cn=managers" 'Const What_ever_you_Like = "cn=any_lower_case_group" 'Const Users_Group = "cn=users" 'Const Administrators_Group = "cn=administrators" Set objNetwork = CreateObject("WScript.Network") Set objUser = CreateObject("ADSystemInfo") Set CurrentUser = GetObject("LDAP://" & objUser.UserName) strGroup = LCase(Join(CurrentUser.MemberOf)) WScript.Echo "all defined" WScript.Echo strGroup If InStr(strGroup, DTAdmins) Then WScript.Echo "You are logged into the Desktop Desktop Administrators'Group " objNetwork.MapNetworkDrive "E:", "\\01SERVER\SYS\APPS ",0,TRUE objNetwork.MapNetworkDrive "F:", "\\01SERVER\SYS",0,TRUE objNetwork.MapNetworkDrive "G:", "\\01SERVER\SYS\GROUP\ACCT",0,TRUE objNetwork.MapNetworkDrive "H:", "\\01SERVER\SYS\GROUP",0,TRUE objNetwork.MapNetworkDrive "L:", "\\01SERVER\VOL1",0,TRUE ' objNetwork.MapNetworkDrive "I:", "\\01SERVER\SYS\USER\%USERNAME%",0,TRUE objNetwork.MapNetworkDrive "Q:", "\\ITTIND\.018035639281F1_SYS.CONOFLOW\GROUP\MFG\QA",0,TRUE objNetwork.MapNetworkDrive "X:", "\\01SERVER\SYS\PBULIC\APPS",0,TRUE objNetwrk.MapNetworkDrive "Y:", "\\01SERVER\SYS\PUBLIC\NLS",0,TRUE objNetwork.MapNetworkDrive "Z:", "\\01SERVER\SYS\PUBLIC",0,TRUE 'objNetwork.MapNetworkDrive "v:", "\\olysbs\manager",0,TRUE 'objNetwork.MapNetworkDrive "w:", "\\olysbs\accounting",0,TRUE 'objNetwork.MapNetworkDrive "x:", "\\server\sprink slick",0,TRUE 'objNetwork.MapNetworkDrive "y:", "\\server\public",0,TRUE 'objNetwork.MapNetworkDrive "z:", "\\olysbs\Users\" _ '& objNetwork.UserName,0,TRUE 'COME BACK AND UNCOMMENT TO CREATE PRINTERS 'Dim net 'Set net = CreateObject("WScript.Network") 'net.AddWindowsPrinterConnection "\\olysbs\chris", "Chris's Printer" 'net.AddWindowsPrinterConnection "\\olysbs\frank", "Frank's Printer" 'net.AddWindowsPrinterConnection "\\olysbs\shop", "Shop Printer" 'net.AddWindowsPrinterConnection "\\olysbs\11x17", "11x17 Printer" 'net.AddWindowsPrinterConnection "\\olysbs\invoice1", "Main Invoice Printer" 'net.AddWindowsPrinterConnection "\\olysbs\invoice2", "BU Invoice Printer" 'net.AddWindowsPrinterConnection "\\olysbs\office", "Main Office Printer" 'net.AddWindowsPrinterConnection "\\server\design east", "Design East" 'net.AddWindowsPrinterConnection "\\server\design east", "Design West" 'net.AddWindowsPrinterConnection "\\server\lee", "Lee's Printer" 'Removed the below line because if I log into another users workstation it set this as default printer for them if one is not set 'net.SetDefaultPrinter "\\olysbs\chris" End If WScript.Echo "DTAdmins mapping done" If InStr(strGroup, Accounting) Then WScript.Echo " You are logged into the Accounting Group ",0,TRUE objNetwork.MapNetworkDrive "E:", "\\01SERVER\SYS\APPS ",0,TRUE objNetwork.MapNetworkDrive "F:", "\\01SERVER\SYS",0,TRUE objNetwork.MapNetworkDrive "G:", "\\01SERVER\SYS\GROUP\ACCT",0,TRUE objNetwork.MapNetworkDrive "L:", "\\01SERVER\VOL1",0,TRUE objNetwork.MapNetworkDrive "O:", "\\01SERVER\SYS\GROUP\ACCT",0,TRUE 'COME BACK AND FIND SOURCE objNetwork.MapNetworkDrive "W:", "\\01SERVER\SYS",0,TRUE objNetwork.MapNetworkDrive "X:", "\\01SERVER\SYS\PBULIC\APPS",0,TRUE objNetwork.MapNetworkDrive "Y:", "\\01SERVER\SYS\PUBLIC\NLS",0,TRUE objNetwork.MapNetworkDrive "Z:", "\\01SERVER\SYS\PUBLIC",0,TRUE 'COME BACK AND UNCOMMENT TO CREATE PRINTERS 'Dim net 'Set net = CreateObject("WScript.Network") 'net.AddWindowsPrinterConnection "\\olysbs\chris", "Chris's Printer" 'net.AddWindowsPrinterConnection "\\olysbs\frank", "Frank's Printer" 'net.AddWindowsPrinterConnection "\\olysbs\shop", "Shop Printer" 'net.AddWindowsPrinterConnection "\\olysbs\11x17", "11x17 Printer" 'net.AddWindowsPrinterConnection "\\olysbs\invoice1", "Main Invoice Printer" 'net.AddWindowsPrinterConnection "\\olysbs\invoice2", "BU Invoice Printer" 'net.AddWindowsPrinterConnection "\\olysbs\office", "Main Office Printer" 'net.AddWindowsPrinterConnection "\\server\design east", "Design East" 'net.AddWindowsPrinterConnection "\\server\design east", "Design West" 'net.AddWindowsPrinterConnection "\\server\lee", "Lee's Printer" 'Removed the below line because if I log into another users workstation it set this as 'default printer for them if one is not set 'net.SetDefaultPrinter "\\olysbs\chris" End If WScript.Echo "Accounting mapping done" If InStr(strGroup, Engineering) Then WScript.Echo " You are logged into the Engineering Group " objNetwork.MapNetworkDrive "E:", "\\01SERVER\SYS\APPS ",0,TRUE objNetwork.MapNetworkDrive "F:", "\\01SERVER\SYS",0,TRUE objNetwork.MapNetworkDrive "G:", "\\01SERVER\SYS\GROUP\ENG",0,TRUE objNetwork.MapNetworkDrive "L:", "\\01SERVER\VOL1",0,TRUE objNetwork.MapNetworkDrive "X:", "\\01SERVER\SYS\PUBLIC\APPS",0,TRUE objNetwork.MapNetworkDrive "Y:", "\\01SERVER\SYS\PUBLIC\NLS",0,TRUE objNetwork.MapNetworkDrive "Z:", "\\01SERVER\SYS\PUBLIC",0,TRUE 'COME BACK AND UNCOMMENT TO CREATE PRINTERS 'Dim net 'Set net = CreateObject("WScript.Network") 'net.AddWindowsPrinterConnection "\\olysbs\chris", "Chris's Printer",0,TRUE 'net.AddWindowsPrinterConnection "\\olysbs\frank", "Frank's Printer",0,TRUE 'net.AddWindowsPrinterConnection "\\olysbs\shop", "Shop Printer",0,TRUE 'net.AddWindowsPrinterConnection "\\olysbs\11x17", "11x17 Printer",0,TRUE 'net.AddWindowsPrinterConnection "\\olysbs\invoice1", "Main Invoice Printer",0,TRUE 'net.AddWindowsPrinterConnection "\\olysbs\invoice2", "BU Invoice Printer",0,TRUE 'net.AddWindowsPrinterConnection "\\olysbs\office", "Main Office Printer",0,TRUE 'net.AddWindowsPrinterConnection "\\server\design east", "Design East",0,TRUE 'net.AddWindowsPrinterConnection "\\server\design east", "Design West",0,TRUE 'net.AddWindowsPrinterConnection "\\server\lee", "Lee's Printer",0,TRUE 'Removed the below line because if I log into another users workstation it set this as 'default printer for them if one is not set 'net.SetDefaultPrinter "\\olysbs\chris" End If WScript.Echo "Engineering mapping done" If InStr(strGroup, HR) Then WScript.Echo "You are logged into the Human Resources Group " & strGroup objNetwork.MapNetworkDrive "E:", "\\01SERVER\SYS\APPS ",0,TRUE objNetwork.MapNetworkDrive "F:", "\\01SERVER\SYS",0,TRUE objNetwork.MapNetworkDrive "G:", "\\01SERVER\SYS\GROUP\HR",0,TRUE objNetwork.MapNetworkDrive "H:", "\\01SERVER\SYS\GROUP",0,TRUE objNetwork.MapNetworkDrive "L:", "\\01SERVER\VOL1",0,TRUE objNetwork.MapNetworkDrive "X:", "\\01SERVER\SYS\PUBLIC\APPS",0,TRUE objNetwork.MapNetworkDrive "Y:", "\\01SERVER\SYS\PUBLIC\NLS",0,TRUE objNetwork.MapNetworkDrive "Z:", "\\01SERVER\SYS\PUBLIC",0,TRUE 'verify this when HR comes back 'COME BACK AND UNCOMMENT TO CREATE PRINTERS 'Dim net 'Set net = CreateObject("WScript.Network") 'net.AddWindowsPrinterConnection "\\olysbs\chris", "Chris's Printer",0,TRUE 'net.AddWindowsPrinterConnection "\\olysbs\frank", "Frank's Printer",0,TRUE 'net.AddWindowsPrinterConnection "\\olysbs\shop", "Shop Printer",0,TRUE 'net.AddWindowsPrinterConnection "\\olysbs\11x17", "11x17 Printer",0,TRUE 'net.AddWindowsPrinterConnection "\\olysbs\invoice1", "Main Invoice Printer",0,TRUE 'net.AddWindowsPrinterConnection "\\olysbs\invoice2", "BU Invoice Printer",0,TRUE 'net.AddWindowsPrinterConnection "\\olysbs\office", "Main Office Printer",0,TRUE 'net.AddWindowsPrinterConnection "\\server\design east", "Design East",0,TRUE 'net.AddWindowsPrinterConnection "\\server\design east", "Design West",0,TRUE 'net.AddWindowsPrinterConnection "\\server\lee", "Lee's Printer",0,TRUE 'Removed the below line because if I log into another users workstation it set this as 'default printer for them if one is not set 'net.SetDefaultPrinter "\\olysbs\chris" End If WScript.Echo "HR mapping done" If InStr(strGroup, MFG) Then WScript.Echo "You are logged into the Manufacturing Group " & strGroup objNetwork.MapNetworkDrive "E:", "\\01SERVER\SYS\APPS ",0,TRUE objNetwork.MapNetworkDrive "F:", "\\01SERVER\SYS",0,TRUE objNetwork.MapNetworkDrive "G:", "\\01SERVER\SYS\GROUP\MFG",0,TRUE objNetwork.MapNetworkDrive "L:", "\\01SERVER\VOL1",0,TRUE objNetwork.MapNetworkDrive "X:", "\\01SERVER\SYS\PUBLIC\APPS",0,TRUE objNetwork.MapNetworkDrive "Y:", "\\01SERVER\SYS\PUBLIC\NLS",0,TRUE objNetwork.MapNetworkDrive "Z:", "\\01SERVER\SYS\PUBLIC",0,TRUE 'COME BACK AND UNCOMMENT TO CREATE PRINTERS 'Dim net 'Set net = CreateObject("WScript.Network") 'net.AddWindowsPrinterConnection "\\olysbs\chris", "Chris's Printer",0,TRUE 'net.AddWindowsPrinterConnection "\\olysbs\frank", "Frank's Printer",0,TRUE 'net.AddWindowsPrinterConnection "\\olysbs\shop", "Shop Printer",0,TRUE 'net.AddWindowsPrinterConnection "\\olysbs\11x17", "11x17 Printer",0,TRUE 'net.AddWindowsPrinterConnection "\\olysbs\invoice1", "Main Invoice Printer",0,TRUE 'net.AddWindowsPrinterConnection "\\olysbs\invoice2", "BU Invoice Printer",0,TRUE 'net.AddWindowsPrinterConnection "\\olysbs\office", "Main Office Printer",0,TRUE 'net.AddWindowsPrinterConnection "\\server\design east", "Design East",0,TRUE 'net.AddWindowsPrinterConnection "\\server\design east", "Design West",0,TRUE 'net.AddWindowsPrinterConnection "\\server\lee", "Lee's Printer",0,TRUE 'Removed the below line because if I log into another users workstation it set this as default printer for them if one is not set 'net.SetDefaultPrinter "\\olysbs\chris" End If WScript.Echo "MFG mapping done" If InStr(strGroup, Marketing) Then WScript.Echo "You are logged into the Marketing Group " & strGroup objNetwork.MapNetworkDrive "E:", "\\01SERVER\SYS\APPS ",0,TRUE objNetwork.MapNetworkDrive "F:", "\\01SERVER\SYS",0,TRUE objNetwork.MapNetworkDrive "G:", "\\01SERVER\SYS\GROUP\MRKT",0,TRUE objNetwork.MapNetworkDrive "L:", "\\01SERVER\VOL1",0,TRUE objNetwork.MapNetworkDrive "X:", "\\01SERVER\SYS\PUBLIC\APPS",0,TRUE objNetwork.MapNetworkDrive "Y:", "\\01SERVER\SYS\PUBLIC\NLS",0,TRUE objNetwork.MapNetworkDrive "Z:", "\\01SERVER\SYS\PUBLIC",0,TRUE 'COME BACK AND UNCOMMENT TO CREATE PRINTERS 'Dim net 'Set net = CreateObject("WScript.Network") 'net.AddWindowsPrinterConnection "\\olysbs\chris", "Chris's Printer",0,TRUE 'net.AddWindowsPrinterConnection "\\olysbs\frank", "Frank's Printer",0,TRUE 'net.AddWindowsPrinterConnection "\\olysbs\shop", "Shop Printer",0,TRUE 'net.AddWindowsPrinterConnection "\\olysbs\11x17", "11x17 Printer",0,TRUE 'net.AddWindowsPrinterConnection "\\olysbs\invoice1", "Main Invoice Printer",0,TRUE 'net.AddWindowsPrinterConnection "\\olysbs\invoice2", "BU Invoice Printer",0,TRUE 'net.AddWindowsPrinterConnection "\\olysbs\office", "Main Office Printer",0,TRUE 'net.AddWindowsPrinterConnection "\\server\design east", "Design East",0,TRUE 'net.AddWindowsPrinterConnection "\\server\design east", "Design West",0,TRUE 'net.AddWindowsPrinterConnection "\\server\lee", "Lee's Printer",0,TRUE 'Removed the below line because if I log into another users workstation it set this as default printer for them if one is not set 'net.SetDefaultPrinter "\\olysbs\chris" End If WScript.Echo "Marketing mapping done" If InStr(strGroup, Purchasing) Then WScript.Echo "You are logged into the Purchasing Group " & strGroup objNetwork.MapNetworkDrive "E:", "\\01SERVER\SYS\APPS ",0,TRUE objNetwork.MapNetworkDrive "F:", "\\01SERVER\SYS",0,TRUE objNetwork.MapNetworkDrive "G:", "\\01SERVER\SYS\GROUP\MFG",0,TRUE objNetwork.MapNetworkDrive "L:", "\\01SERVER\VOL1",0,TRUE objNetwork.MapNetworkDrive "X:", "\\01SERVER\SYS\PUBLIC\APPS",0,TRUE objNetwork.MapNetworkDrive "Y:", "\\01SERVER\SYS\PUBLIC\NLS",0,TRUE objNetwork.MapNetworkDrive "Z:", "\\01SERVER\SYS\PUBLIC",0,TRUE 'COME BACK AND UNCOMMENT TO CREATE PRINTERS 'Dim net 'Set net = CreateObject("WScript.Network") 'net.AddWindowsPrinterConnection "\\olysbs\chris", "Chris's Printer" 'net.AddWindowsPrinterConnection "\\olysbs\frank", "Frank's Printer" 'net.AddWindowsPrinterConnection "\\olysbs\shop", "Shop Printer" 'net.AddWindowsPrinterConnection "\\olysbs\11x17", "11x17 Printer" 'net.AddWindowsPrinterConnection "\\olysbs\invoice1", "Main Invoice Printer" 'net.AddWindowsPrinterConnection "\\olysbs\invoice2", "BU Invoice Printer" 'net.AddWindowsPrinterConnection "\\olysbs\office", "Main Office Printer" 'net.AddWindowsPrinterConnection "\\server\design east", "Design East" 'net.AddWindowsPrinterConnection "\\server\design east", "Design West" 'net.AddWindowsPrinterConnection "\\server\lee", "Lee's Printer" 'Removed the below line because if I log into another users workstation it set this as 'default printer for them if one is not set 'net.SetDefaultPrinter "\\olysbs\chris" End If WScript.Echo "Purchasing mapping done" If InStr(strGroup, QC) Then WScript.Echo "You are logged into the Quality Control Group " & strGroup objNetwork.MapNetworkDrive "E:", "\\01SERVER\SYS\APPS ",0,TRUE objNetwork.MapNetworkDrive "F:", "\\01SERVER\SYS",0,TRUE objNetwork.MapNetworkDrive "G:", "\\01SERVER\SYS\GROUP\MRKT",0,TRUE objNetwork.MapNetworkDrive "L:", "\\01SERVER\VOL1",0,TRUE objNetwork.MapNetworkDrive "Q:", "\\01SERVER\SYS\GROUP\MFG\QA",0,TRUE objNetwork.MapNetworkDrive "X:", "\\01SERVER\SYS\PUBLIC\APPS",0,TRUE objNetwork.MapNetworkDrive "Y:", "\\01SERVER\SYS\PUBLIC\NLS",0,TRUE objNetwork.MapNetworkDrive "Z:", "\\01SERVER\SYS\PUBLIC",0,TRUE 'verify this when HR comes back 'COME BACK AND UNCOMMENT TO CREATE PRINTERS 'Dim net 'Set net = CreateObject("WScript.Network") 'net.AddWindowsPrinterConnection "\\olysbs\chris", "Chris's Printer" 'net.AddWindowsPrinterConnection "\\olysbs\frank", "Frank's Printer" 'net.AddWindowsPrinterConnection "\\olysbs\shop", "Shop Printer" 'net.AddWindowsPrinterConnection "\\olysbs\11x17", "11x17 Printer" 'net.AddWindowsPrinterConnection "\\olysbs\invoice1", "Main Invoice Printer" 'net.AddWindowsPrinterConnection "\\olysbs\invoice2", "BU Invoice Printer" 'net.AddWindowsPrinterConnection "\\olysbs\office", "Main Office Printer" 'net.AddWindowsPrinterConnection "\\server\design east", "Design East" 'net.AddWindowsPrinterConnection "\\server\design east", "Design West" 'net.AddWindowsPrinterConnection "\\server\lee", "Lee's Printer" 'Removed the below line because if I log into another users workstation it set this as 'default printer for them if one is not set 'net.SetDefaultPrinter "\\olysbs\chris" End If WScript.Echo "QC mapping done" If InStr(strGroup, EA) Then WScript.Echo "You are logged into the Sales Group " & strGroup ' objNetwork.MapNetworkDrive "E:", "\\01SERVER\SYS\APPS ",0,TRUE ' objNetwork.MapNetworkDrive "F:", "\\01SERVER\SYS",0,TRUE ' objNetwork.MapNetworkDrive "G:", "\\01SERVER\SYS\GROUP\SALES",0,TRUE ' objNetwork.MapNetworkDrive "L:", "\\01SERVER\VOL1",0,TRUE ' objNetwork.MapNetworkDrive "X:", "\\01SERVER\SYS\PUBLIC\APPS",0,TRUE ' objNetwork.MapNetworkDrive "Y:", "\\01SERVER\SYS\PUBLIC\NLS",0,TRUE objNetwork.MapNetworkDrive "Z:", "\\Keeper\C",0,true 'COME BACK AND UNCOMMENT TO CREATE PRINTERS 'Dim net 'Set net = CreateObject("WScript.Network") 'net.AddWindowsPrinterConnection "\\olysbs\chris", "Chris's Printer" 'net.AddWindowsPrinterConnection "\\olysbs\frank", "Frank's Printer" 'net.AddWindowsPrinterConnection "\\olysbs\shop", "Shop Printer" 'net.AddWindowsPrinterConnection "\\olysbs\11x17", "11x17 Printer" 'net.AddWindowsPrinterConnection "\\olysbs\invoice1", "Main Invoice Printer" 'net.AddWindowsPrinterConnection "\\olysbs\invoice2", "BU Invoice Printer" 'net.AddWindowsPrinterConnection "\\olysbs\office", "Main Office Printer" 'net.AddWindowsPrinterConnection "\\server\design east", "Design East" 'net.AddWindowsPrinterConnection "\\server\design east", "Design West" 'net.AddWindowsPrinterConnection "\\server\lee", "Lee's Printer" 'Removed the below line because if I log into another users workstation it set this as 'default printer for them if one is not set 'net.SetDefaultPrinter "\\olysbs\chris" End If 'Remove rem for shares to all users 'ElseIf InStr(strGroup, All_Users_Group) Then 'WScript.Echo "All Users Group " & strGroup ' objNetwork.MapNetworkDrive "h:", "\\Another Server\Users\" _ ' & objNetwork.UserName 'End If Tag: Script to automate SSID wireless Tag: 182688
  - 17
    - best practices Hi, whats the best practices for managing scripts? do you guys make use of .wsf to call scripts or do you only write your scripts in a .vbs file? Tag: Script to automate SSID wireless Tag: 182683
  - 18
    - scripting gethostbyname Here's a 3 line perl script that prints the IP address of a named host: use Socket; $packed = gethostbyname("$ARGV[0]") or die "unknown host: $ARGV[0]\n"; print inet_ntoa($packed); Use like so (host name can be found via DNS or in local hosts file) WINSERVER:rsr>perl gethostbyname.pl winserver 192.168.0.4 WINSERVER:rsr>perl gethostbyname.pl msnews.microsoft.com 207.46.246.16 How does one do that with windows scripting? Thanks very much. Tag: Script to automate SSID wireless Tag: 182682
  - 19
    - Registry for MSN Messenger Hi All, Do anybody have an idea of " How to Autosave Conversations of MSN messenger" through login script with the help of registry keys or some thing like that. OS -- win 98/2k Tag: Script to automate SSID wireless Tag: 182681
  - 20
    - running wmi query fails on certain computers. Hi guys, I wonder, you see the two queries below. The one that queries both application and system logs (the one on the bottom) does not work on certain computers - Windows 2000 Advanced Server - Windows 2000 domain). The same query works on other apparently similar computers. If I run the query (the one on the top) that only queries the application log it works ok. The problem is that it does not produce any errors, it simply doesn't fire any events. The queries are always ran using domain admin credentials. I would appreciate some help on this ! Thanks and Regards. 'OK strWQL = "SELECT * FROM __InstanceCreationEvent WITHIN 15 WHERE TargetInstance ISA 'Win32_NTLogEvent'" & _ "AND TargetInstance.Type = 'Error' AND TargetInstance.LogFile = 'Application'" 'NOT OK strWQL = "SELECT * FROM __InstanceCreationEvent WITHIN 15 WHERE TargetInstance ISA 'Win32_NTLogEvent'" & _ "AND TargetInstance.Type = 'Error' AND TargetInstance.LogFile = 'Application' OR targetinstance.logfile='system'" Set objEventSource = objWMIService.ExecNotificationQuery(strWQL) Tag: Script to automate SSID wireless Tag: 182679
  - 21
    - Sessions not working correctly on ASP page I have an ASP login section on my site that is experiencing some problems. Go to the following page and create a fake account (this is a test environment, so don't worry): http://seminarystreet.com/dev_testing/registration/default.asp Upon completion, you will be redirected to the login page, the new login credentials are automatically inserted into the username and password fields. Click the Login button. Once logged in, click the logout button and you will get a an error from my logout script, it completely refuses to log the visitor out. I have SQL insert statement used for auditing that is expecting the account_id to be passed, but it isn't there for some reason. Regardless, with or without that statement, the logout fails. Close out of the browser and go directly to the login page again, log in using the same credentials and try logging out. It works correctly. Now if you create a new account, close out of your browser and start a new session and login, it works fine too. I'm at a loss of words on this one, so any suggestions would really be appreciated. I've included links to the associated pages below so that you can view the code: Registration page: http://seminarystreet.com/dev_testing/temp_code/registration/default.txt Login page: http://seminarystreet.com/dev_testing/temp_code/login/default.txt Includes: http://seminarystreet.com/dev_testing/temp_code/includes/global.txt http://seminarystreet.com/dev_testing/temp_code/includes/sec-public.txt http://seminarystreet.com/dev_testing/temp_code/includes/sec-private.txt Like I said, any suggestions would be greatly appreciated. Thanks, Curt Tag: Script to automate SSID wireless Tag: 182677
  - 22
    - Re: how can i check what programs are installed on a remote computer on my Sorry, I hit Send to fast... then I realized this in in vbscript group... "Armin Freiberg" <A.Freiberg@cenit.de> schrieb im Newsbeitrag news:... > Hi Lynn, > > try PSEXEC \\computer -c PSINFO.EXE > > Both programs are from www.sysinternals.com ... Tag: Script to automate SSID wireless Tag: 182675
  - 23
    - Getting data from DDE topic using VBScript Hi, I have a data source that exposes arrays of numbers using DDE topics/items. Is there a vbscript way to access these topics and items? I could create an Excel spreadsheet and read it out of there, but that seems an additional complication. How can I get my data directly in vbscript? TIA, Vorpal Tag: Script to automate SSID wireless Tag: 182670
  - 24
    - WMI Network stats - incorrect object specification I'm trying to write a custom vbscript to extract Network transfer rates from a couple of servers using WMI. I found a script that enumerates the data, but I can't figure out how to specify the interface I want. I looked at Microsoft's site for methods and properties, and while it shows a number of properties, it isn't clear what the name of the parent property is. The problem lines are: wscript.echo TCPConfig.TotalBytesPerSecond(1) wscript.echo TCPConfig.Properties.Name(1) I know they're wrong - I'm guessing at the parent property names. I've also tried: wscript.echo TCPConfig.Item(1) (defaults sometimes work here) wscript.echo TCPConfig.Name(1) (defaults sometimes work here) wscript.echo TCPConfig.Properties.Name(1) wscript.echo TCPConfig.Properties_.Name(1) here is the script and the output: strComputer = "." Set TCPConfig = GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf("Win32_PerfRawData_Tcpip_NetworkInterface") 'wscript.echo TCPConfig.TotalBytesPerSecond(1) 'wscript.echo TCPConfig.Properties.Name(2) For Each Connection In TCPConfig wscript.echo "---- " & Connection.Name & " ---- " For each Prop in Connection.Properties_ If (Not IsNull(Prop.Value) ) Then wscript.echo Prop.Name & " " & Prop.Value End If on error resume next Next Next ---- 3Com 3C920 Integrated Fast Ethernet Controller [3C905C-TX Compatible] - Packet Scheduler Miniport ---- BytesReceivedPersec -17429 BytesSentPersec 108180 BytesTotalPersec 36421 CurrentBandwidth 100000000 Frequency_Object 0 Frequency_PerfTime 357 Frequency_Sys100NS 10000000 Name 3Com 3C920 Integrated Fast Ethernet Controller [3C905C-TX Compatible] - Packet Scheduler Miniport OutputQueueLength 0 PacketsOutboundDiscarded 0 PacketsOutboundErrors 0 PacketsPersec 135 PacketsReceivedDiscarded 0 PacketsReceivedErrors 0 PacketsReceivedNonUnicastPersec 27 PacketsReceivedPersec 804 PacketsReceivedUnicastPersec 5159 PacketsReceivedUnknown 1706 PacketsSentNonUnicastPersec 86 PacketsSentPersec 5033 PacketsSentUnicastPersec 5025 Timestamp_Object 0 Timestamp_PerfTime 43181640 Timestamp_Sys100NS 1270805648484 ---- MS TCP Loopback interface ---- BytesReceivedPersec 51 BytesSentPersec 510 BytesTotalPersec 1021 CurrentBandwidth 10000000 Frequency_Object 0 Frequency_PerfTime 355 Frequency_Sys100NS 1000 Name MS TCP Loopback interface OutputQueueLength 0 PacketsOutboundDiscarded 0 PacketsOutboundErrors 0 PacketsPersec 10 PacketsReceivedDiscarded 0 PacketsReceivedErrors 0 PacketsReceivedNonUnicastPersec 0 PacketsReceivedPersec 51 PacketsReceivedUnicastPersec 51 PacketsReceivedUnknown 0 PacketsSentNonUnicastPersec 0 PacketsSentPersec 51665 PacketsSentUnicastPersec 51 Timestamp_Object 0 Timestamp_PerfTime 43164334 Timestamp_Sys100NS 1277508748484 Tag: Script to automate SSID wireless Tag: 182669
  - 25
    - function to get names from text file Hi, i have serveral scripts with need to get names from a text file. does anybody have a function to get names from a text file? so that i do not have to include the same code in every script that i write? thanks Tag: Script to automate SSID wireless Tag: 182665

This is a multi-part message in MIME format.

------=_NextPart_000_0026_01C5DFC3.0C1337D0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

Is it possible to automate the setup of a wireless connection with the =
settings we need for our network.=20

SSID (XXXXXXXXXXX)
PEAP authentication
NOT validating server certificates
MSCHAP (Windows username and password).
WEP enabled
key is provided

--=20
SHANE CLARK
------=_NextPart_000_0026_01C5DFC3.0C1337D0
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.1516" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT face=3DArial size=3D2>Is it possible to automate =
the setup of a=20
wireless connection with the settings we need for our network.=20
</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT> </DIV>
<DIV><FONT face=3DArial size=3D2>SSID (XXXXXXXXXXX)</FONT></DIV>
<DIV><FONT size=3D2>PEAP authentication</FONT></DIV>
<DIV><FONT color=3D#000000><B><FONT color=3D#0000ff><FONT =
color=3D#000000=20
size=3D2>NOT</FONT></B><FONT color=3D#000000 size=3D2> validating server =

certificates</FONT></FONT></FONT></DIV>
<DIV><FONT color=3D#0000ff><FONT color=3D#000000 size=3D2>MSCHAP =
(Windows username and=20
password).</FONT></FONT></DIV>
<DIV><FONT color=3D#0000ff><FONT color=3D#000000 size=3D2>WEP=20
enabled</FONT></FONT></DIV>
<DIV><FONT color=3D#0000ff><FONT color=3D#000000><FONT =
color=3D#0000ff><FONT=20
color=3D#000000 size=3D2>key is =
provided</FONT></DIV></FONT></FONT></FONT>
<DIV><FONT color=3D#000000><FONT color=3D#0000ff><FONT color=3D#000000=20
size=3D2></FONT> </DIV></FONT></FONT>
<DIV><FONT face=3DArial size=3D2><BR>-- <BR>SHANE =
CLARK</FONT></DIV></BODY></HTML>

------=_NextPart_000_0026_01C5DFC3.0C1337D0--

Top