Can someone help me? (code here)

[Marek]

Hello gurus!
I wrote a code in VBS, that will check, that current user is in one from
three groups.
But i don't know how asimilate it with asp.net.
This page will be a bridge between 2 - main menu and report page.
Tomorrow to the 8 a.m. i must do this, but i don't know how.... Can someone
help me?
There are few messageboxes for help.
Here is my code (it's vbs):

Sub Main
Dim objUserName, objUserDomain, oGroup, objUser, gList, WshShell, sMessage,

sTitle
Dim objDomain, vDomain, vUserName
Dim objChangePwdTru e, objChangePwd, objUserProfile
Dim objPwdExpiresTr ue, objFlags
Dim objAcctDisabled , intPwdExpired, objPwdExpiredTr ue
Dim admin, manag, audit
admin = false
manag = false
audit = false
Set WshShell = WshShell.Create Object("WScript .Shell")
vdomain = WshShell.Expand EnvironmentStri ngs("%USERDOMAI N%")
vUserName = Request.ServerV ariables("USERN AME")
'Request.Server Variables("REMO TE_USER")

GetInfo ' sub routing to get user information
For Each oGroup In objUser.Groups
If gList = "" Then
gList = oGroup.Name
Else
gList = gList & ", " & oGroup.Name
End If
Next

for each oGroup in objUser.Groups
if oGroup.Name = "Administrators " Then
admin = true
msgbox(ogroup.N ame)
Else
End if

if ogroup.name = "ManagRepor ts" Then
manag = true
msgbox(ogroup.n ame)
Else
End if

if ogroup.name = "AuditRepor ts" Then
audit = true
msgbox(ogroup.n ame)
Else
End if
Next
dim a
If admin = true then
set a = RSExecute("menu gl.html")
'FRAME SRC="menugl.htm L" NAME="Podstawow a"
'<FRAMESET>'</FRAMESET>
End if

msgbox(admin & " " & manag & " " & audit)

if znaleziona then
else
End if
end sub
Sub GetInfo()
sMessage = "Please enter the domain to search." & vbCrLf & vbCrLf & _
"Default is: " & vDomain & vbCrLf & vbCrLf
sMessage = sMessage & "Hit Cancel or enter a blank to quit"
sTitle = "Domain to Search"

If vDomain = "" Then ' Cancelled by the user
' WScript.quit
End If

ssMessage = ""
ssTitle = ""

on error resume Next
sMessage = "Please enter the USER Login ID" & vbCrLf & vbCrLf & _
"Default is: " & vUserName & vbCrLf & vbCrLf
sMessage = sMessage & "Hit Cancel or enter a blank to quit"
sTitle = "USER Login ID"

If vUserName = "" Then ' Cancelled by the user
WScript.quit
End If

Set objUser = GetObject("WinN T://"& vDomain &"/"& vUserName & "",user)
If Err Then
msgNoUser = "Error: Could not bind to the following user: " &

vbCrLf _
& vbCrLf & "WinNT://" & vDomain &"/"& vUserName & vbCrLf &

vbCrLf _
& "Please verify your domain and user name and try again"
WshShell.Popup msgNoUser,0,"Er ror retrieving

information",vb Critical
GetInfo
Else
End If
End Sub

Function IsCScript()
If (InStr(UCase(WS cript.FullName) , "CSCRIPT") <> 0) Then
IsCScript = True
Else
IsCScript = False
End If
End Function

[Kevin Spencer]

I'm afraid it's not that easy, Marek. You're talking aobut 2 completely
different programming paradigms here. ASP is scripted and procedural.
ASP.Net is a fully-compiled programming technology which is object-oriented.

If your deadline is tomorrow morning, I believe you have 2 choices:

1. Stick with the ASP and make it work.
2. Look for another job.

--
HTH,
Kevin Spencer
..Net Developer
Microsoft MVP
I get paid good money to
solve puzzles for a living

"Marek" <ma***@zegarek. pl> wrote in message
news:#s******** ******@TK2MSFTN GP15.phx.gbl...

Hello gurus!
I wrote a code in VBS, that will check, that current user is in one from
three groups.
But i don't know how asimilate it with asp.net.
This page will be a bridge between 2 - main menu and report page.
Tomorrow to the 8 a.m. i must do this, but i don't know how.... Can someone help me?
There are few messageboxes for help.
Here is my code (it's vbs):

Sub Main
Dim objUserName, objUserDomain, oGroup, objUser, gList, WshShell, sMessage,
sTitle
Dim objDomain, vDomain, vUserName
Dim objChangePwdTru e, objChangePwd, objUserProfile
Dim objPwdExpiresTr ue, objFlags
Dim objAcctDisabled , intPwdExpired, objPwdExpiredTr ue
Dim admin, manag, audit
admin = false
manag = false
audit = false
Set WshShell = WshShell.Create Object("WScript .Shell")
vdomain = WshShell.Expand EnvironmentStri ngs("%USERDOMAI N%")
vUserName = Request.ServerV ariables("USERN AME")
'Request.Server Variables("REMO TE_USER")

GetInfo ' sub routing to get user information
For Each oGroup In objUser.Groups
If gList = "" Then
gList = oGroup.Name
Else
gList = gList & ", " & oGroup.Name
End If
Next

for each oGroup in objUser.Groups
if oGroup.Name = "Administrators " Then
admin = true
msgbox(ogroup.N ame)
Else
End if

if ogroup.name = "ManagRepor ts" Then
manag = true
msgbox(ogroup.n ame)
Else
End if

if ogroup.name = "AuditRepor ts" Then
audit = true
msgbox(ogroup.n ame)
Else
End if
Next
dim a
If admin = true then
set a = RSExecute("menu gl.html")
'FRAME SRC="menugl.htm L" NAME="Podstawow a"
'<FRAMESET>'</FRAMESET>
End if

msgbox(admin & " " & manag & " " & audit)

if znaleziona then
else
End if
end sub
Sub GetInfo()
sMessage = "Please enter the domain to search." & vbCrLf & vbCrLf & _
"Default is: " & vDomain & vbCrLf & vbCrLf
sMessage = sMessage & "Hit Cancel or enter a blank to quit"
sTitle = "Domain to Search"

If vDomain = "" Then ' Cancelled by the user
' WScript.quit
End If

ssMessage = ""
ssTitle = ""

on error resume Next
sMessage = "Please enter the USER Login ID" & vbCrLf & vbCrLf & _
"Default is: " & vUserName & vbCrLf & vbCrLf
sMessage = sMessage & "Hit Cancel or enter a blank to quit"
sTitle = "USER Login ID"

If vUserName = "" Then ' Cancelled by the user
WScript.quit
End If

Set objUser = GetObject("WinN T://"& vDomain &"/"& vUserName & "",user)
If Err Then
msgNoUser = "Error: Could not bind to the following user: " &

vbCrLf _
& vbCrLf & "WinNT://" & vDomain &"/"& vUserName & vbCrLf &

vbCrLf _
& "Please verify your domain and user name and try again"
WshShell.Popup msgNoUser,0,"Er ror retrieving

information",vb Critical
GetInfo
Else
End If
End Sub

Function IsCScript()
If (InStr(UCase(WS cript.FullName) , "CSCRIPT") <> 0) Then
IsCScript = True
Else
IsCScript = False
End If
End Function

[Leszek]

Ok :/
So, can you give me a link with walkthrought, that clearly shows how to
build it in asp.net?

U¿ytkownik "Kevin Spencer" <ks******@takem pis.com> napisa³ w wiadomo¶ci
news:%2******** ********@TK2MSF TNGP09.phx.gbl. ..

I'm afraid it's not that easy, Marek. You're talking aobut 2 completely
different programming paradigms here. ASP is scripted and procedural.
ASP.Net is a fully-compiled programming technology which is
object-oriented.

If your deadline is tomorrow morning, I believe you have 2 choices:

1. Stick with the ASP and make it work.
2. Look for another job.

--
HTH,
Kevin Spencer
.Net Developer
Microsoft MVP
I get paid good money to
solve puzzles for a living

"Marek" <ma***@zegarek. pl> wrote in message
news:#s******** ******@TK2MSFTN GP15.phx.gbl...

Hello gurus!
I wrote a code in VBS, that will check, that current user is in one from
three groups.
But i don't know how asimilate it with asp.net.
This page will be a bridge between 2 - main menu and report page.
Tomorrow to the 8 a.m. i must do this, but i don't know how.... Can

someone

help me?
There are few messageboxes for help.
Here is my code (it's vbs):

Sub Main
Dim objUserName, objUserDomain, oGroup, objUser, gList, WshShell,

sMessage,

sTitle
Dim objDomain, vDomain, vUserName
Dim objChangePwdTru e, objChangePwd, objUserProfile
Dim objPwdExpiresTr ue, objFlags
Dim objAcctDisabled , intPwdExpired, objPwdExpiredTr ue
Dim admin, manag, audit
admin = false
manag = false
audit = false
Set WshShell = WshShell.Create Object("WScript .Shell")
vdomain = WshShell.Expand EnvironmentStri ngs("%USERDOMAI N%")
vUserName = Request.ServerV ariables("USERN AME")
'Request.Server Variables("REMO TE_USER")

GetInfo ' sub routing to get user information
For Each oGroup In objUser.Groups
If gList = "" Then
gList = oGroup.Name
Else
gList = gList & ", " & oGroup.Name
End If
Next

for each oGroup in objUser.Groups
if oGroup.Name = "Administrators " Then
admin = true
msgbox(ogroup.N ame)
Else
End if

if ogroup.name = "ManagRepor ts" Then
manag = true
msgbox(ogroup.n ame)
Else
End if

if ogroup.name = "AuditRepor ts" Then
audit = true
msgbox(ogroup.n ame)
Else
End if
Next
dim a
If admin = true then
set a = RSExecute("menu gl.html")
'FRAME SRC="menugl.htm L" NAME="Podstawow a"
'<FRAMESET>'</FRAMESET>
End if

msgbox(admin & " " & manag & " " & audit)

if znaleziona then
else
End if
end sub
Sub GetInfo()
sMessage = "Please enter the domain to search." & vbCrLf & vbCrLf & _
"Default is: " & vDomain & vbCrLf & vbCrLf
sMessage = sMessage & "Hit Cancel or enter a blank to quit"
sTitle = "Domain to Search"

If vDomain = "" Then ' Cancelled by the user
' WScript.quit
End If

ssMessage = ""
ssTitle = ""

on error resume Next
sMessage = "Please enter the USER Login ID" & vbCrLf & vbCrLf & _
"Default is: " & vUserName & vbCrLf & vbCrLf
sMessage = sMessage & "Hit Cancel or enter a blank to quit"
sTitle = "USER Login ID"

If vUserName = "" Then ' Cancelled by the user
WScript.quit
End If

Set objUser = GetObject("WinN T://"& vDomain &"/"& vUserName & "",user)
If Err Then
msgNoUser = "Error: Could not bind to the following user: " &

vbCrLf _
& vbCrLf & "WinNT://" & vDomain &"/"& vUserName & vbCrLf &

vbCrLf _
& "Please verify your domain and user name and try again"
WshShell.Popup msgNoUser,0,"Er ror retrieving

information",vb Critical
GetInfo
Else
End If
End Sub

Function IsCScript()
If (InStr(UCase(WS cript.FullName) , "CSCRIPT") <> 0) Then
IsCScript = True
Else
IsCScript = False
End If
End Function

[Kevin Spencer]

I'm afraid I can't. I can give you a link to a .Net SDK article that talks
about migrating from ASP to ASP.Net:

http://msdn.microsoft.com/asp.net/ge...e/default.aspx

--
HTH,
Kevin Spencer
..Net Developer
Microsoft MVP
I get paid good money to
solve puzzles for a living

"Leszek" <ma***@zegarek. pl> wrote in message
news:eG******** ******@TK2MSFTN GP09.phx.gbl...

Ok :/
So, can you give me a link with walkthrought, that clearly shows how to
build it in asp.net?

U¿ytkownik "Kevin Spencer" <ks******@takem pis.com> napisa³ w wiadomo¶ci
news:%2******** ********@TK2MSF TNGP09.phx.gbl. ..

I'm afraid it's not that easy, Marek. You're talking aobut 2 completely
different programming paradigms here. ASP is scripted and procedural.
ASP.Net is a fully-compiled programming technology which is
object-oriented.

If your deadline is tomorrow morning, I believe you have 2 choices:

1. Stick with the ASP and make it work.
2. Look for another job.

--
HTH,
Kevin Spencer
.Net Developer
Microsoft MVP
I get paid good money to
solve puzzles for a living

"Marek" <ma***@zegarek. pl> wrote in message
news:#s******** ******@TK2MSFTN GP15.phx.gbl...

Hello gurus!
I wrote a code in VBS, that will check, that current user is in one from three groups.
But i don't know how asimilate it with asp.net.
This page will be a bridge between 2 - main menu and report page.
Tomorrow to the 8 a.m. i must do this, but i don't know how.... Can

someone

help me?
There are few messageboxes for help.
Here is my code (it's vbs):

Sub Main
Dim objUserName, objUserDomain, oGroup, objUser, gList, WshShell,

sMessage,

sTitle
Dim objDomain, vDomain, vUserName
Dim objChangePwdTru e, objChangePwd, objUserProfile
Dim objPwdExpiresTr ue, objFlags
Dim objAcctDisabled , intPwdExpired, objPwdExpiredTr ue
Dim admin, manag, audit
admin = false
manag = false
audit = false
Set WshShell = WshShell.Create Object("WScript .Shell")
vdomain = WshShell.Expand EnvironmentStri ngs("%USERDOMAI N%")
vUserName = Request.ServerV ariables("USERN AME")
'Request.Server Variables("REMO TE_USER")

GetInfo ' sub routing to get user information
For Each oGroup In objUser.Groups
If gList = "" Then
gList = oGroup.Name
Else
gList = gList & ", " & oGroup.Name
End If
Next

for each oGroup in objUser.Groups
if oGroup.Name = "Administrators " Then
admin = true
msgbox(ogroup.N ame)
Else
End if

if ogroup.name = "ManagRepor ts" Then
manag = true
msgbox(ogroup.n ame)
Else
End if

if ogroup.name = "AuditRepor ts" Then
audit = true
msgbox(ogroup.n ame)
Else
End if
Next
dim a
If admin = true then
set a = RSExecute("menu gl.html")
'FRAME SRC="menugl.htm L" NAME="Podstawow a"
'<FRAMESET>'</FRAMESET>
End if

msgbox(admin & " " & manag & " " & audit)

if znaleziona then
else
End if
end sub
Sub GetInfo()
sMessage = "Please enter the domain to search." & vbCrLf & vbCrLf & _
"Default is: " & vDomain & vbCrLf & vbCrLf
sMessage = sMessage & "Hit Cancel or enter a blank to quit"
sTitle = "Domain to Search"

If vDomain = "" Then ' Cancelled by the user
' WScript.quit
End If

ssMessage = ""
ssTitle = ""

on error resume Next
sMessage = "Please enter the USER Login ID" & vbCrLf & vbCrLf & _
"Default is: " & vUserName & vbCrLf & vbCrLf
sMessage = sMessage & "Hit Cancel or enter a blank to quit"
sTitle = "USER Login ID"

If vUserName = "" Then ' Cancelled by the user
WScript.quit
End If

Set objUser = GetObject("WinN T://"& vDomain &"/"& vUserName & "",user)
If Err Then
msgNoUser = "Error: Could not bind to the following user: " &

vbCrLf _
& vbCrLf & "WinNT://" & vDomain &"/"& vUserName & vbCrLf &

vbCrLf _
& "Please verify your domain and user name and try again"
WshShell.Popup msgNoUser,0,"Er ror retrieving

information",vb Critical
GetInfo
Else
End If
End Sub

Function IsCScript()
If (InStr(UCase(WS cript.FullName) , "CSCRIPT") <> 0) Then
IsCScript = True
Else
IsCScript = False
End If
End Function