Corum Bubble Mini Diamond Steel Blue Ladies Watch

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
    - Help with VB in an ASP script Not sure if this is the spot to ask but I need some help with a script I hijacked and put to my own use in an .ASP page any ways I am using the FilesystemObjects to get a directory and file listing and generating a web page of that listing, but I need to filter out files with the SYSTEM tag, so it wont show files I dont want it to, Below is my full code for the ASP page, I have Commented where I need to change the listing structure, if anyone can help me filter these out I would be greatfull!!! --- Begin code --- <%@LANGUAGE="VBSCRIPT"%> <% Option Explicit On Error Resume Next ' this section is optional - it just denies anonymous access If Request.ServerVariables("LOGON_USER")="" Then Response.Status = "401 Access Denied" End If ' declare variables Dim objFSO, objFolder Dim objCollection, objItem Dim strPhysicalPath, strTitle, strServerName Dim strPath, strTemp Dim strName, strFile, strExt, strAttr Dim intSizeB, intSizeK, intAttr, dtmDate ' declare constants Const vbReadOnly = 1 Const vbHidden = 2 Const vbSystem = 4 Const vbVolume = 8 Const vbDirectory = 16 Const vbArchive = 32 Const vbAlias = 64 Const vbCompressed = 128 ' don't cache the page Response.AddHeader "Pragma", "No-Cache" Response.CacheControl = "Private" ' get the current folder URL path strTemp = Mid(Request.ServerVariables("URL"),2) strPath = "" Do While Instr(strTemp,"/") strPath = strPath & Left(strTemp,Instr(strTemp,"/")) strTemp = Mid(strTemp,Instr(strTemp,"/")+1) Loop strPath = "/" & strPath ' build the page title strServerName = UCase(Request.ServerVariables("SERVER_NAME")) strTitle = "Contents of the " & strPath & " folder" ' create the file system objects strPhysicalPath = Server.MapPath(strPath) Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set objFolder = objFSO.GetFolder(strPhysicalPath) %> <html> <head> <meta http-equiv="Content-Language" content="en-us"> <meta http-equiv="Content-Type" content="text/html; charset=windows-1252"> <title></title> </head> <body text="#C0C0C0" bgcolor="#000000"> <div align="center"> <table border="0" width="80%" id="table1"> <tr> <td align="center">Some web page Info here<p align="right"><b><font size="4">And here</font></b></td> </tr> </table> </div> <p align="center"> <img border="0" src="Folder.jpg"> </p> <p align="center"><a href="../">Back</a></p> <html> <body> <div align="center"><center> <table width="100%" border="0" cellspacing="1" cellpadding="2"> <% '''''''''''''''''''''''''''''''''''''''' ' output the folder list '''''''''''''''''''''''''''''''''''''''' Set objCollection = objFolder.SubFolders For Each objItem in objCollection strName = objItem.Name strAttr = MakeAttr(objItem.Attributes) dtmDate = CDate(objItem.DateLastModified) %> <% Next %> <% '''''''''''''''''''''''''''''''''''''''' ' output the file list '''''''''''''''''''''''''''''''''''''''' Set objCollection = objFolder.Files For Each objItem in objCollection strName = objItem.Name strFile = Server.HTMLEncode(Lcase(strName)) intSizeB = objItem.Size intSizeK = Int((intSizeB/1024) + .5) If intSizeK = 0 Then intSizeK = 1 strAttr = MakeAttr(objItem.Attributes) strName = Ucase(objItem.ShortName) If Instr(strName,".") Then strExt = Right(strName,Len(strName)-Instr(strName,".")) Else strExt = "" dtmDate = CDate(objItem.DateLastModified) %> ' This is where I am listing the Files in my webpage, but it lists all files, and I need to block the listing of system Files' <tr> <td align="left">A<%=strFile%></a></td> <td align="right"> </td> <td align="right"> <p align="left"><%=intSizeK%>K</td> </tr> <% Next %> </table> </center></div> </body> </html> <% Set objFSO = Nothing Set objFolder = Nothing ' this adds the IIf() function to VBScript Function IIf(i,j,k) If i Then IIf = j Else IIf = k End Function ' this function creates a string from the file atttributes Function MakeAttr(intAttr) MakeAttr = MakeAttr & IIf(intAttr And vbArchive,"A","-") MakeAttr = MakeAttr & IIf(intAttr And vbSystem,"S","-") MakeAttr = MakeAttr & IIf(intAttr And vbHidden,"H","-") MakeAttr = MakeAttr & IIf(intAttr And vbReadOnly,"R","-") End Function %> Tag: Corum Bubble Mini Diamond Steel Blue Ladies Watch Tag: 217819
  - 2
    - wscript.shell Run file with space in path - SOLVED i did: "C:\Program Files\7-Zip\7z.exe e C:\temp\4\7-Zip.7z -y -oc:\temp\4\ *.txt -r" and i did: Set shep = WScript.CreateObject("WScript.Shell") shep.Run """C:\Program Files\7-Zip\7z.exe"" e C:\temp\4\7-Zip.7z -y -oc:\temp\4\ *.txt -r" and in both cases all worked great :). if in wsh script we have file paths with "spaces" then we need to embrace those paths with- ""file path"". in my case it is ""C:\Program Files\7-Zip\7z.exe"" hope this will help :) Tag: Corum Bubble Mini Diamond Steel Blue Ladies Watch Tag: 217814
  - 3
    - Outlook rules/filters with vbs Hi NG, How can I create new rules in outlook/oe with vbs or vb? Thank you, zz7 Tag: Corum Bubble Mini Diamond Steel Blue Ladies Watch Tag: 217808
  - 4
    - Compress Folder to a single file? Dear sir, I've some backed up files from variuous locations stored in a folder c:\data and i want to back fiels in that folder to a single file c:\data.zip i used : -============ strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colFolders = objWMIService.ExecQuery _ ("Select * From Win32_Directory Where Name = 'C:\DBsBackup'") For Each objFolder in colFolders errResults = objFolder.Compress Next -============ i just need any kind of scripts to make it in scheduled task but didn't work, any help ? thanks A. Sabry Tag: Corum Bubble Mini Diamond Steel Blue Ladies Watch Tag: 217803
  - 5
    - Compress Folder to a single file? Dear sir, I've some backed up files from variuous locations stored in a folder c:\data and i want to back fiels in that folder to a single file c:\data.zip i used : -============ strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colFolders = objWMIService.ExecQuery _ ("Select * From Win32_Directory Where Name = 'C:\DBsBackup'") For Each objFolder in colFolders errResults = objFolder.Compress Next -============ i just need any kind of scripts to make it in scheduled task but didn't work, any help ? thanks A. Sabry Tag: Corum Bubble Mini Diamond Steel Blue Ladies Watch Tag: 217802
  - 6
    - Compress Folder to a single file? Dear sir, I've some backed up files from variuous locations stored in a folder c:\data and i want to back fiels in that folder to a single file c:\data.zip i used : -============ strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colFolders = objWMIService.ExecQuery _ ("Select * From Win32_Directory Where Name = 'C:\DBsBackup'") For Each objFolder in colFolders errResults = objFolder.Compress Next -============ i just need any kind of scripts to make it in scheduled task but didn't work, any help ? thanks A. Sabry Tag: Corum Bubble Mini Diamond Steel Blue Ladies Watch Tag: 217801
  - 7
    - Compress Folder to a single file? Dear sir, I've some backed up files from variuous locations stored in a folder c:\data and i want to back fiels in that folder to a single file c:\data.zip i used : -============ strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colFolders = objWMIService.ExecQuery _ ("Select * From Win32_Directory Where Name = 'C:\DBsBackup'") For Each objFolder in colFolders errResults = objFolder.Compress Next -============ i just need any kind of scripts to make it in scheduled task but didn't work, any help ? thanks A. Sabry Tag: Corum Bubble Mini Diamond Steel Blue Ladies Watch Tag: 217800
  - 8
    - Need some help with mass AD updates please. I'm fairly new to windows scripting, particularly with AD. I'm trying to update the script path, but I can't seem to do so. Here's my script ( it IS a 'work in progress' ): ----- 'Global variables Const ADS_UF_ACCOUNTDISABLE = 2 Const ADS_PROPERTY_UPDATE = 2 Dim oContainer Dim strUserToUpdate, strUpdateFlag Dim strTelNmbr 'Initialize global variables Set objConnection = CreateObject("ADODB.Connection") Set objCommand = CreateObject("ADODB.Command") objConnection.Open "Provider=ADsDSOObject;" objCommand.ActiveConnection = objConnection objCommand.CommandText = _ "<GC://dc=MyDomain,dc=org>;(objectCategory=User)" & _ ";userAccountControl," & _ "department," & _ "sn," & _ "givenName," & _ "displayName," & _ "streetAddress," & _ "physicalDeliveryOfficeName," & _ "title," & _ "mailNickname," & _ "mail," & _ "IpPhone," & _ "telephoneNumber," & _ "mobile," & _ "facsimileTelephoneNumber," & _ "info," & _ "l," & _ "st," & _ "postalCode," & _ "c," & _ "distinguishedName," & _ "ProfilePath," & _ "ScriptPath," & _ "HomeDirectory," & _ "HomeDrive" & _ ";subtree" Set objRecordSet = objCommand.Execute intCounter = 0 Do Until objRecordset.EOF strUpdateFlag = "N" intUAC=objRecordset.Fields("userAccountControl") If ( intUAC <> 514 And Not ADS_UF_ACCOUNTDISABLE ) Then If objRecordset.Fields("sn") > Null Or objRecordset.Fields("sn") > "" Then If objRecordset.Fields("givenName") > Null Or objRecordset.Fields("givenName") > "" Then If objRecordset.Fields("displayName") <> "Cliff Gibson" Then If objRecordset.Fields("displayName") <> "Hollis Mason" Then If intCounter < 3 Then Set strUserToUpdate = objRecordset.Fields("distinguishedName") ' WScript.Echo strUserToUpdate ' WScript.Echo objRecordset.Fields("distinguishedName") Set objUser = GetObject _ ( "LDAP://" & objRecordset.Fields("distinguishedName") ) If objRecordset.Fields("department") = "Accounting" Then objUser.Put "streetAddress", "3120 S Bling St" & vbCrLf & "Ste 500" objUser.Put "physicalDeliveryOfficeName", "Accounting" End If If objRecordset.Fields("department") = "Fire ( Admin )" Then If Left( objRecordset.Fields("streetAddress"), 3 ) = "LEC" Then objUser.Put "streetAddress", "2727 Ying Yang St" & vbcrlf & "LEC" objUser.Put "physicalDeliveryOfficeName", "Fire Admin" End If If objRecordset.Fields("title") = Null Or objRecordset.Fields("title") = "" Then objUser.Put "title", "Administrative" End If If objRecordset.Fields("ProfilePath") = "" Then objUser.Put "ProfilePath", "" End If If objRecordset.Fields("ScriptPath") = Null Or objRecordset.Fields("ScriptPath") = "" Then objUser.Put "ScriptPath", "Fires.cmd" End If If objRecordset.Fields("HomeDirectory") = "" Then objUser.Put "HomeDirectory", "" End If If objRecordset.Fields("HomeDrive") = "" Then objUser.Put "HomeDrive", "" End If objUser.Put "streetAddress", "" & vbcrlf & "" objUser.Put "physicalDeliveryOfficeName", "" WScript.Echo objRecordset.Fields("displayName") WScript.Echo _ "Title..........(" & objRecordset.Fields("title") & ")" & vbCrLf & _ "Profile Path..(" & objRecordset.Fields("ProfilePath") & ")" & vbCrLf & _ "ScriptPath....(" & objRecordset.Fields("ScriptPath") & ")" & vbCrLf & _ "HomeDir......(" & objRecordset.Fields("HomeDirectory") & ")" & vbCrLf & _ "HomeDrive...(" & objRecordset.Fields("HomeDrive") & ")" strUpdateFlag = "Y" End If If strUpdateFlag = "Y" Then objUser.Put "company", "MyCompany" objUser.Put "l", "MyCity" objUser.Put "st", "MyState" objUser.Put "postalCode", "MyZipcode" objUser.Put "c", "US" objUser.SetInfo intCounter = intCounter + 1 WScript.Echo objRecordset.Fields("displayName") End If End If End If End If End If End If End If objRecordset.MoveNext Loop 'Clean up objConnection.Close Set oContainer = Nothing WScript.Echo "Updated...(" & intCounter & ")...records." WScript.Echo "Finished" WScript.Quit(0) ' End of script ' ----- We have several hundres users, so the more scripting I can do to help me, the better. And I just added some 70+ users in the last two days. My specific problems at the moment are: 1.) The script path. I can't seem to update it. 2.) I also want to update some properties that don't have anything already entered. Testing for null or "" doesn't work. Any suggestions for a good book? Or should that be books? Any help would be appreciated. Thanks ni advance, Tom Tag: Corum Bubble Mini Diamond Steel Blue Ladies Watch Tag: 217793
  - 9
    - tree menu from current directory i tried to find tutorials to build a working tree menu from contents of current folder but was unable to find any, neither did i find any working scrit to build on can anyone suggest something i am a newbie to javascript but i did manage to come up with something using filesystemobject Set fso = Server.CreateObject("Scripting.FileSystemObject") path = server.mappath("/") Set root = fso.GetFolder(Path) Set files = root.files Set folders = root.SubFolders response.write "<ul>" for each folder in folders response.write "<li>"+folder.name & "</li>" next for each file in files response.write "<li>"+file.name & "</li>" next response.write "</ul>" -------------------------- http://www.eecpindia.com http://www.anchorfx.com http://forex.eecpindia.com *** Sent via Developersdex http://www.developersdex.com *** Tag: Corum Bubble Mini Diamond Steel Blue Ladies Watch Tag: 217779
  - 10
    - Rename a file with yesterdays days date Hi, How can i rename a file (c\AutoDaily\18991230.zip) with yesterdays date. (c\AutoDaily\20080510.zip) Then move the file to: (c\AutoDaily\Archive\20080510.zip) Cheers Dan Tag: Corum Bubble Mini Diamond Steel Blue Ladies Watch Tag: 217778
  - 11
    - stupid question a conditional statement if name <> "database" and name <> images" Then end if is there a better way like if name not in (database, images) then end if ?? -------------------------- http://www.eecpindia.com http://www.anchorfx.com http://forex.eecpindia.com *** Sent via Developersdex http://www.developersdex.com *** Tag: Corum Bubble Mini Diamond Steel Blue Ladies Watch Tag: 217769
  - 12
    - config dcom settings Is there a way to script dcom settings? I need to set a specific setting on our workstations and trying to figure out the most efficient way to do so. Tag: Corum Bubble Mini Diamond Steel Blue Ladies Watch Tag: 217760
  - 13
    - extracting the info from quotes!! Hi, Is there a straight forward way to extract the information within quotes only. There could be differnet types of values within quotes and so is there a way to extract these. Thanks , Sa ..TopCell "CAP_SMD_2512_.250X.130B_.043HT" Tag: Corum Bubble Mini Diamond Steel Blue Ladies Watch Tag: 217752
  - 14
    - Group lookup problem I have an old script I use to verify what groups a user is in and then run scripts based on thoughs groups. This script run perfectly fine on my current domain/forest with all users. However when I created a new domain/forest for a sub company that is braking off from us the script no longer works. The funny part is that for Domain admins it works fine but not for a regluar user. I think it is some permission change in AD and would like to know what I have to change to get this to work. Here is the part of the script I use to vailadate groups: ' Check For Group Messages and Mappings Set ADSysInfo = CreateObject("ADSystemInfo") Set CurrentUser = GetObject("LDAP://" &ADSysInfo.UserName) arrMemberOf = CurrentUser.MemberOf For each Group in arrMemberOf Group = Mid(Group,4) intLeft = Instr(Group,",") - 1 Group = Left(Group, intLeft) 'WScript.Echo Group ' Check for a message for each Group Messagepath = Scrpath & "\" & Group & ".txt" 'WScript.Echo Messagepath If (fso.FileExists(Messagepath)) Then Set f = fso.OpenTextFile(Messagepath, ForReading, True) temp = WShShell.Popup(f.Readall,30,ExtremeM, 0 + 48) End If ' Chech for a Script for each Group Scriptpath = Scrpath & "\" & Group & ".VBS" 'WScript.Echo Scriptpath If (fso.FileExists(Scriptpath)) Then Temp = WshShell.Run(Scriptpath ,1 , True) End If Next Tag: Corum Bubble Mini Diamond Steel Blue Ladies Watch Tag: 217751
  - 15
    - Needing replacing a backslash by a comma Hello, I just need to know how to find the third backslash in a string like this: \\192.168.1.2\SYSVOL It is like it was really \\anything\anything and then replace it by a comma so that the string can be like: \\192.168.1.2,SYSVOL I have been trying with regular expressions but unsuccessfully. Any ideas? Thank you! Tag: Corum Bubble Mini Diamond Steel Blue Ladies Watch Tag: 217746
  - 16
    - Screen Saver - Execute Is there a way to execute the user's screen saver using vbscript? Microsoft had a button in an old version of office (office 97?) that had a window shade icon on the quicklaunch toolbar which executed the screen saver - i would like to emulate that functionality. thanks Tag: Corum Bubble Mini Diamond Steel Blue Ladies Watch Tag: 217740
  - 17
    - Authenticated SMB Access Hi there, I'm developing an app that reads a plain text file from a remote AS400- IFS Service (samba-like stuff I guess). The problem is that this access is not allowed without authentication, and I cannot authenticate the access from within my app (it's written in a very old programming language and I cannot change :( ). I was wondering if it's there any way to run my app from within an vbscript but call the app just after I have authenticated into the IFS service. There should be no difference from authenticating with a Windows- running machine, it should be like accessing a password protected shared folder on a remote Windows 2003 Server, for instance. Thanks in advance. A. Stukov. Tag: Corum Bubble Mini Diamond Steel Blue Ladies Watch Tag: 217737
  - 18
    - Encrypting data in vbscript Hi, I have to encrypt some data using an encryption algorithm like TrippleDES or AES in VBScript. After searching I found that two system32 dlls "advadpi.dll" and "crypt32.dll" provides this functionality. But it seems these dlls are not COM dlls. Hence I am unable to use these dlls in vbscript. I have two questions here: 1. Please some one let me know whether I am reffering correct dlls or not to encrypt data in vbscript. 2. And if I am referring to the correct dlls then please put some light on how to use these dlls in vbscript. Thanks in advance. Regards, Tag: Corum Bubble Mini Diamond Steel Blue Ladies Watch Tag: 217735
  - 19
    - elevate script permission for vista uac Any tips on how to get around UAC for scripts requiring major system changes such as WMI workstation rename. Can you elevate the permission so the user gets no messages. Or is turning of UAC the ultimate solution ? If it wasn't for the restart it can be turned on and off with no problem. Tag: Corum Bubble Mini Diamond Steel Blue Ladies Watch Tag: 217733
  - 20
    - Failing to map remote drive. Have a look at code i m having problem with. arrComputers = Array("comp1","comp2","comp3","comp4","comp5") For Each strComputer In arrComputers WScript.Echo WScript.Echo "==========================================" WScript.Echo "Computer: " & strComputer WScript.Echo "==========================================" Set objSWbemLocator = CreateObject("WbemScripting.SWbemLocator") Set objWMIService = objSWbemLocator.ConnectServer(strServer, _ "root\cimv2", _ strUser, _ strPassword, _ "MS_409", _ "ntlmdomain:" + strDomain) For Each objItem in colItems Wscript.Echo "-----------------------------------" Wscript.Echo "Win32_LogicalDisk instance" Wscript.Echo "-----------------------------------" Wscript.Echo "Size: " & objItem.Size Next Next Here Comp2, Comp 3 are in domain1. and Comp 1,4 &5 are in domain2. When i run the script form Domain 2, It gets me data for Comp 1 but i get error: Access is denied for rest of the list. Actually it should get data for Comp4 and 5 but its not. Same when i run from Domain 1 it gives same error where it should get data form Comp 2 & 3. I tried to Set ColItems = Nothing but thts also not helping. Plz suggest Tag: Corum Bubble Mini Diamond Steel Blue Ladies Watch Tag: 217731
  - 21
    - In VB Find First Available Unassigned Drive Letter Is there a quick and easy code in VB that will allow me to scan and find the first unassigned Drive Letter? I need to use the SUBST command and want to apply it to an unassigned (available/free) drive letter that currently isn't in use. Tag: Corum Bubble Mini Diamond Steel Blue Ladies Watch Tag: 217727
  - 22
    - Failed to start a program by script Hi, I used the following script lines to start a program by a schedule batch program: Dim AppCmd Set AppCmd = "start /d c:\rdata c:\swapplic\chsp\bin\dldbridge.exe" Dim oProcesses, ErrResult, iID Set oProcess = GetObject("winmgmts:\\" & sName & "\root\cimv2:Win32_Process") ErrResult = oProcess.Create(WScript.Arguments.Named("AppCmd"),Null,Null,iID) However, the script failed with ErrResult=8. I recently increase the memory from 1G to 2G and sill have 10G free space in hard disk. What is going wrong? Please Help! -- Andy Mar Tag: Corum Bubble Mini Diamond Steel Blue Ladies Watch Tag: 217726
  - 23
    - RE:regular expressions using not !! Hi, I have a regular expression such as: "[a-z]+[0-9]+" So this basically includes all alphabeths followed by numbers but I do not want "mll" followed by numbers. I am using this in an if statement. Is it possible to set a pattern for something like this maybe by using a ^ or a not ?? Thanks SA Tag: Corum Bubble Mini Diamond Steel Blue Ladies Watch Tag: 217725
  - 24
    - adding a line to .ini file Hello Scripters, I have found a good reading on how to edit a .ini file but what I wanted to do instead of editing the .ini File, I would like to add a line via scripting. Help! I need a script that can add line on a .ini file. Thanks, GP Tag: Corum Bubble Mini Diamond Steel Blue Ladies Watch Tag: 217722
  - 25
    - A REG QUERY that does not return "ERROR" when key not found My loginscript checks for presence of keys under HKCU. E.g. reg query HKCU\Software\MyCompany /v loginscriptversion | find /C "1.0" > nul However reg query still returns ERROR: The system was unable to find the specified registry key or value. So what do I do? I wonder if there is a vbscript that can behave like reg query? e.g. cscript RegQuery.vbs HKCU\Software\MyCompany /v loginscriptversion | find /C "1.0" > nul EXCEPT not displaying ERROR ? Any help would greatly be appreciated. -- -- HAL07, Engineering Services, Norway Tag: Corum Bubble Mini Diamond Steel Blue Ladies Watch Tag: 217716
- Next
  - 1
    - ADSI scripting question I have a script that will pull the list of groups that have access to a folder that is specified in a message box. I also have each group outputting to a seperate worksheet in an Excel spreadsheet. The list of users in these groups are outputting in this form (CN=smith\,joe L,OU=Users,OU=Default,DC=test, DC=com). I want to just output Joe Smith, jsmith. When I change arrUsers = ObjRecordset.Fileds("member").Vaule to DistinguishedName or DisplayName or anything else I get nothing in these fields. I think it has to do with querying the "group" instead of the user category but am not sure if I am right or how to add a second query based on the results of the groups I pulled in the previous query. Can anyone advise on how this can be done? Script is copied below. Thank you. Dim objCommand, objConnection, strBase, strFilter, strAttributes Dim strQuery, objRecordset, strName, strCN Dim excelgroups, objExcel, objWshNet, strFoldername, UNCPathName, DrvLetter, strComputerName Set objExcel = CreateObject("Excel.Application") On Error resume Next objExcel.Visible = True objExcel.Workbooks.Add objExcel.Cells(2, 1).Value = "Login\Group Name" objExcel.Cells(2, 1).Font.Bold = TRUE objExcel.Cells(2, 2).Value = "Access Allowed\Denied" objExcel.Cells(2, 2).Font.Bold = TRUE objExcel.Cells(2, 3).Value = "Permission Assigned" objExcel.Cells(2, 3).Font.Bold = TRUE objExcel.WorkSheets(1).name = "Permissions List" UNCPathName = InputBox("please supply the UNC path to the shared folder") DrvLetter = InputBox("Please supply unused driver letter followed by a colon") set objWshNet = WScript.CreateObject("Wscript.Network") objWshNet.MapNetworkDrive DrvLetter, UNCPathName If Err.Number <> 0 Then Wscript.Echo "Error: " & Err.Number & vbcrlf &_ Err.Description & " 0" End If If Err.Number <> 0 Then Wscript.Echo "Error: " & Err.Number & vbcrlf &_ Err.Description & " 1" End If objExcel.Cells(1, 1).Value = UNCPathName SE_DACL_PRESENT = &h4 ACCESS_ALLOWED_ACE_TYPE = &h0 ACCESS_DENIED_ACE_TYPE = &h1 If Err.Number <> 0 Then Wscript.Echo "Error: " & Err.Number & vbcrlf &_ Err.Description & " 2" End If Set objWMIService = GetObject("winmgmts:") If Err.Number <> 0 Then Wscript.Echo "Error: " & Err.Number & vbcrlf &_ Err.Description & " 3" End If Set objFolderSecuritySettings = _ objWMIService.Get("Win32_LogicalFileSecuritySetting.path='" & DrvLetter & "\'") If Err.Number <> 0 Then Wscript.Echo "Error: " & Err.Number & vbcrlf &_ Err.Description & " 4" End If intRetVal = objFolderSecuritySettings.GetSecurityDescriptor(objSD) If Err.Number <> 0 Then Wscript.Echo "Error: " & Err.Number & vbcrlf &_ Err.Description & " 5" End If intControlFlags = objSD.ControlFlags If intControlFlags AND SE_DACL_PRESENT Then arrACEs = objSD.DACL X=3 For Each objACE in arrACEs objExcel.Cells(x, 1).Value = _ objACE.Trustee.Domain & "\" & objACE.Trustee.Name If objACE.AceType = ACCESS_ALLOWED_ACE_TYPE Then objExcel.Cells(x, 2).Value = _ vbTab & "Allowed:" ElseIf objACE.AceType = ACCESS_DENIED_ACE_TYPE Then objExcel.Cells(x, 2).Value = _ vbTab & "Denied:" End If If objACE.AccessMask = "1245631" Then objExcel.Cells(x, 3).Value = "Modify" End If If objACE.AccessMask = "1179785" Then objExcel.Cells(x, 3).Value = "Read Only" End If If objACE.AccessMask = "1179817" Then objExcel.Cells(x, 3).Value = "Read & Execute" End If If objACE.AccessMask = "2032127" Then objExcel.Cells(x, 3).Value = "Full Control" End If X=X+1 Next Else WScript.Echo "No DACL present in security descriptor" End If Set objRange = objExcel.Range("A1") objRange.Activate Set objRange = objExcel.ActiveCell.EntireColumn objRange.Autofit() Set objRange = objExcel.Range("B1") objRange.Activate Set objRange = objExcel.ActiveCell.EntireColumn objRange.Autofit() Set objRange = objExcel.Range("A1").SpecialCells(11) Set objRange2 = objExcel.Range("C1") Set objRange3 = objExcel.Range("A1") x=2 Do Until objExcel.Cells(x,1).Value = "" arrSecCon= Split(objExcel.Cells(x,1).Value, "\") CellValue=arrSecCon(1) objExcel.Cells(x,1).Value=CellValue x=x+1 loop w=2 x=2 Do Until objExcel.Worksheets(1).Cells(x,1).Value = "" Set objCommand = CreateObject("ADODB.Command") Set objConnection = CreateObject("ADODB.Connection") objConnection.Provider = "ADsDSOObject" objConnection.Open "Active Directory Provider" objCommand.ActiveConnection = objConnection strBase = "<LDAP://dc=test,dc=company,dc=corp,dc=com>" strFilter = "(&(objectCategory=group)(cn=" & objExcel.Worksheets(1).Cells(x,1).Value & "))" strAttributes = "sAMAccountName,cn,member,objectClass" strQuery = strBase & ";" & strFilter & ";" & strAttributes & ";subtree" objCommand.CommandText = strQuery objCommand.Properties("Page Size") = 100 objCommand.Properties("Timeout") = 30 objCommand.Properties("Cache Results") = False Set objRecordSet = objCommand.Execute objExcel.Worksheets(1).cells(x, 2).value=objRecordSet.Fields("objectCategory").Value If objRecordSet.Fields("objectClass").Value = "Top;group" Then Do Until objRecordSet.EOF MbrName = objRecordSet.Fields("sAMAccountName").Value Wscript.echo "Beginning of enumeration of group " & MbrName y=2 arrUsers = objRecordSet.Fields("member").Value If IsNull(arrUsers) Then Wscript.Echo "-- No users assigned to group" Else If w>=4 Then objExcel.worksheets.Add objExcel.WorkSheets(w).move objExcel.WorkSheets(w-1) End If objExcel.WorkSheets(w).Activate objExcel.WorkSheets(w).Cells(1, 1).Value = MbrName For Each strUser In arrUsers If objRecordSet.Fields("objectClass").Value = "Top;group" Then objExcel.WorkSheets(w).cells(y,1).value=strUser y=y+1 End If Next End If objRecordSet.MoveNext objExcel.WorkSheets(w).name = MbrName w=W+1 Loop End IF x=x+1 loop objWshNet.removenetworkdrive DrvLetter, True, True objConnection.Close wscript.quit Tag: Corum Bubble Mini Diamond Steel Blue Ladies Watch Tag: 217706
  - 2
    - find account number in excel files I am looking for a script to find only "account Number" in some excel files. I tried to use simply bat file such as Find /C "ACCOUNT NUMBER" "D:\data\ *.* "d:\find.txt" First it didn't work and find 0 second it gets access denied on the network drive even at local server which the drives sits. Any input is welcome and appreciated! G Tag: Corum Bubble Mini Diamond Steel Blue Ladies Watch Tag: 217703
  - 3
    - Find PST file and give path and size I want to run the script from any computer and go to the path and search for any pst. strPath = "\\lmdatastore\data01\users\" strUserName = "wperez" strExtension = "pst" Set objWMIService = GetObject("winmgmts:" _ <---- error in this block & "{impersonationLevel=impersonate}!\\" _ & strPath & "\root\cimv2") ----> error in this block Set colItems = objWMIService. _ ExecQuery("Select * From Cim_DataFile " _ & "Where (Path = '" & strPath & "' & '" & strUserName & "' & And Extension='" & strExtension & "'") ' WScript.Echo "# of files found: " & colItems.Count For Each objItem In colItems Wscript.Echo "-----------------------------------" Wscript.Echo "CIM_DataFile instance" Wscript.Echo "-----------------------------------" Wscript.Echo "FileName: " & objItem.Name WScript.Echo "FileSize (bytes): " & objItem.FileSize WScript.Echo strpath & strUserName Next I am getting an error: (18, 1) (null): 0x80041021 Tag: Corum Bubble Mini Diamond Steel Blue Ladies Watch Tag: 217699
  - 4
    - Problem Passing Parameter to Web Method with VBScript I am using VBScript to access a remote database server via a web service. I am trying to call a web method that hits a database and runs the query I pass in as a parameter and returns the results. However, I am being returned an error that says the CommandText property has not been initialized. I researched the error, and I discovered that my sqlQuery parameter is not reaching the web service, so the service is trying to execute a blank command, which throws the error. I thought I was properly forming my SOAP command to pass the parameter, but maybe I am not. Here is the VBScript code to form the SOAP command and send it: Dim strSoapAction Dim strUrl Dim strXml Dim strParam Dim xmlDOC Set xmlDOC = CreateObject("MSXML2.DOMDocument.6.0") strParam = "SELECT KeyField, DataField FROM TestTable WHERE StatusField = 'Bad'" strUrl = "http://localhost/MOM_POC_DummyService/DataService.asmx" strSoapAction = "http://tempuri.org/GetDBData" strXml = "<?xml version=""1.0"" encoding=""utf-8""?>" & _ "<soap:Envelope xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" xmlns:xsd=""http://www.w3.org/2001/XMLSchema"" xmlns:soap=""http://schemas.xmlsoap.org/soap/envelope/"">" & _ "<soap:Body>" & _ "<CheckActCode xmlns=""http://tempuri.org/"">" & _ "<actCode>" & strParam & "</actCode>" & _ "</CheckActCode>" & _ "</soap:Body>" & _ "</soap:Envelope>" xmlDOC.loadXML(PostWebservice(strUrl, strSoapAction, strXml)) And here is the PostWebService function: Function PostWebservice(AsmxUrl, SoapActionUrl, XmlBody) Dim objDom Dim objXmlHttp ' Create objects to DOMDocument and XMLHTTP Set objDom = CreateObject("MSXML2.DOMDocument") Set objXmlHttp = CreateObject("MSXML2.XMLHTTP") ' Load XML objDom.async = False objDom.loadXML XmlBody ' Open the webservice objXmlHttp.open "POST", AsmxUrl, False ' Create headings objXmlHttp.setRequestHeader "Content-Type", "text/xml; charset=utf-8" objXmlHttp.setRequestHeader "SOAPAction", SoapActionUrl ' Send XML command objXmlHttp.send objDom.xml PostWebservice = objXmlHttp.responseXml.xml End Function This code works and returns data when I call web methods that do not require passed parameters, but this web method requires a single parameter (string sqlQuery). Any help would be greatly appreciated as to what I am doing wrong. Thanks in advance Tag: Corum Bubble Mini Diamond Steel Blue Ladies Watch Tag: 217698
  - 5
    - scheduleing a DOS program Hi, I like to schedule a DOS program to be executed and during the executing time, it will take a predefined input and direct the output to a file. basically, the DOS program is SQLIO, downloadable from Microsoft. I following its document to do the series of ios sqlio -kW -s10 -frandom -o8 -b8 -LS -Fparam.txt timeout /T 60 > c:\out.log sqlio -kW -s360 -frandom -o8 -b64 -LS -Fparam.txt timeout /T 60 >> c:\out.log but, it won't complete. the c:\out.log was created. there is nothing in there. neither was it seemed executing sqlio at all. is there special command to DOS program in general to redirect output to a file? thanks. Tag: Corum Bubble Mini Diamond Steel Blue Ladies Watch Tag: 217693
  - 6
    - Script Host Error I am trying to run this script: Const CONVERSION_FACTOR = 1048576 Computer = "IT-Admin" Set objWMIService = GetObject ("winmgmts://" & Computer) Set colLogicalDisk = objWMIService.InstancesOf ("Win32_LogicalDisk.") For Each objLogicalDisk In colLogicalDisk FreeMegaBytes = objLogicalDisk.FreeSpace / CONVERSION_FACTOR Wscript.Echo objLogicalDisk.DeviceID & " " & Int(FreeMegaBytes) Next Whenever I run it I get this error: Script: {path to script} Line: 5 Char: 1 Error: 0x80041010 Code: 80041010 Source: (null) Can anyone tell me what this means and what I am doing wrong. Tag: Corum Bubble Mini Diamond Steel Blue Ladies Watch Tag: 217691
  - 7
    - Vista Stratup Script Hi, I have a question: I had a GPO statup script for creating some registry key under HQLocal Machine for XP. It's works fine under Windows XP but under Windwos Vista the startup script doesn't works. If I make a GP Result, I see that the GPO is applied. If I thest to launch the scipt under a user session(with the right to write into the registry) it works fine. How have a solution ? Tag: Corum Bubble Mini Diamond Steel Blue Ladies Watch Tag: 217681
  - 8
    - Vb Script to change Account lockout threshold Hello: I am looking for a way to change the Account Policy->Account Lockout Policy->Account lockout threshold through a vbscript or command line. I am wanting to run this script on a computer in a workgroup, NOT a domain. Thanks Tag: Corum Bubble Mini Diamond Steel Blue Ladies Watch Tag: 217677
  - 9
    - Copy XML from HTTP URL to hard disk? Hi all. In this URL is the SDN.xml file http://www.treas.gov/offices/enforcement/ofac/sdn/sdn.xml I need to automatically copy the file to hard disk. Thanks for your help. Tag: Corum Bubble Mini Diamond Steel Blue Ladies Watch Tag: 217674
  - 10
    - VbScript and Visual Studio 2005 Hello, can I use Visual Studio to debug a script? Thanks. Tag: Corum Bubble Mini Diamond Steel Blue Ladies Watch Tag: 217667
  - 11
    - Closes Outlook using VBS script Hi, I am looking for a simple script that will close Outlook 2003 in an elegant fashion rather than killing the outlook.exe process. I have in the past used a script but I see that wscipt.exe hangs at 50% as if the script caonnt complete. on error resume next Set objOutlook = GetObject(, "Outlook.Application") do while ObjOutlook.Inspectors.Count <> 0 For Each objInspector In objOutlook.Inspectors objInspector.CurrentItem.Save objInspector.Close True Next loop objOutlook.quit Can anyone let me know if they have a script that works all the time without wscript.exe hanging at all? Thank you Oli Tag: Corum Bubble Mini Diamond Steel Blue Ladies Watch Tag: 217665
  - 12
    - Sending mail using cdosys and a html template Hi there, I want to sent form values in a HTML-mail using CDOsys and a HTML- template. The 'placeholders' in the template should be filled with the values from the form. Does anyone knows how to do this and has some sample code for me? Thanks! Tag: Corum Bubble Mini Diamond Steel Blue Ladies Watch Tag: 217664
  - 13
    - Error on 64 bit systems... Hello, I'm trying the following script on 32 bit remote servers and it is working great. However, as soon as I use this same script to run on 64 bit systems, it gives me the errors mentioned after the script below: 'On Error Resume Next Const HKEY_LOCAL_MACHINE = &H80000002 strServer = InputBox("Enter Server Name here: ") strServer = Trim(strServer) If IsEmpty(strServer) Then WScript.Echo "You have to enter a valid Server Name...ending Script" ElseIf Len(strServer) = 0 Then WScript.Echo "You have to enter a valid Server Name...ending Script" Else Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strServer & "\root\default:StdRegProv") strKeyPath = "SYSTEM\CurrentControlSet\Control\Session Manager \Environment" strValueName = "PROCESSOR_ARCHITECTURE" oReg.GetStringValue HKEY_LOCAL_MACHINE, strKeyPath, strValueName, strValue If strValue = "x86" Then WScript.Echo "32 bit OS" Else WScript.Echo "64 bit OS" End If End If Error: C:\BT\Scripts\2003SP2Auto\32or64.vbs(19, 1) Microsoft VBScript runtime error: Th e remote server machine does not exist or is unavailable: 'GetObject' Note: I'm trying to run the above script from a 2003 SP2 32-bit server and entering a remote 64-bit server name at the prompt. Please help ! Tag: Corum Bubble Mini Diamond Steel Blue Ladies Watch Tag: 217657
  - 14
    - If "HKEY_CURRENT_USER\Software\Microsoft\Communicator\Transport" e I'm trying to create a script that checks if the following key exist on users' pc: HKEY_CURRENT_USER\Software\Microsoft\Communicator\Transport If exist, exit the script, if not exist create the key as following: WSHShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Communicator\Transport", 1, "REG_DWORD" I cannot get this to work. Thank you for any help. Tag: Corum Bubble Mini Diamond Steel Blue Ladies Watch Tag: 217656
  - 15
    - form c# to classic vbscript (asp) Hi there, I need to translate the following code to "classic" vbscript... can someone help me out? thanks! <script language="C#" runat="server"> public string GetTemplate() { StringBuilder aBuilder = new StringBuilder(); StreamReader re = File.OpenText("d:\\www\\mysite\\www\\includes\ \mail_template.htm"); string input = null; while ((input = re.ReadLine()) != null) { aBuilder.Append(input); } re.Close(); return aBuilder.ToString(); } private void btnSend_Click(object sender, System.EventArgs e) { MailMessage msg = new MailMessage(); msg.To = txtTo.Text; msg.Bcc = "spam@me.com"; msg.From = txtFrom.Text; msg.Subject = txtFromName.Text + " has a tip for you"; msg.BodyFormat = System.Web.Mail.MailFormat.Html; msg.Body = GetTemplate().Replace("NameR",txtFromName.Text).Replace("IngridR",txtIngr.Text).Replace("PrepR",txtPrep.Text).Replace("ServesR",txtServes.Text).Replace("RecNamR",txtRecName.Text);; //.Replace("UrlR",Request.ServerVariables["HTTP_REFERER"]); SmtpMail.Send(msg); Response.Redirect("succes.asp"); } </script> Tag: Corum Bubble Mini Diamond Steel Blue Ladies Watch Tag: 217653
  - 16
    - Find PST On both c:\ and u:\ strComputer = "." ' use "." for local computer strDrive = "c:" strExtension = "pst" Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colItems = objWMIService. _ ExecQuery("Select Name from CIM_DataFile" _ & " where Drive ='C:' and Extension='pst'") '& " where '" & strDrive & "' & '" & strExtension & "'") - I would like to use this but it will not work 'WScript.Echo "# of files found: " & colItems.Count For Each objItem In colItems Wscript.Echo "-----------------------------------" Wscript.Echo "CIM_DataFile instance" Wscript.Echo "-----------------------------------" Wscript.Echo "FileName: " & objItem.Name WScript.Echo "FileSize: " & objItem.size - I can not get the file saize Next Error - U:\Scripts\FindPST.vbs(33, 5) Microsoft VBScript runtime error: Object doesn't support this property or method: 'objItem.size' Please help Tag: Corum Bubble Mini Diamond Steel Blue Ladies Watch Tag: 217652
  - 17
    - BrosweForFolder method erroring out I have a very simple script that is crashing on me with an error code 80004005. I am running the script on a Windows Vista machine from the my documents folder with a standard user account here is the code snippet SET objShell = WScript.CREATEOBJECT("SHELL.Application") SET objFolder = objShell.BrowseForFolder(0,"Select a File", &H4000, strpath) I can browse to and select the file I need, the crash occurs once the file is selected and points to the SET objFolder line. Thanks for any help you can provide. Tag: Corum Bubble Mini Diamond Steel Blue Ladies Watch Tag: 217645
  - 18
    - Create function in dll - New to VB world Hi folks, I am totally new to VB. I would like to create a function in dll (VB6) which can be called by MS Access and Excel. Please guide me step by step to create it. Public function TotalSale(quantity as integer, cost as integer) as integer TotalSale = quantity*cost*1.3 End function Thanks in advance. Tim. Tag: Corum Bubble Mini Diamond Steel Blue Ladies Watch Tag: 217643
  - 19
    - return security access for a folder - DACL I am trying to write a script that will first list the security groups on a folder and their level of access - for example Admisitrators - Allowed - Full Control. Eventually I will want to output the users within these groups also. I am stuck in the first step. When i run the below script it always returns "No DACL present in security descriptor". For some reason it is not connecting and reading the folder i specify in strFolderName. I copied the beginning of the script below. Any help with identifying what is wrong is appreciated. Set objExcel = CreateObject("Excel.Application") On Error resume Next objExcel.Visible = True objExcel.Workbooks.Add objExcel.Cells(2, 1).Value = "Login\Group Name" objExcel.Cells(2, 1).Font.Bold = TRUE objExcel.Cells(2, 2).Value = "Access Allowed\Denied" objExcel.Cells(2, 2).Font.Bold = TRUE objExcel.Cells(2, 3).Value = "Permission Assigned" objExcel.Cells(2, 3).Font.Bold = TRUE objExcel.WorkSheets(1).name = "Permissions List" strFolderName = "c:\scripts" objExcel.Cells(1, 1).Value = strFolderName SE_DACL_PRESENT = &h4 ACCESS_ALLOWED_ACE_TYPE = &h0 ACCESS_DENIED_ACE_TYPE = &h1 'Set objWMIService = GetObject("winmgmts:") Set objWMIService = GetObject("winmgmts:\\" & strFolderName & "\root\cimv2") objWMIService.Get("Win32_LogicalFileSecuritySetting='" & strFolderName & "'") intRetVal = objFolderSecuritySettings.GetSecurityDescriptor(objSD) intControlFlags = objSD.ControlFlags If intControlFlags AND SE_DACL_PRESENT Then arrACEs = objSD.DACL X=3 For Each objACE in arrACEs objExcel.Cells(x, 1).Value = _ objACE.Trustee.Domain & "\" & objACE.Trustee.Name If objACE.AceType = ACCESS_ALLOWED_ACE_TYPE Then objExcel.Cells(x, 2).Value = _ vbTab & "Allowed:" ElseIf objACE.AceType = ACCESS_DENIED_ACE_TYPE Then objExcel.Cells(x, 2).Value = _ vbTab & "Denied:" End If If objACE.AccessMask = "1245631" Then objExcel.Cells(x, 3).Value = "Modify" End If If objACE.AccessMask = "1179785" Then objExcel.Cells(x, 3).Value = "Read Only" End If If objACE.AccessMask = "1179817" Then objExcel.Cells(x, 3).Value = "Read & Execute" End If If objACE.AccessMask = "2032127" Then objExcel.Cells(x, 3).Value = "Full Control" End If X=X+1 Next Else WScript.Echo "No DACL present in security descriptor" End If Tag: Corum Bubble Mini Diamond Steel Blue Ladies Watch Tag: 217633
  - 20
    - Save script output to a text file I wrote a script to pull printer name, serial number and page counts from our printers. How can I save the results to a text file? This is the script: Model = "mib-2.43.5.1.1.16.1" SerialNumber = "mib-2.43.5.1.1.17.1" PageCount = "mib-2.43.10.2.1.4.1.1" Host = "C:\testhost.txt" Set objfso = CreateObject("Scripting.FileSystemObject") Set exec = CreateObject("WScript.Shell") Set hostw = objfso.OpenTextFile(host, 1, True) Do Until hostw.AtEndOfStream r = hostw.ReadLine WScript.Echo "start here" WScript.Echo r Set Loger = exec.Exec("snmpwalk -v 1 -c public " & r & " " & Model) b = Loger.stdout.readall WScript.Echo Replace(b, "SNMPv2-SMI:: = STRING: "& Model,"") Set Loger2 = exec.Exec("snmpwalk -v 1 -c public " & r & " " & SerialNumber) b2 = Loger2.stdout.readall WScript.Echo Replace(b2, "SNMPv2-SMI:: = STRING: "& SerialNumber,"") Set Loger3 = exec.Exec("snmpwalk -v 1 -c public " & r & " " & PageCount) b3 = Loger3.stdout.readall WScript.Echo Replace(b3, "SNMPv2-SMI:: = counter32: "& PageCount,"") Loop Tag: Corum Bubble Mini Diamond Steel Blue Ladies Watch Tag: 217632
  - 21
    - script to map tcp/ip printer I'm looking for a script that will map a printer based on ip address and also will assign it the generic laserjet 5 driver. For example if the print server goes down, a script to execute that will add the port number ip_192.168.1.x using the laserjet 5 print driver and possibly setting it as the default. Any ideas? This needs to work on XP and Windows 2000 pcs. If this can be done via batch file, let me know. Thanks. Tag: Corum Bubble Mini Diamond Steel Blue Ladies Watch Tag: 217631
  - 22
    - Re: framing a smarter search string in vbScript Hi, Is there a way to search for multiple strings in a text document. I am looking for 5 alphabets (which can be upper or lower) or numbers etc and am using instr to do that. IT makes for a very long code. Is there a smarter way to use instr( textstring, search string) where it will let me search for more than 1 thing a time incl upper and lower For each desc in descol if level = 0 then objFileW.Write "Name:" & desc elseif level=1 and (instr(desc,"k", 1) or instr(desc,"M",1 or inst(desc, "K",1) ......... then SA Tag: Corum Bubble Mini Diamond Steel Blue Ladies Watch Tag: 217625
  - 23
    - Win32_PingStatus on Vista (works on XP) I've nearly completed an HTA that uses the Win32_PingStatus to verify if a computer is up and running. If so it uses additional WMI to gather the computer name, logged on user and domain. Once that's is done it offers 4 options - Computer Management, Remote Assistance, Remote Desktop and connecting to c$. Very nice and almost done if it weren't for Vista. The code below (with the On Error disabled) errors at "For" with "Could not completed the operation due to error 80041001" but only when a number is enter that is smaller than 1677216 (which equates to 0.255.255.255. If the number enter is 1677216 (which equates to 1.0.0.0) then it will work properly. The problem is that it will work properly with both computer names and IP addresses and it is possible to name a computer, 45. I've tried checking the valued entered for a "." to make sure it's not an IP address and then using CStr so Vista won't treat it as number. This still doesn't work! Any ideas how to circumvent this problem? By the way, the onload checks the versions of Windows so I have the option to code using that and in some other places I do. ----------------------------------- Set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}").ExecQuery _ ("select * from Win32_PingStatus where address = '" & strCPU & "'") 'On Error Resume Next For Each objStatus in objPing... ----------------------------------- Tag: Corum Bubble Mini Diamond Steel Blue Ladies Watch Tag: 217623
  - 24
    - Domain connection detection I would like to get a consensus from the group on the best / preferred method for detecting a connection to the domain for which a computer is a member of. I am going to write a script that runs at startup for laptop users that will check for a connection to the domain and exit if present. If not present, it will sit in an endless loop watching for a connection and then perform some tasks (map drives, check password expiration, etc) upon connection. I am considering pinging a known server. I am also considering using 'Scripting.FileSystemObject's' 'FolderExists' method to check for the DFS root. Which of these two methods would be the preferred method and are there other, better methods? Tag: Corum Bubble Mini Diamond Steel Blue Ladies Watch Tag: 217621
  - 25
    - Connection to a domain from a client in workgroup Hi, my situation is: - Windows domain 2003 R2 with few clients XP Prof Sp2 - few clients XP Prof SP2 in workgroup I need to create a vbs script that it is able to connect to the domain from a client that resides in the workgruop. So, I suppose that the script must contain the necessary information to connect to the specific domain. And when the connection is established, the script must read some user properties and the make some operation in the client. How can achieve this goal? Thanks. Fr. Tag: Corum Bubble Mini Diamond Steel Blue Ladies Watch Tag: 217620

Corum Bubble Mini Diamond Steel Blue Ladies Watch 101-173-47-0011-PN55

Corum Bubble Mini Diamond Steel Blue Ladies Watch 101-173-47-0011-PN55
Link :
http://corum.hotwatch.org/Corum-Ladies-Watch-101-173-47-0011-PN55.html

Corum Bubble Mini Diamond Steel Blue Ladies Watch 101-173-47-0011-PN55
Information :

Brand : Corum Watches ( http://corum.hotwatch.org/ )
Gender : Ladies
Code : Corum-Ladies-Watch-101-173-47-0011-PN55
Item Variations : 101-173-47-0011-PN55, 101173470011PN55,
Corum-101-173-47-0011-PN55
Movement : Quartz
Bezel : Diamond
Case Material : Stainless Steel
Case Diameter : 26mm
Dial Color : Blue Mother-of-pearl
Crystal : Scratch Resistant Sapphire
Clasp : Blue Leather
Water Resistant : 30m/100ft

Stainless Steel Case. Blue Leather Strap. Blue Mother-of-pearl Dial.
Diamond Bezel. Tang Clasp. Domed Scratch Resistant Sapphire Crystal.
Case And Lugs Set With Blue Sapphires. Case Diameter 26mm. Case
Thickness 14mm. Quartz Movement. Water Resistant At 30 meters (100
feet).

The Same Corum Watches Series :

Corum Bubble Mini Diamond Steel Green Ladies Watch 101-172-47-0007-
PN54 :
http://corum.hotwatch.org/Corum-Ladies-Watch-101-172-47-0007-PN54.html

Corum Bubble Mini Diamond Steel Metallic Blue Ladies Watch
101-153-47-0011-PN55 :
http://corum.hotwatch.org/Corum-Ladies-Watch-101-153-47-0011-PN55.html

Corum Bubble Mini Diamond Steel Metallic Pink Ladies Watch
101-153-47-0008-PN56 :
http://corum.hotwatch.org/Corum-Ladies-Watch-101-153-47-0008-PN56.html

Corum Bubble Mini Diamond Steel Blue Ladies Watch 101-151-47-0F11-
PN55 :
http://corum.hotwatch.org/Corum-Ladies-Watch-101-151-47-0F11-PN55.html

Corum Bubble Mini Diamond Steel Blue Ladies Watch 101-151-47-0F11-
PN52 :
http://corum.hotwatch.org/Corum-Ladies-Watch-101-151-47-0F11-PN52.html

Corum Bubble Mini Diamond Steel Black Ladies Watch 101-151-47-0F01-
PN52 :
http://corum.hotwatch.org/Corum-Ladies-Watch-101-151-47-0F01-PN52.html

Corum Bubble Mini Mother-of-pearl Ladies Watch 101-150-20-0F11-PN52 :
http://corum.hotwatch.org/Corum-Ladies-Watch-101-150-20-0F11-PN52.html

Corum Bubble Mini Blue Mother-of-pearl Ladies Watch 101-150-20-0F01-
PN55 :
http://corum.hotwatch.org/Corum-Ladies-Watch-101-150-20-0F01-PN55.html

Corum Bubble Large Stainless Steel Mens Watch 163-150-20-0F05FZ30R :
http://corum.hotwatch.org/corum-bubble-large-163150200F05FZ30R.html

Corum Bubble Large Chronograph Mens Watch 396-150-20-0F03FB30R :
http://corum.hotwatch.org/corum-bubble-large-396150200F03FB30R.html

Top