create an administrative share on c$ via script?

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
    - shortcut-extended there is scripting object "shortcut", but it mainly manages target, name, path etc ... is it possible to manage *every* item appearing on shortcut's sheet with vbscript, like gui does? i am specialy interested on setting "close on exit" for dos prompts shortcuts. Tag: create an administrative share on c$ via script? Tag: 167706
  - 2
    - How to copy & paste by using vbscript? Thanks in advance. Tag: create an administrative share on c$ via script? Tag: 167698
  - 3
    - Documentation for FileScriptingObject Hi, Is the FileScriptingObject documented anywhere? Thanks. Raphael Tag: create an administrative share on c$ via script? Tag: 167697
  - 4
    - how to create a folder based on login In an workgroup environment i must create a script that gets the name of each client local machine and then it should create a folder with that machine name in the server. If already exists the folder for ie "xpto" the script shouldn't do nothing. Another doubt remains once i'm working in an workgroup environment should i put this script running through a schedule task or by service?... If the second choice is better how can I do that? Ricky Tag: create an administrative share on c$ via script? Tag: 167695
  - 5
    - rename multiple computer accounts with csv file Hello .. We have to change all our 200 clients to a new domain.. therfore we have some scripts... thats ok ..but we have to change all computer names, too. I habe found a really good script to change a single computer account with vbs http://cwashington.netreach.net/depo/view.asp?Index=990&ScriptType=vbscript it works with a Inputbox but i would like to have a script which reads the old computername in the first column of a .csv file and takes the new computername from the same row but the second column. But my script-experience isn't high enough.. I think that some other admins have similar scenarios..to manage it. I have found this script/function to parse a line from a csv and return a value based on the field id http://cwashington.netreach.net/depo/view.asp?Index=958&ScriptType=vbscript but I don't get it work together.. I hope anyone can help me all my searches at google and groups comes to nothing sorry for my bad english.. I'm from germany ;-) Happy New Year 2005 Here are the scripts ------------------------------------------------------------------------------- Dim RegKeyCompName, RegKeyTCPIP, WSHShell, ComputerName, HostName, DomainName, FQDN, ADRootDSE, ADSysInfo, ADComputerName, ADRenameOK, ADRNewName, vStartRenameCA, NewNAmeU, NewNameL, vStartRenameAD On Error Resume Next '###### READ IN EXISTING COMPUTERNAME AND FQDN ###### RegKeyCompName = "HKLM\SYSTEM\CurrentControlSet\Control\ComputerName\" RegKeyTCPIP = "HKLM\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\" Set WSHShell = CreateObject("WScript.Shell") ComputerName = WSHShell.RegRead (RegKeyCompName & "ComputerName\ComputerName") Hostname = WSHShell.RegRead (RegKeyTCPIP & "Hostname") DomainName = WSHShell.RegRead (RegKeyTCPIP & "Domain") FQDN = HostName & "." & DomainName Set ADRootDSE = GetObject("LDAP://RootDSE") If Err.Number <> 0 then ADComputerName = "Unable to determine this information" ADOU = "Unable to determine this information" ADRenameOK = "0" else Set ADSysInfo = CreateObject("ADSystemInfo") ADComputerName = ADSysInfo.ComputerName 'Get DN of local computer ADRenameOK = "1" ADOU = Mid(ADComputerName, InStr(ADComputerName, "=") + 1) 'Strip off just after the first = sign ADOU = Mid(ADOU, InStr(ADOU, "=") - 2) 'Strip off at 2 before the second = sign ComputerPath = "LDAP://" & ADComputerName OUPath = "LDAP://" & ADOU End if '###### ASK USER FOR NEW DETAILS ########### MsgBox "This script renames this computer and its active directory account" & vbCr & vbCr & "Name: " & ComputerName & vbCr & "FQDN: " & FQDN & vbCr & vbCr & "AD DN: " & ADComputerName & vbCr & "AD OU: " & ADOU, 0, "Information" NewName = InputBox("Enter the new computer name below and click OK to continue","Rename: Step 1") NewNameU = UCase(NewName) NewNameL = LCase(NewName) NewNameUCN = "CN=" & NewNameU if NewName = "" then wscript.echo "The computer name has not been changed" else vStartRenameCA = MsgBox ("Continue and rename computer to: " & NewName,vbYesNo or vbExclamation,"Rename: Step 2") if vStartRenameCA = 6 then With WSHShell .RegDelete RegKeyTCPIP & "Hostname" .RegDelete RegKeyTCPIP & "NV Hostname" .RegWrite RegKeyCompName & "ComputerName\ComputerName", NewNameU .RegWrite RegKeyCompName & "ActiveComputerName\ComputerName", NewNameU .RegWrite RegKeyTCPIP & "Hostname", NewNameL .RegWrite RegKeyTCPIP & "NV Hostname", NewNameL End With wscript.echo "The computer name and FQDN have been changed" elseif vStartRenameCA = 7 then wscript.echo "The computer name and FQDN have NOT been changed" end if if ADRenameOK = 1 then vStartRenameAD = MsgBox ("Continue and rename AD Account to: " & NewName,vbYesNo or vbExclamation,"Rename: Step 3") if vStartRenameAD = 6 then Set objItem = GetObject(ComputerPath) objItem.Put "dNSHostName", NewNameL & DomainName objItem.SetInfo objItem.Put "displayName", "DESKTOP_" & NewNameU & "$" objItem.SetInfo objItem.Put "sAMAccountName", NewNameU & "$" objItem.SetInfo Set objNewOU = GetObject(OUPath) Set objMoveComputer = objNewOU.MoveHere _ (ComputerPath, NewNameUCN) wscript.echo "The active directory computer account has been changed" elseif vStartRenameAD = 7 then wscript.echo "The computer account in AD has NOT been changed" End If else wscript.echo "Insufficient information to rename AD account" End If End if ------------------------------------------------------------------------ ---------------------------------------------------------------------------- ' Sample Usage -- TestString = "Phyisical, Data, Network, Transport, Application, Session, Presentation" 'FYI - First data field is id=0 WScript.Echo CSV_Results(TestString, 2) 'Echoes "Network" WScript.Echo CSV_Results(Teststring, 6) 'Echoes "Presentation" '------ Private Function CSV_Results(csvstring, fieldID) i = 0 Comma = Array(i) result = Array(i) Comma(i) = InStr(1, csvstring, ",") result(i) = Left(csvstring, Comma(i)-1) If InStr(1, result(i), CHR(34)) <> 0 Then Qpos1 = InStr(1, csvstring, CHR(34)) Qpos2 = InStr(Qpos1 +1 , csvstring, CHR(34)) Comma(i) = InStr(Qpos2 +1, csvstring, ",") result(i) = Mid(csvstring, Qpos1+1, Qpos2-Qpos1-1) End If Do While Comma(i) <> 0 i = i + 1 ReDim Preserve Comma(i) ReDim Preserve result(i) Comma(i) = InStr(Comma(i-1)+1, csvstring, ",") If Comma(i) <> 0 Then result(i) = Mid(csvstring, Comma(i-1)+1, Comma(i) - Comma(i-1) -1 ) If InStr(1, result(i), CHR(34)) <> 0 Then Qpos1 = InStr(Comma(i-1), csvstring, CHR(34)) Qpos2 = InStr(Qpos1 +1 , csvstring, CHR(34)) Comma(i) = InStr(Qpos2 +1, csvstring, ",") result(i) = Mid(csvstring, Qpos1+1, Qpos2-Qpos1-1) End If End If Loop strLength = Len(csvstring) result(i) = Right(csvstring, strLength - Comma(i-1)) If InStr(1, result(i), CHR(34)) <> 0 Then result(i) = Replace(result(i), CHR(34), "") End If CSV_Results = result(FieldID) End Function ------------------------------------------------------------------------- Tag: create an administrative share on c$ via script? Tag: 167693
  - 6
    - Need Loop with Timer Assistance I don't code in VB script much; thus, here's my question.... I need the following script to loop until the {Spacebar} key is pressed; moreover, the loop needs to re-iterate after a two second pause. ====START==== Dim objShell Set objShell = CreateObject("WScript.Shell") objShell.SendKeys "^{z}" WScript.Quit ====END===== Thanks in advance, Todd Tag: create an administrative share on c$ via script? Tag: 167692
  - 7
    - How to create printer share using vbscript ? Dear all, Is anybody know how to create printer share using vbscript ? Thanks. Tag: create an administrative share on c$ via script? Tag: 167686
  - 8
    - VBScript to set IE proxies Hi, I have a question that I have no idea where to even begin researching. I want to write a vbscript, 2 of them actually. One script should set up a hardcoded set of proxies for IE to use and the other should clear all proxy lists that IE uses. I'm sure its a rather simple thing to do, but I don't know where WinXP stores this information. I assume it is an registry setting. Thanks, Brett Tag: create an administrative share on c$ via script? Tag: 167680
  - 9
    - Run code based on subnet I'm pretty much just starting out with vbscript and I'm a long ways from knowing how to do something like this myself. In short, I need a script that copies files from a network share to a folder on the local drive based on where they are at in our agency (location). Since each seperate location is its own network (ie: 192.168.1.0, 192.168.2.0, 192.168.3.0, ect), I need the user, when they log in, depending on what building they are at, to transfer files from a server located at that building to their local hard drive. We have a sql server located at one complex and all the other buildings connectec via T1s. Every now and then our 3rd party developers will log into our SQL server and update software libraries then force all the clients in the network to update those libraries. When all the employess in the agency come to work the next morning and all log into our database software, they all start pulling those new libraries over at the same time. These aren't small files and when everyone is doing it, it takes up to a half hour or even fails because it's too much bandwidth for the T1s to handle. One way I temporarily fixed this was to copy the files onto a server located at each facility. Then, I made a link on the internal website with a label for each building. We would tell people to go to the internal website and click on the link that represents where they are. This would run the batch file wich was written to copy the updated software libraries from a local (on the same subnet) server to their harddrive instead of having them auto-download them from over the T1s. We've aleady told our 3rd party developer not to force the downloads anymore. But, we need to find a way to force the downloads ourselves so the employess don't have to go to the internal website and click on the appropriate link. I was hoping there would be a way in a longon vbscript (domain logon) that would cause the user to transfer the libraries from the local server to their harddrive based on what location they are at. Sorry this was so much reading but I wanted to make it as clear as possible. Thanks, Jim Tag: create an administrative share on c$ via script? Tag: 167672
  - 10
    - Detecting Battery Mode programatically Is there a way to detect weather my laptop is using the battery or power-cable programatically in Windows Script? I have an IBM ThinkPad A30 with Windows 2000 SP3 with a background service that takes up a large processing power when activated. If possible, I'd like to shut-down this service automatically whenever I un-plug the laptop, then start it back up again when I plug it back in. I have search the forum for solution and try to use WMI win32_battery to get information on my Windows XP Pro, but it seems not work, for the properitiers of "BatteryStatus", it just return "1 - Other" when my notebook is using battery and return "2 - unknow" when I attach power cable to my notebook, but it should return "charging" or "using battery". Why I want to get information of power status ? I want to automatically install windows xp sp2 patch for all my office desktop and notebook sliently , but it seems not work on notebook when it's using battery power. Is somebody can help me ? Thanks in advance. Motor. Tag: create an administrative share on c$ via script? Tag: 167662
  - 11
    - Current logged on user and session time. How can I use vbs to remotely (or locally) determine what username is currently logged in at the desktop of a workstation and also how long that username has been logged in? I don't need the code necessarily, just a place to look. Thanks Tag: create an administrative share on c$ via script? Tag: 167659
  - 12
    - determine current directory script is executing in? Hi all. I have a script thats going to connect to a remote machine and copy files back to the local (executing) machine. Problem is, I need to get the scripts copied back to whatever directory the script is running in (it will be distributed to folks and thay can put it where they want it) and so need to determine that relative location so I can pass it in as the copy to path. Can someone help? Tag: create an administrative share on c$ via script? Tag: 167658
  - 13
    - ftp - vbnet Could anyone send me the code haow can I ftp a couple of files into server Windows 2003 server with normal FTP service as a integral part of IIS 6.0 (with or without of anonymous access) regards D.T. Tag: create an administrative share on c$ via script? Tag: 167656
  - 14
    - Vbscript help needed! hi. i need a bit of help here.. what i am trying to do is a pretty easy thing to do (or would be for someone who understands vbscript) i have some syslog messages from a cisco pix that i need to parse into relavant information. i have this so far which gives me the eventid, but i need to get out the source and destination ip's and ports. if anyone can help, i'd much apreciate it! thanks in advance, Rob here is the script as it is: Function Main() ' Set the return value to OK Main = "OK" ' By default, skip to the next rule, don't take the actions that follow ' If we exit the function before we get to the end, the default 'skip to next rule' ' will be used. Fields.ActionQuit = 100 ' Example of a PIX message ' %PIX-4-209004: Invalid IP fragment... ' %PIX-3-106011: Deny inbound (No xlate) udp src outside:192.168.40.15/138 dst outside:192.168.40.255/138 ' %PIX-3-305005: No translation group found for tcp src inside:192.168.200.157/2635 dst outside:195.44.45.243/25 ' %PIX-2-106016: Deny IP spoof from (127.0.0.1) to 212.85.6.13 on interface outside Dim M ' Message Dim E ' Explanation Dim A ' Action ' Copy message to local variable for speed M = Fields.VarCleanMessageText ' If message length is too short, exit function If Len(M) < 15 then exit function ' Grab the first 15 chrs M = Left(M,15) ' Check the message is a valid PIX message If Mid(M,1,5) <> "%PIX-" then exit function ' Add any additional checks you want to perform here E = "" ' Grab the important part ("4-209004") E = Mid(M,8,6) A = "" ' Exit if we don't have any values to pass ' If len() = 0 then exit function ' If len(A) = 0 then exit function ' Pass the Explanation and Action to take to the custom variables Fields.VarCustom01 = E ' Use the 2 custom variables in a "Log to ODBC database" action ' or the custom fields can be passed into a "Send e-mail" action as the message body. ' Since we have a valid match, we want to execute the send e-mail action which follows. ' Setting ActionQuit to 0 means we won't skip any actions. Fields.ActionQuit = 0 End function Tag: create an administrative share on c$ via script? Tag: 167654
  - 15
    - how to read XML? Hello Group, I need to write a script that read xml that describes process and services that shold run and to check them the part that check the service or process i know how by using WMI but the part missing is the how i read the xml . Thanks Tag: create an administrative share on c$ via script? Tag: 167649
  - 16
    - Not working why?? I have win xp prof This script print Error 3 line 5 mark. Whay?? Set colOperatingSystems = GetObject_ ("winmgmts:{(Shutdown)}").ExecQuery("Select * from Win32_OperatingSystem") For Each objOperatingSystem in colOperatingSystems ObjOperatingSystem.Win32Shutdown(1) Next Tag: create an administrative share on c$ via script? Tag: 167647
  - 17
    - Increments by 10, 20, 30 .... Hi All, I need a function that only allows Increments by 10, 20, 30..... How do I achieve this in VB Script? Any help is appreciated. TIA, -- Santosh Tag: create an administrative share on c$ via script? Tag: 167645
  - 18
    - Permission denied shutdown script I have written my first script and am having trouble with it. It is supposed to copy a folder on the local drive to a network so that it can be backed-up. dim myDate myDate = DatePart("y", myDate) Set fso = CreateObject("Scripting.FileSystemObject") dim fromFile fromFile = "C:\Documents and Settings\lars\Application Data\Opera\Opera 8 Beta\*" dim toFile toFile = "\\server\Data\My Documents\lars\Bookmarks\Opera\Backup" & myDate Set f = fso.CreateFolder(toFile) fso.CopyFolder fromFile, f.path , true When I execute this, "cscript cp.vbs", it works fine, copying the data to the server. I then placed the above script in C:\WINDOWS\system32\GroupPolicy\Machine\Scripts\Shutdown, and, using gpedit.msc, gone to the Local Computer Policy\Computer Configuration\Windows Settings\Scripts(Startup/Shutdown), selected Shutdown, and added this script to the Shutdown Scripts for Local Computer. When the system shuts down, I get a Permission Denied error '800a0046'. What am I missing here? Thanks, Lars Tag: create an administrative share on c$ via script? Tag: 167643
  - 19
    - How to select multiple items from a list box on an ASP page Hi there, I got a simple list box on an ASP page. I tried to select multiple items and use the item values to do something. I was able to get the item values. However, I got the following error from IE's Error on page. I have attached my VBScript below. Any idea why? <SCRIPT language ="vbscript"> sub Launch_OnClick dim i For i = 0 To document.Myform.Mylist.size msgbox document.Myform.MyList.item(i).value Next End Sub ERROR Line: 98 Char: 8 Error: Object required: 'document.Myform.Mylist.item(...)' Code: 0 URL: ..... Tag: create an administrative share on c$ via script? Tag: 167641
  - 20
    - Expiration Date Is there a way to enumerate all user accounts in the domain that will expire on or after Dec, 31st 2004? Tag: create an administrative share on c$ via script? Tag: 167640
  - 21
    - Using the ChilKatFTP dll with VBScript I'm still fairly new to VBScript (and WMI, and WSH) but I'm getting better. What I'm trying to do though is have my script handle FTP commands on it's own (instead of having the shell run the ftp -s:command.txt stuff)... I'm trying to use the chilkatftp dll (free use). Any help would be appreciated. Thanks! http://www.chilkatsoft.com/chilkatFtp.asp Tag: create an administrative share on c$ via script? Tag: 167629
  - 22
    - Rename... I'd like to rename the local administrator account to something like LocalAdmin on all workstations (about 200 pcs) in our domain. Would anyone provide vbscript codings on the matter? Appreciate for the help. Fan Tag: create an administrative share on c$ via script? Tag: 167625
  - 23
    - Communicating Between VB6 and a HTML Document I had a need to manipulate the activities of a webpage hosted by the WebBrowser control from within a Visual Basic project. The requirement was that VB must be able to communicate with VBScript, and vice versa. This is how I accomplished the task. I created a new Visual Basic project and placed the WebBrowser control on its default form. I initially set that control properties with a name of WebBrowser1, and as not visible. I placed a command button on top of the WebBrowser1 control, right-clicked it and sent it to the front and then right-clicked the WebBrowser1 control and sent it to the back. I set the form properties to not display a menu bar. I set the click event handler for the command button to end the program. In the form unload event is where I destroyed all objects before the VB program would end. This code would set the form to entirely fill a 1024x768 screen: Me.Move 0, 0 Me.Width = 15360: Me.Height = 11520 Me.Visible = True This code would then initialize that control for full screen and no taskbar or menus: WebBrowser1.Left = 10: WebBrowser1.Top = 10 WebBrowser1.Height = Me.Height - 20: WebBrowser1.Width = Me.Width - 20 WebBrowser1.AddressBar = False WebBrowser1.MenuBar = False WebBrowser1.StatusBar = False WebBrowser1.FullScreen = True WebBrowser1.TheaterMode = True WebBrowser1.GoHome WebBrowser1.Visible = True I defined a global variable named PageReady. Then this code in WebBrowser1.DocumentComplete: PageReady = True Then I created Sub MyTest() and placed this code into it: WebBrowser1.Navigate MyPath & "Page1.html" 'MyPath is previously defined PageReady = False While PageReady = False: DoEvents: DoEvents: DoEvents: Wend 'Page loaded 'Set the text value in the page control named txtWebBrowser! WebBrowser1.Document.All.Item("txtWebBrowser").Value = "Message from VB6 Code!" 'Get the text value in the page control named txtWebBrowser! 'MsgBox WebBrowser1.Document.All.Item("txtWebBrowser").Value ---------------- That completes the VB part. I then created a webpage called Page1.html, existing in the MyPath that was specified in the above VB code. The page had this code: <HTML> <HEAD> <TITLE>Communications Test</TITLE> <SCRIPT Language="VBScript"> OPTION EXPLICIT SUB PageLoaded() txtWebBrowser.Value="READY" END SUB </SCRIPT> </HEAD> <BODY BGCOLOR="#000000" TEXT="#FFFFFF" LINK="#00FFFF" VLINK="#FF0000" ALINK="#FF00FF" SCROLL="NO" ONLOAD="PageLoaded()"> <BASEFONT SIZE=4> <FONT SIZE=4 FACE="ARIAL"> <CENTER><H1>Theme 1 Page</H1></CENTER> <TEXTAREA NAME="txtWebBrowser"ROWS=1 COLS=50 style="visibility:visible;position:absolute;top:200;left:40;"> Default Text</TEXTAREA> </FONT> </BODY> </HTML> ---------------------- Launching the webpage by itself will cause the textbox text, initially set to "Default Text", to be changed to "READY" after the page has loaded. Launching the page via running the VB project will cause the webpage textbox text to be changed to "Message from VB6 Code!". I commented out the VB code that will obtain that textbox content. This methodology lets code in the webpage communicate back and forth with VB code via the webpage textbox. This allows synchronizing of code in both of the applications. I've shown the basic way of providing cross communications between the applications, but I'll leave it up to others to do something with it! Maybe someone else will write a complete tutorial and project for others, rather than just a general explanation as I've done here. Winguy Tag: create an administrative share on c$ via script? Tag: 167616
  - 24
    - Remote Cacls Is there a way to change NTFS permissions on a remote server through a script. For example from Computer1 can I execute a script that will add Server1\Group1 to \\Server1\d$\Data with change access. I know I can use Cacls.exe and give a "domain" user or a "Domain" group permission to a remote server, but following Microsoft standards they say I should only apply permissions to Local Groups Thanks again. I found this site today and I have a few questions that I have been searching for answers to for a long time. -- Thanks for the help! Brian Tag: create an administrative share on c$ via script? Tag: 167614
  - 25
    - allowing line breaks in memo fields I'm not sure whether this question strictly speaking belongs to this group, but since a lot of you guys/gals out there are probably using ASP in connection with a database, here goes: As a relative newbie, I have discovered that a memo-type field in my access database does not accept (or simply ignores any attempt to) create line breaks. At least that's what seems to be the case when I created an standard form containing a text area field linked to an access database. When displayed, I would like the text to appear with a line break, for example: "This is line one. This is line two." However, even if insert that line break in the above-mentioned form, the text appears like this: "This is line one. This is line two." Where do I have to make provisions in order to display the line break? In the form page? In the display page? In the access field property? Or all of the above? I use pretty basic ASP/VBS for my pages. Below you can see examples of what would be the form page and and display page related to this question. Thanks in advance TB -- beginning of form page add.asp: ----- <% Set Conn = Server.CreateObject("Adodb.Connection") Dim DSN1 DSN1="Provider=MSDASQL;" DSN1=DSN1& "DRIVER={Microsoft Access Driver (*.mdb)}; " DSN1=DSN1& "DBQ=C:\web\test.mdb;" Conn.open DSN1 If Request.ServerVariables("REQUEST_METHOD") = "POST" Then Set RS = Server.CreateObject("ADODB.Recordset") RS.open "Select * From testtable Where 1 = 2;", Conn, 1, 3 RS.AddNew RS("Text") = Request.Form("Text") RS.Update RS.Close Conn.Close Set RS = Nothing Set Conn = Nothing Response.Write ("text added.")%> <a href="list.asp">return</a> <%Else%> <Form Method="Post" Action="add.asp"> <textarea rows="3" name="Text" cols="35"></textarea><br> <input Type="submit" Value="add" name="Submit"> </form> <%End If%> -- End of form page add.asp: ----- -- beginning of display page list.asp: ----- <% Set Conn = Server.CreateObject("Adodb.Connection") Dim DSN1 DSN1="Provider=MSDASQL;" DSN1=DSN1& "DRIVER={Microsoft Access Driver (*.mdb)}; " DSN1=DSN1& "DBQ=C:\web\test.mdb;" Conn.open DSN1 msql = "SELECT * FROM articulos" Set RS=Conn.Execute(msql) Do While Not RS.EOF response.write "text: " & RS("Text") &"<br>" RS.MoveNext Loop RS.Close Conn.Close Set RS = Nothing Set Conn = Nothing %> -- End of display page list.asp: ----- Tag: create an administrative share on c$ via script? Tag: 167610
