I used this script:

Here is a VB Script Vall Script that will get around the Password Prompt when "RunAs" is called...

'Start

'-----------------------------------------------------------------------------------

' To Run other VB Scripts or even Batch Files with Admin Priviliges'

'----------------------------------------------------------------------------------

Dim WshShell, objFSO

suser = "YourAdminAccount@YourDomain.com"

sPass = "YourPassWord"

'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

'Put your Domain Account and Password in between the qoutes, REMEMBER! the Password will be clear text. If this is a standalone just take off the @YourDomain.com

'-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

sCommand = "wscript \UNCServerNameShareFolderYourScript.vbs"

'--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

'This will be the path were the scripted you want called will be at. Please note you can substitute the ablove for a local directory (Example: C:FolderYourScript.vbs)

'-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

Set objComputer = CreateObject("Shell.LocalMachine")

Set WshNetwork = CreateObject("WScript.Network")

Set WshShell = CreatObject("WScript.Shell")

Set WshEnv = wshShell.Environment("Process")

WinPath = WshEnv("SystemRoot")&"System32runas.exe"

rc = WshShell.Run ("runas /noprofile /user:" & suser & " " $ Chr(34) & sCommand & Chr(34))

WScript.Sleep 900

WshShell. AppActivate(WinPath)

WScript.quit

'End

 

Now my problem: my users account name is:

"user's"

 

When running above proposed script, I get the following error:

Windows Script Host

Script: C:VBSCstartMA.vbs

Line: 20

Character: 60

Error: Invalid character

Code: 800A0408

Source: Microsoft VBScript compilation error.

 

My guess is that my users name User's is giving troubles. I tried a few combinations, but I keep getting this error.

 

Last thing I tried is:

'----------------------------------------------------------------------------------

Dim WshShell, objFSO

suser = "user"& chr(7) &"s" 

sPass = "welkom"

'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------



Also tried: suser = "user's" and "user"'"s" or  even  "user""& chr(7) &""s" and "user& chr(7) &s"...



As you can see, I don't know squad ;p



Could you help me out? I just wanna run the following Start Menu Cleanup script:

'#==============================================================================

'#============================================================================== '# SCRIPT.........: CleanUpStartMenuItems.vbs '# AUTHOR.........: Stuart Barrett '# VERSION........: 1.0 '# CREATED........: 11/11/11 '# LICENSE........: Freeware '# REQUIREMENTS...: '# '# DESCRIPTION....: Cleans up any Start Menu folders containing broken '# shortcuts '# '# NOTES..........: Untested on Windows 7!! '# '# Will ask before deleting any folders (can be amended '# as per noted in script) '# '# You can add as many excluded folders as required. '# '# CUSTOMIZE......: '#============================================================================== '# REVISED BY.....: '# EMAIL..........: '# REVISION DATE..: '# REVISION NOTES.: '# '#============================================================================== '#============================================================================== Set objShell = CreateObject("WScript.Shell") Set objFSO = CreateObject("Scripting.FileSystemObject") strStartMenu = objShell.SpecialFolders("StartMenu") strAllUsersStartMenu = objShell.SpecialFolders("AllUsersStartMenu") '#-------------------------------------------------------------------------- '# Add Any Excluded Folders in here. You will also need to increase the '# arrExcludedFolders(x) array variable by 1. '#-------------------------------------------------------------------------- Dim arrExcludedFolders(3) arrExcludedFolders(0) = "programs" arrExcludedFolders(1) = "programsaccessories*" arrExcludedFolders(2) = "programsadministrative tools" '#-------------------------------------------------------------------------- DeleteStartMenuItems strStartMenu, 0 DeleteStartMenuItems strAllUsersStartMenu, 1 '#-------------------------------------------------------------------------- '# SUBROUTINE.....: DeleteStartMenuItems(strFolder, intStartMenu) '# PURPOSE........: Deletes all the folders with broken shortcuts in '# the specified folder '# ARGUMENTS......: strFolder = full path to the folder '# intStartMenu = index of Start Menu type '# EXAMPLE........: DeleteStartMenuItems("c:documents and settingsall usersstart menu", 0) '# NOTES..........: intStartMenu Values: '# 0 = Start Menu '# 1 = All Users Start Menu '#-------------------------------------------------------------------------- Sub DeleteStartMenuItems(strFolder, intStartMenu) On Error Resume Next booDelete = 0 booCheck = 1 Set objFolder = objFSO.GetFolder(strFolder) If intStartMenu = 0 Then strSM = strStartMenu Else strSM = strAllUsersStartMenu End If For i = 0 To UBound(arrExcludedFolders) - 1 strExcludedFolder = strSM & arrExcludedFolders(i) If LCase(strFolder) = LCase(strSM) Then booCheck = 0 Exit For End If If Right(strExcludedFolder, 2) = "*" Then strExcludedFolder = Left(strExcludedFolder, Len(strExcludedFolder) - 2) If InStr(LCase(strFolder), LCase(strExcludedFolder)) > 0 Then booCheck = 0 Exit For End If Else If InStr(LCase(strExcludedFolder) & "||", LCase(strFolder) & "||") > 0 Then booCheck = 0 Exit For End If End If Next If booCheck = 1 Then For Each objItem In objFolder.Files strFullName = objFSO.GetAbsolutePathName(objItem) If Right(LCase(objItem), 3) = "lnk" Then Set objShortcut = objShell.CreateShortcut(strFullName) strTarget = LCase(objShortcut.TargetPath) If NOT objFSO.FileExists(strTarget) Then '#-------------------------------------------------------------------------- '# Currently set up to ask on each folder deletion. To remove prompting '# before deletion (risky) uncomment out the next line and comment out '# ( ' ) the rest up to '#----- line below. '#-------------------------------------------------------------------------- 'booDelete = 1 DeletePrompt = MsgBox("Do you wish to delete the below Start Menu folder? " & _ vbCrLf & vbCrLf & objFolder & " ", vbQuestion+vbYesNo, "CleanUp Start Menu Items") Err.Clear If DeletePrompt = vbYes Then booDelete = 1 Exit For End If '#-------------------------------------------------------------------------- End If End If Next If booDelete = 1 Then objFolder.Delete True End If For Each objItem In objFolder.SubFolders DeleteStartMenuItems objItem.Path, intStartMenu Next  [/pre] End Sub



SOURCE: http://community.spiceworks.com/scripts/show/1078-cleanup-start-menu-items



Thank you in advance...



And Peace!



Devvie



[[User:Devnullius|Devnullius]] notemail@facebook.com [[User:Devnullius|Devnullius]]

Cuisvis hominis est errare, nullius nisi insipientis in errore persevare —— All spelling mistakes are my own and may only be distributed under the GNU General Public License! – (© 95-1 by Coredump; 2-012 by DevNullius)





PS: http://www.asciitable.com/