- Next
  - 1
    - LogonScript Suggustion Currently I am using KixStart95 to write my logon scripts. Right now I basically say If inGroup "XXXX" then map to \\SERVER\Share If inGroup "XXXX" then map to \\SERVER2\Share3 over and over until I've checked all the possible groups a person could be a member of. I am getting ready to deploy file servers to 150 remote locations connected over 256K Frame Relay and about 8000 users total. All of our DC's are located back at central office where the 256K connections funnel to. At least starting out each user will have only one Group drive which will be on their file server located in their building. Just wondering if anyone had a better way to map these drives without having to have 150-500 If Ingroup lines. I would also like to use as few logon scripts as possible. Obviously one solution would be to give everyone their own script which would provide fast logon but too much maintenance. Any suggestions would be appreciated. -- Thanks for the help! Brian Tag: create an administrative share on c$ via script? Tag: 167605
  - 2
    - Validating a Group Exists I have the following code to Create a local group. I was wondering if there is a way to see if the group already exists before I try to create it. Currently if a group already exists my script errors out, is there a way to allow the script to continue working in the event that a preexisting group is encountered? strComputer = "REQtestXP1" Set colAccounts = GetObject("WinNT://" & strComputer & "") Set objUser = colAccounts.Create("group", "FSD") objUser.SetInfo -- Thanks for the help! Brian Tag: create an administrative share on c$ via script? Tag: 167604
  - 3
    - Need Help with this code!... Hi! Ive got this code that open a simple aspx page : Set oIE = createobject("internetexplorer.application") oIE.navigate "http://www.somepage.com/page.aspx" oIE.Visible = True Do until oIE.readystate=4 sSleep 1 Loop Some of the page contents have this code: <td class="celula" align="Center"><input type="submit" name="dtgAdicao:_ctl25:_ctl0" value="" /></td> <td class="celula" align="Center"><input type="submit" name="dtgAdicao:_ctl26:_ctl0" value="" /></td> <td class="celula" align="Center"><input type="submit" name="dtgAdicao:_ctl27:_ctl0" value="" /></td> Can you see see sequence in the "name" attribute (dtgAdicao:_ctl25:_ctl0, dtgAdicao:_ctl26:_ctl0)... Well, the question is: how can i FOCUS over one of these elements???.... I try this: oIE.Document.all.dtgAdicao:_ctl27:_ctl0.focus but oviously Ive got an error because the name of the element its conaints illegal caracters... Witch way can i use to focus or read de "name" tag of this elements??? Thanxs a lot! Gabriel. Tag: create an administrative share on c$ via script? Tag: 167596
  - 4
    - VBS Server monitor needed. New to scripting. Need Script that monitors servers and sends e-mail when they go down (and if possible, when it comes back up.) Also if anyone has any good script repository sites. Thanks, Ian Lilkendey Tag: create an administrative share on c$ via script? Tag: 167594
  - 5
    - Anti-virus help?! I want to write a vbscript which retrieves the current dat-version (and engine version) of different anti-virus programs. Well, I've done this for McAfee, which was very easy. Does anyone know how to retrieve such information from E-Trust (CA) and Symantec anti-virus? It seems the registry keys are encrypted and can't find any information from CA or Symantec about this subject. Greetings, Hans http://fots.nl Tag: create an administrative share on c$ via script? Tag: 167590
  - 6
    - Missing file extension? We have a VBScript that runs fine from the command line, but when run through CronW, it hangs. While debugging, we had the script print names of the various files it uses. (fileobject.Name) When running from the command line, it will print complete filenames, "somepath\filename.ext", but when running through cronw, we only get "somepath\filename" without the extension. Anyone know any reason it should be like that? All hints appreciated. Cheers, Anders :) Tag: create an administrative share on c$ via script? Tag: 167589
  - 7
    - blank character Hi, How do I create a 'blank character' on a web page? I have a table and I need a blank cell. If I create a cell with no entry, the cell doesn't appear in the table. I remember there was some sequence of keys to create the blank character that started with an ambersand. Does anyone know what it is? Thanks, Guy Tag: create an administrative share on c$ via script? Tag: 167586
  - 8
    - arguments to script Hi there, I have created script which use the following to find out the arguments passed to it. It works fine if I enter the script name and arguments in a DOS prompt. But if I run the same script with the same arguments in window scheduler, it will only take the default value, i.e. vDatabase='TEST'; ignoring the arguments I passed in the command. Please advise what I should do. Thanks. JW. ************ Set objArgs=WScript.Arguments if objArgs.count > 0 then vDatabase=objArgs(0) else vDatabase="TEST" end if Tag: create an administrative share on c$ via script? Tag: 167585
  - 9
    - replace string in txt file with another This is a multi-part message in MIME format. ------=_NextPart_000_0030_01C4ECE9.C6417450 Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable Hi there :) Was wondering if someone could help me please. This is what = I have setup to do so far: Get updated html file with 4 new image filenames each time. I have code which gets those names out using the "what's in between" = string (each imagename in the html file has a line like this : = imagename[0] =3D "blabla1234.gif" and the other images have different = numbers. The code I use gets the name but also some of the other code as = well but puts those strings to seperate text files which then I use = another string finder to get the proper name out and then put to more = seperate text files. I end up with 4 text files with each of the image = names. Then I want to replace certain strings in a new html file with = each of those image filenames, but I have no idea how to do that? How = can I open a text file, make it read it and write whatever's in there in = place of a string in a html file that already exists? Would appreciate the help. Thanks ------=_NextPart_000_0030_01C4ECE9.C6417450 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.1106" name=3DGENERATOR> <STYLE></STYLE> </HEAD> <BODY bgColor=3D#ffffff> <DIV><FONT face=3DArial size=3D2>Hi there :) Was wondering if someone = could help me=20 please. This is what  I have setup to do so far:</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>Get updated html file with 4 new image = filenames=20 each time.</FONT></DIV> <DIV><FONT face=3DArial size=3D2>I have code which gets those names out = using the=20 "what's in between" string (each imagename in the html file has a line = like this=20 : imagename[0] =3D "blabla1234.gif" and the other images have different = numbers.=20 The code I use gets the name but also some of the other code as well but = puts=20 those strings to seperate text files which then I use another string = finder to=20 get the proper name out and then put to more seperate text files. I end = up with=20 4 text files with each of the image names. Then I want to replace = certain=20 strings in a new html file with each of those image filenames, but I = have no=20 idea how to do that? How can I open a text file, make it read it and = write=20 whatever's in there in place of a string in a html file that already=20 exists?</FONT></DIV><FONT face=3DArial size=3D2> <DIV><BR>Would appreciate the help.</DIV> <DIV>Thanks</DIV> <DIV> </DIV> <DIV></FONT> </DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV></BODY></HTML> ------=_NextPart_000_0030_01C4ECE9.C6417450-- Tag: create an administrative share on c$ via script? Tag: 167584
  - 10
    - Info transfer WebBrowser Control <> HTML Code? I found in XP SP2 that I can, within webpage vb code, change the webpage title: on error resume next 'Tell WebBrowser control that a state exists document.title = "Case1.html State=0" on error goto 0 'Works even in theater mode and I can use that ability to pass information to the WebBrowser Control that is hosting the webpage in VB6, and the WebBrowser control will detect the change in its TitleChange event: X = Trim(Text) If InStr(1, X, "http") = 0 And InStr(1, X, "Cannot") = 0 Then _ If X > "" Then WebStatus = X 'WebStatus is global var This allows me to have webpage script code notify the VB6 WebBrowser control about specific webpage code event happenings. Nice. But for the life of me I can not figure out how to do exactly the reverse! Anyone got any ideas OTHER than having the webpage code read, via a timer function, an existing text file that VB6 code creates? I'd rather not beat the HDD to death to see if a text file has been changed or not ... TIA Winguy Tag: create an administrative share on c$ via script? Tag: 167582
  - 11
    - Script only returns 1000 users when over 2000 in OU When I run the following script trying to get a list of information of all users in a particular OU which has well over 2000 users I get only a listing of 1000 users. I know there is a way using the Active Directory Users and Computers utility to up the number of objects that are visible. Is this something that has to be done and can be done with scripts in order to report all objects? I would appreciate any suggestions. Set objConnection = CreateObject("ADODB.Connection") objConnection.Open "Provider=ADsDSOObject;" Set objCommand = CreateObject("ADODB.Command") objCommand.ActiveConnection = objConnection objCommand.CommandText = "<LDAP://" & strLine & "ou=Users,dc=OurDomain,dc=org>;;name,sAMAccountName,DisplayName;onelevel" Set objRecordSet = objCommand.Execute While Not objRecordset.EOF Wscript.Echo objRecordset.Fields("name") & chr(9) & objRecordset.Fields("sAMAccountName") & Chr(9) & objRecordset("DisplayName") & Chr(9) & strLine Call WriteToAllUsersTextFile(objRecordset.Fields("name") & chr(9) & objRecordset.Fields("sAMAccountName") & chr(9) & objRecordset.Fields("DisplayName") & Chr(9) & strLine) objRecordset.MoveNext Wend objConnection.Close Tag: create an administrative share on c$ via script? Tag: 167580
  - 12
    - Getting the path, the Fullname, etc. and why the script works I don't understand how the following script (from the MS Windows 2000 scripting guide) works: For Each strArgument in Wscript.Arguments Wscript.Echo strArgument Next 1. First, there's no statement that strArgument = something So, how does the variable strArgument get the Fullname (i.e., path and filename) assigned as the variable's value? 2. How could I modify the script to get just the path? 3.How could I modify the script to get just the file's name? 4. How could I modify the script to get just the file's date last modified? 5. Lastly, (since you have nothing to do but answer my questions) where can I find an explanation of constants? That's enough for now. Thanks again, Marc Hankin Tag: create an administrative share on c$ via script? Tag: 167574
  - 13
    - VBScript Image Editing Hello I want to create a script that will scan the currently directory for images, and then resize them (as in a thumbnail) and save the file. I know how to scan the dir, and save the files, etc. but I'm not sure how to get it to resize the images. Can someone help me with that? Thanks! Brett Tag: create an administrative share on c$ via script? Tag: 167573
  - 14
    - delete files older than X days What would be the best way to delete files in the SAME folder as the VB Script file that are X days or older? Tag: create an administrative share on c$ via script? Tag: 167572
  - 15
    - export query results I am new to vbscript. I would like to run a SQL 'select' query and then export the results to a file. I have been able to run the query by itself and get the desired results. The result will only be 1 line of data (6 fields). How do I export these results. Thanks in advance for your help. Tag: create an administrative share on c$ via script? Tag: 167569
  - 16
    - Listing computers names with a script Hello anyone can help me? I have four computers in a workgroup and I want to rescue the names of them using a Vbscript from one of them. I need the same list of net view but using a script. Many thanks Tag: create an administrative share on c$ via script? Tag: 167568
  - 17
    - Doing backup with Ntbackup + Vbs. I've writing a Script for launching NTbackup and checking errors in the created log. I have to make it in Vbs, Now...i have some problems in gettin it working. 1) Ntbackup launch 2) Log-check after ntbackup is ended. If errors were found an email is sended with attached the log file. The check works like a charm, process an entire txt\log file and send a mail if ERROR is found. But i have some problems in getting the last log created in the c:\doc&set\local setting\....\ntbackup\data\ dir. Someone has any idea on checking this log? Thanks in advance Stefano Tag: create an administrative share on c$ via script? Tag: 167567
  - 18
    - count the number of Mailboxes (Exchange Server) Hi, I would like to count the number of mailbox of each MailBoxStores in my organisation. (The final goal of this script is to create the new mailboxes in the least full store). Here is what I did, but it's not enough. I can't find any way to access to a mailbox collection so as to count the items. Please, help me ! thanks in advance, akiuni ----- my script: ----- Dim objServer ' CDOEXM.ExchangeServer Dim objSG ' CDOEXM.StorageGroup Dim objMSDB ' CDOEXM.MailboxStoreDB strServerName = "Sxxx" 'one Exchange server, I'll see later for the others Set objServer = CreateObject("CDOEXM.ExchangeServer") Set objSG = CreateObject("CDOEXM.StorageGroup") Set objMSDB = CreateObject("CDOEXM.MailboxStoreDB") Set iDS = objServer.GetInterface("IDataSource") iDS.Open strServerName For Each storegroup In objServer.StorageGroups objSG.DataSource.Open storegroup For Each mbx In objSG.MailboxStoreDBs objMSDB.DataSource.Open mbx ' Here I am in each Mailboxes Stores... but how can I access to the mailboxes ??? ' or is there a property/method to count the items ?? Next Next Tag: create an administrative share on c$ via script? Tag: 167563
  - 19
    - Newby question : How to map a network drive ? Hi, I want to create a script which maps network drive. I need to do so for whichever user logs in. I want to put the script in the startup of AllUsers. How can I do that ? Thanks Maurice Tag: create an administrative share on c$ via script? Tag: 167562
  - 20
    - Newby question : How identify "Workstation Only" VbScript ? Hi! I want to perform some activity on WinNT/Win2K if the user is not logged in as "Workstation Only" ? How do I do that ? Thanks Maurice Tag: create an administrative share on c$ via script? Tag: 167561
  - 21
    - can't get field.value I have a set of text fields as <td><input name=....> placed on the page based on the number of records returned from the DB. After the page loads, I wand to change the value in the fields and send these to a new ASP. I name the fields F1, F2, etc based on the number of records. I have a JavaScript function that pulls the new values from these fields, F1.value, F2.value, etc. by assigning them myvalue1[1] = F1.value, myvalue2 = F2.value, ... But what I really need to do is pick up the field values programmatically: for (i=1; i<num; i++) { myvalue[i] = "F" + i + ".value" } But I end up with a string in myvalue[i] instead of F1.value from the field. I missing something fundamental here. Can someone help? Tag: create an administrative share on c$ via script? Tag: 167556
  - 22
    - Check emails inside/outside the domain Hi There, I've write the script bellow that should send a email from 3 Exchange Servers and 1 email account from outside the domain at the same time. The purpose of this script is to check if the Exchange Servers are receiving and sending emails to and outside the domain with no problems. So we could answer faster until the users call us with this kind of problems. Can someone help me?... Thanks Nuno Set objMessage = CreateObject("CDO.Message") objMessage.Subject = "Testing incoming / outgoing domain email" objMessage.Sender = "exchangeServer_1@helpme.com; exchangeServer_2@helpme.com; exchangeServer_3@helpme.com; externalEmailAccount@givemeatip.com" objMessage.To = "exchangeServer_1@helpme.com; exchangeServer_2@helpme.com; exchangeServer_3@helpme.com; externalEmailAccount@givemeatip.com" objMessage.TextBody = "Email Test" objMessage.Send Tag: create an administrative share on c$ via script? Tag: 167555
  - 23
    - CreateTextFile Permission Denied error under Windows XP I've written a VBS script that runs under W98, NT4, W2K, and WXP Home/Pro. Users under Windows XP only are encountering an *intermittent* problem when the script attempts to create a text file in the script directory. Here's the relevant code: ----------START CODE---------- Dim Wshso : Set Wshso = WScript.CreateObject("WScript.Shell") Dim Fso : Set Fso = CreateObject("Scripting.FileSystemObject") Dim oNetwk : Set oNetwk = WScript.CreateObject("WScript.Network") Dim ScrPath ScrPath = Fso.GetParentFolderName(WScript.ScriptFullName) If Right(ScrPath,1) <> "\" Then ScrPath = ScrPath & "\" strFN = ScrPath & "Some Name Here (" & oNetwk.ComputerName &_ ") " & FmtDate & ".txt" Public oFN 'THE ERROR OCCURS ON THE NEXT LINE Set oFN = Fso.CreateTextFile(strFN,True) 'script does a lot more stuff here Function FmtDate FmtDate = Year(Now) & "-" & Right("0" & Month(Now),2) &_ "-" & Right("0" & Day(Now),2) End Function ----------END CODE---------- The error is always the same: Windows Script Host Script: C:\Script File Path\Script File Name.vbs Line: CreateTextFile_line_number_here Char:1 Error: Permission Denied code: *00A0046 Source: Microsoft VBScript runtime error The error only occurs with a small number of users when the script is first launched. The error may occur repeatedly with those users, but the script ultimately runs normally. Once the script completes, the error is unlikely to repeat, even if the text file is deleted. I encountered the error on my own MS Virtual PC 2004 install of Windows XP Pro. I can't explain the error. What could account for a CreateTextFile "Permission Denied" error using the above code in a WXP Home (or Pro) installation where Everyone has Full Control over the script directory and the user is an Administrator? regards, Andy -- ********** Please send e-mail to: usenet (dot) post (at) aaronoff (dot) com To identify everything that starts up with Windows, download "Silent Runners.vbs" at www.silentrunners.org ********** Tag: create an administrative share on c$ via script? Tag: 167553
  - 24
    - Get XML page issue Hello to all, iÂ´m developing a script to retrieve a xml web page, in order to create a statistics file. IÂ´m Spanish, and the XML have special characters, like Ã? (espaÃ±a), accents, like Ã³ Ã Ã©, etc... when i retrieve the XML this characters appears as an error caracter, and i not be able to work with the result of the get. there is a representative part of my code: strURL="http://setiathome2.ssl.berkeley.edu/fcgi-bin/fcgi?cmd=team_lookup_xml&name=Sondas%20Espaciales" Set objHTTP = CreateObject("MSXML2.XMLHTTP") 'MSXML2 Call objHTTP.Open("GET", strURL, FALSE) objHTTP.setRequestHeader "Accept-Language","sp" objHTTP.setRequestHeader "Pragma","no-cache" objHTTP.setRequestHeader "Content-Type","text/html; charset=iso-8859-1" objHTTP.Send wscript.echo objHTTP.Responsetext IÂ´ve searching info in spanish forums about this issue and i have been able to find something, but dont work fine. Can anyone help me with this issue??? Thanks in advanced and merry Xmas Tag: create an administrative share on c$ via script? Tag: 167551
  - 25
    - Prevent access to floppy drive and USB ports Hey, I would like to read in IP's / computer names from a text file and then connect to those computers and somehow prevent users from using both the floppy drive and USB ports by disabling them. I would also like the flexibility of re-enabling them all or just specific ones. I'd appreciate if someone could show me how to do this with a script. Thanks Tag: create an administrative share on c$ via script? Tag: 167550

Is it possible to create an administrative share on c$ via (or wmi)? I
dont really think I understand if theres a difference between a
"regular share" and an "administrative share" so maybe I am over
thinking this.

Top

Re: create an administrative share on c$ via script? by Celler

Celler
Sun Jan 02 13:56:22 CST 2005

Hi,
Batch Process to Create and Grant Access to Home Directories -
http://support.microsoft.com/default.aspx?scid=kb;en-us;155449

How to create and delete hidden or administrative shares on client
computers -
http://support.microsoft.com/default.aspx?scid=kb;en-us;Q314984&sd=tech

Hop this help.
Dave

emebohw@netscape.net wrote:

> Is it possible to create an administrative share on c$ via (or wmi)? I
> dont really think I understand if theres a difference between a
> "regular share" and an "administrative share" so maybe I am over
> thinking this.
>

Top

Re: create an administrative share on c$ via script? by JakeDAHS

JakeDAHS
Sun Jan 02 22:39:17 CST 2005

Administrative shares are automatically created for fixed drives using
the $ at the end of the drive letter, ie: C$ D$ E$ These can only be
accessed by an administrator of the machine. You can, however not
recommended, create a share on C that would be available to all as long
as permissions are set up properly.

-J

Top

Re: create an administrative share on c$ via script? by Al

Al
Thu Jan 06 22:46:06 CST 2005

<emebohw@netscape.net> wrote in message
news:1104691140.437740.109380@c13g2000cwb.googlegroups.com...
> Is it possible to create an administrative share on c$ via (or wmi)? I
> dont really think I understand if theres a difference between a
> "regular share" and an "administrative share" so maybe I am over
> thinking this.

IMHO, administrative shares are: a) hidden (name ends in "$"), and: b)
created by the system. With sufficient privileges you can create
non-administrative shares that are either: a) hidden (name ends in "$"), or:
b) not hidden (name does not end in "$"). These shares can be used for
normal user purposes or perhaps exclusively for "administrative" purposes.
Hidden user shares work for all intents and purposes exactly like the hidden
"administrative" shares. But since it was *you* that created them, and not
the system, they are not, strictly speaking, "administrative shares".

/Al

Top